Randomize

генератор случайных величин

|| procedure Randomize ;

Описание:

Delphi процедура Randomize используется вместе с Random функцией. Процедура Randomize генератор произвольных чисел из 232 псевдо произвольных чисел.

Randomize использует время дня как основу для выдачи псевдо произвольных чисел, такая генерация чисел должна обеспечить создания непредсказуемой последовательности чисел, хотя полученная последовательность - часть преопределенной последовательности.

Пример кода:

var
   int : Integer;
   i : Integer;

begin
   // If you run this program twice, only the first 5 values
   // will be guaranteed to be the same each time - randomize
   // repositions into a different part of the pseudo sequence
   // of random numbers.

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

   // Now randomize to reposition
   Randomize;
   ShowMessage('');

   // Get an integer random number in the range 1..100
   ShowMessage('Random next 5 numbers');
   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;

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

Fixed first 5 random numbers
int = 1
int = 4
int = 87
int = 21
int = 28

Random next 5 numbers
int = 35
int = 74
int = 45
int = 50
int = 31

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

Delphi programming

Randomize

Описание:

Пример кода:

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