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