Реферат: Получение случайных чисел
{*****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<4 then
begin
gotoxy(xcor[i],ycor[i]);write(dat[i]:2:1);
end