Реферат: Получение случайных чисел

begin

i:=1;

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

end;

end;

#8: begin

gotoxy(xcor[i],ycor[i]);write(' ');

gotoxy(xcor[i],ycor[i]);read(dat[i]);

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

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

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

end;

#13: begin

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

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 posle[i+50]:=dat[3]*exp(-dat[3]*x);

end;

end;

end;

until exitpar=true;

drawwin;

end;