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

uses crt;
var i,c: integer;
    x,q,w: real;
begin
randomize;
clrscr;
writeln('q - ravnomerno raspredel. sl. velichina');
writeln('x - sl. vel. s odnoi iz plotnostei veroyatnosti');
writeln(' 1. f(x)=tg(x)/ln(sqrt(2)),  ves - 0,3');
writeln(' 2. f(x)=4/Pi ,              ves - 0,7');
writeln('    x=0..Pi/4');
writeln;
writeln('q  ');
writeln('n  ');
writeln('#  ');

for i:=1 to 10 do begin
   q:=random;
   w:=random;
   c:=2;
   if w<0.3 then begin
      x:=arctan(sqrt(exp(q*ln(2))-1));
      c:=1;
   end;
   if w>=0.3 then
      x:=q*Pi/4;

   gotoxy((i-1)*6+4,7);
   write(q:6:2);
   gotoxy((i-1)*6+4,8);
   write(x:6:2);
   gotoxy((i-1)*6+4,9);
   write(c:6);
end;
readln;
end.