procedure Randomize ;
Процедура Randomize используется вместе с функцией Random. Она устанавливает генератор случайных чисел в его последовательность из 232 псевдослучайных чисел. Randomize для этого повторного установления использует время дня как начальное значение, обеспечивая, таким образом, надежный метод создания непредсказуемой последовательности чисел, даже если они часть предопределенной последовательности.
|
var int : Integer; i : Integer; begin // Если Вы выполните эту программу дважды, гарантируется, что только // первые 5 значений randomize // снова установит в различную часть // псевдо случайной последовательности чисел. // Получение случайного целого числа в диапазоне 1..100 ShowMessage('Первые 5 фиксированных чисел'); for i := 1 to 5 do begin int := 1 + Random(100); // Эти 100 значений дают диапазон 0..99 ShowMessage('int = '+IntToStr(int)); end; // Теперь, чтобы снова установить выполняем randomize Randomize; ShowMessage(''); // Получение случайного целого числа в диапазоне 1..100 ShowMessage('Следующие 5 случайных чисел'); for i := 1 to 5 do begin int := 1 + Random(100); // Эти 100 значений дают диапазон 0..99 ShowMessage('int = '+IntToStr(int)); end; end;
|