Генерирует случайное целое число или число с плавающей запятой
System unit
1 function Random : Extended;
2 function Random ( LimitPlusOne : Integer ) : Integer;
Описание
Функция Random генерирует случайные числа. Это могут быть числа с плавающей запятой числами в диапазоне:
0 <= Number <1.0
или целые числа в диапазоне:
0 <= Number
Delphi использует генератор псевдослучайных чисел, который, каждый раз, при выполнении программы возвращает одну и ту же последовательность значений (232).
Чтобы избегать этой предсказуемости, используйте процедуру Randomize. Она в качестве начального псевдослучайного значения устанавливает текущее время.
Похожие команды
Randomize Устанавливает генератор случайного числа на следующее значение
RandomRange Генерирует произвольное число в пределах введённого диапазона
RandSeed Устанавливает генератор случайного числа на следующее значение
Пример кода : Генерация набора челых чисел и чисел с плавающей запятой
var
float : single;
int : Integer;
i : Integer;
begin // Получение случайных чисел с плавающей запятой в диапазоне 0 <= number <1.0
for i := 1 to 5 do
begin
float := Random;
ShowMessage('float = '+FloatToStr(float));
end;
ShowMessage(''); // Получение целых случайных чисел в диапазоне 1..100
for i := 1 to 5 do
begin int := 1 + Random(100); // Эти 100 значений дают диапазон 0..99
ShowMessage('int = '+IntToStr(int));
end;
end;