program kursovik; 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 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('¦'); for j:=2 to 79 do

Write(' ');

Write('¦'); end;

GotoXY(1,24);

Write('L'); for i:=2 to 79 do

Write('=');

Write('-');
{ gotoxy(39,2);write('T');} gotoxy(39,24);write('¦'); for i:=5 to 23 do begin gotoxy(39,i); write('¦') end; gotoxy(31,3); writeln('Последовательности'); gotoxy(1,4);

write('¦=====================================T==============================
==========¦'); end;
{*****DoWork*****} procedure dowork(work:byte); begin case work of

1: begin textcolor(white); textbackground(blue); gotoxy(39,2);write('T'); gotoxy(2,3); writeln(' Нормальный закон: ¦ Экспоненциальный закон:'); gotoxy(1,4);

write('¦=====================================+==============================
==========¦'); drawhelp(5); textcolor(white); textbackground(blue); gotoxy(2,6);write(' Мат. ожидание:'); gotoxy(2,8);write('
Дисперсия:');gotoxy(xcor[2],ycor[2]);write(dat[2]:2:1);

gotoxy(41,6);write('Коэффициент:');gotoxy(xcor[3],ycor[3]);write(dat[3]:2:1)
; gotoxy(xcor[1],ycor[1]);write(dat[1]:2:1);i:=1; repeat action:=readkey; case action of

#27: exitpar:=true;

#9: begin i:=i+1; if i