Реферат: Получение случайных чисел

uses crt,graph;

var j,help,i,work,button:byte;

exitmenu,exitprog:boolean;

actionprog,action:char;

grmode,grdriver:integer;

dat:array[1..3]of real;

posle:array[1..100] of real;

xcor,ycor:array[1..3]of byte;

mat,disp:array[1..10]of real;

mat0,disp0,dispmax,matmax,x:real;

{*****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