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