Как генерировать случайные положительные и отрицательные числа?

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;

тема на форуме

Похожие статьи

• Заполнить текстовый файл случайными числами
• Генератор случайных чисел и англ. букв
• Как в RandomRange исключить определенные числа?
• Почему random не генерирует случайные числа?
• Выбор случайных вопросов без повторений
• Генератор псевдо-случайных чисел (ПСЧ). Как образуются случайные числа?
• Pascal — Заполнить массив случайными числами
• Равномерное распределение точек в круге
• Random слов в Memo
• Генерация слов из listbox