Курсовые проекты / курса / бек / 1 / Ботва / Modelup_q / NEIM1

uses crt;
var i: integer;
e1,e2,c: real;
begin
randomize;
clrscr;
writeln('n - sl. vel. s plotnost','''','u veroyatnosti f(n)=tg(n)/ln(sqrt(2)),');
writeln(' n=0..Pi/4');
writeln(' sup(f(n))=1/ln(sqrt(2))');
writeln('e1 - sl. velichina ravnomerno raspredel. na [0; sup(f(n))]');
writeln('e2 - sl. velichina ravnomerno raspredel. na [min(n); max(n)]');
writeln;
writeln('e1 ');
writeln('f(e2) ');
writeln('n ');

repeat
e1:=2*random/ln(2);
e2:=Pi*random/4;
c:=2*sin(e2)/(cos(e2)*ln(2));
if e1<c then begin
i:=i+1;
gotoxy((i-1)*6+7,7);
write(e1:6:2);
gotoxy((i-1)*6+7,8);
write(c:6:2);
gotoxy((i-1)*6+7,9);
write(e2:6:2);
end;
until i>=10;
readln;
end.