Последние записи
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
18th
Апр
Как генерировать случайные положительные и отрицательные числа?
Posted by Chas under Delphi
как генерировать случайные положительные и отрицательные числа?
RandomRange конечно хорош, но он генерит целые числа. да, могу я и с ним поработать через коэфициенты, но есть ли способы полегче?
Neeter
Вот пример:
procedure TForm1.Button3Click(Sender: TObject);
var
b: boolean;
begin
b := boolean(random(2)); //Случайно выбираем, добавится положительное или отрицательное число
if b then memo1.Lines.Add(IntToStr(random(1000)))
else memo1.Lines.Add(IntToStr(-random(1000)));
end;
