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

uses crt;
var i: integer;
x,q: real;
begin
randomize;
clrscr;
writeln('e - ravnomerno raspredel. sl. velichina');
writeln('n - sl. vel. s plotnost','''','u veroyatnosti f(n)=tg(n)/ln(sqrt(2)),');
writeln(' n=0..Pi/4');
writeln;
writeln('e ');
writeln('n ');

for i:=1 to 10 do begin
q:=random;
x:=arctan(sqrt(exp(q*ln(2))-1));
gotoxy((i-1)*6+4,5);
write(q:6:2);
gotoxy((i-1)*6+4,6);
write(x:6:2);
end;
readln;
end.