Mail

В этот день много лет назад...
26 ноября. В 1920 году (104 года назад) - После отказа Нестора Махно слиться с Красной армией в Крыму, его войска окружаются и разбиваются.

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.