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('-'); { 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