random.pas

Пример программы для функций Random и Randomize.

Код примера
 {Random.PAS}
 
 { Пример программы для функций Random и Randomize }
 
 Uses Crt;
 
 Begin
  Randomize;
  Repeat
   { Выводим текст случайными цветами }
   TextAttr:=Random(256);
   Write('!');
  Until KeyPressed;
 End.

Скачать random.pas