Реферат: Программирование с использованием генератора случайных чисел

gotoxy(xcor[i],ycor[i]);write(dat[i]:2:1);

end;

#13: begin

if i<3 then i:=i+1 else>

gotoxy(xcor[i],ycor[i]);write(dat[i]:2:1);

end;

#62: begin

for i:=1 to 50 do

begin

x:=ln(random(65525)+1);

posle[i]:=exp(-sqr(x-dat[1])/(2*sqrt(dat[2])))/sqrt(2*pi*dat[2]);

x:=exp(1/(random(825)));

if x<0 then posle[i+50]:=0 else>

end;

end;

end;

until exitpar=true;

drawwin;

end;

2: begin

action:=#1;

drawhelp(6);

textcolor(white);

textbackground(blue);

exitpar:=false;

j:=1;

for i:=1 to 19 do

begin

gotoxy(2,i+4);