Реферат: Программирование с использованием генератора случайных чисел

{*****DrawHelp*****}

procedure drawhelp(help:byte);

begin

textcolor(black);

textbackground(white);

gotoxy(1,25);

case help of

0: write(' F1-Парам. F2-Посл-ти F3-Гистогр. F10-Меню (Alt-x)-Выход ');

1: write(' Задать/изменить параметры ');

2: write(' Просмотреть последовательности ');

3: write(' Просмотреть гистограмму ');

4: write(' Выход ');

5: write(' Esc-Закончить изменение параметров. BckSp-Изменить параметр. F4-Постр. посл-ть');

6: write(' Нажмите Up или Down для просмотра или Esc для выхода ');

end;

end;

{*****DrawWin*****}

procedure drawwin;

begin

textcolor(white);textbackground(blue);

GotoXY(1,2);

Write('г');

for i:=2 to 79 do

Write('=');

Write('¬');

for i:=3 to 23 do

begin

GotoXY(1,i1);

Write('¦');