Random

генерирует случайное целое число или число с плавающей точкой

|| 1 function Random : Extended;

|| 2 function Random ( LimitPlusOne : Integer ) : Integer;

Описание:

    Delphi функция Random генерирует произвольные числа. Результатом выполнения функция Random могут быть числа с плавающей точкой диапазоне :

     0 <= число < 1.0

     или целые числа в дипазоне :

     0 <= число < LimitPlusOne

     Delphi Использует псевдо произвольный генератор чисел, который всегда возвращает ту же последовательность величин (232) всякий раз, когда программа работает. Эта особенность может быть использована в построении графических рисунков. Например, цикл, в котором проводиться 100 линий с началом в конкретной точке, если длину линий мы ограничиваем Random(100), то в результате получим своеобразную звезду, которая будет отображаться на всех компьютерах одинаково.

     Если же вас наоборот не устраивает эта особенность функция Random, то используйте процедуру Randomize. Эта процедура создаёт псевдо произвольную последовательность, основываясь на времени дня.

Пример кода:

var
   float : single;
   int : Integer;
   i : Integer;

begin
   // Get floating point random numbers in the range 0 <= number < 1.0
   for i := 1 to 5 do
   begin
     float := Random;
     ShowMessage('float = '+FloatToStr(float));
   end;

   ShowMessage('');

   // Get an integer random number in the range 1..100
   for i := 1 to 5 do
   begin
     int := 1 + Random(100); // The 100 value gives a range 0..99
     ShowMessage('int = '+IntToStr(int));
   end;
end;

Результат выполнения:

float = 2.3283064365387E-10
float = 0.031379981256104
float = 0.861048460006714
float = 0.202580958604813
float = 0.2729212641716

int = 68
int = 32
int = 17
int = 38
int = 43

Клуб программистов

Delphi programming

Random

Описание:

Пример кода:

Результат выполнения: