HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
29 марта. В 1960 году (64 года назад) - Установлен рекорд по самому продолжительному полету без дозаправки полностью снаряженного для выполнения задания мягкого дирижабля - 95 часов 30 минут. Экипаж из 19 человек возглавлял лейтенант Ленди А. Мур.
 
 

Turbo Pascal Documentation

Функция Random


     Функция: Возвращает случайное число.
     Описание: Random(диапазон : word)
     Тип результата: Совпадает с типом параметра.
     Примечания: Если параметр "диапазон" не задан,  то  ре-
зультатом будет вещественное число x в диапазоне 0 <= х < 1.
Если задан параметр "диапазон", то  он  должен  представлять
собой  выражение  целого типа, а результатом будет случайное
число длиной в слово в диапазоне 0 <= х < N, где N -  значе-
ние,  заданное  параметром "диапазон". Если параметр "диапа-
зон" меньше или равен нулю, то  вовращаемое  значение  будет
равно нулю.
     Генератор случайных чисел Random  должен  инициализиро-
ваться обращением к процедуре Randomize.
     Прочее: См. также процедуру Randomize.
     Пример:

uses Crt;
  begin
    Randomize;
    repeat
  { вывести текст со случайно выбранным цветом }
    TexAttr := Random(256);
    Write('!');
  until KeyPressed;
end.


Процедура Randomize


     Функция: Инициализирует встроенный генератор  случайных
чисел случайным значением.
     Описание: Randomize
     Примечания: Случайное значение получается от системного
таймера.

           Замечание: Число, получаемое в результате  работы
      генератора  случайных  чисел,  хранится в предописаной
      переменной с именем RandSeed. Путем присваивания  этой
      переменной  конкретного значения можно получать каждый
      раз заданную последовательность случайных  чисел.  Это
      особено полезно в прикладных задачах, где используется
      кодирование данных.
           Прочее: См. также процедуру Random.




HOME