Курсовые проекты / курса / бек / 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.