.


           


end

end;

{----------------------------------------------------------------------------------------}

{ - }

{ 蠠 }

Procedure NumberExperiment(e, PP : real; var n : longint);

var

x : real;

begin

n := 0;

repeat

n := n + 1; x := 2*e*sqrt(n)

until FF(x) >= PP

end;

{----------------------------------------------------------------------------------------}

begin

randomize;

write(' BC '); readln(a);

write(' '); readln(h);

write(' BAE < Pi/2 '); readln(q);

write(' '); readln(PP);

write(' '); readln(e);

NumberExperiment(e, PP, n);

k := 0; m := 0; k1 := sin(q)/cos(q);

for i := 1 to n do

begin

x := random*(2*h/k1 + a); y := random*h;

if (y < k1*x) and (y < -k1*x + k1*(2*h/k1 + a)) then k := k + 1;

if ((x < h/k1) and (y < k1*x)) or

((x > a + h/k1) and

(y < -k1*x + k1*(2*h/k1 + a))) then m := m + 1

end;

p := m/k;

writeln(' ', p:6:4);

writeln(' ', e:1:6);

writeln(' ', PP:1:4);

writeln(' ', n)

end.

17

E - , 3 . , . E :

, V1 - ,

V2 - .

Program Task17;

uses WinCrt;

var

x, y, z, p, e, pp : real;

i, n, s : longint;

{----------------------------------------------------------------------------------------}