, : , , . . . .
, , . , , ; , , , , , , . , , , 1/6, , , , 5/6.
, , . , , .
, , M N . :[16]
, -, . , , , , , .
. . -. .
: B ; ; N .
VAR
B, { }
S, D: byte; { P(A)=S/D}
N, { }
i, j, { }
summa: word; { }
P_M, P_A: real; { }
{ }
FUNCTION otkaz: word;
VAR
o:word;
R:byte;
BEGIN
o:=0;
for i:=1 to B do
begin
R:=random(D+1)+1; { >=1 <=D}
if R<=D-S then inc(o); { ""}
end;
otkaz:=o;
END;
BEGIN
write(' : ');
readln(B);
writeln(' ( ):');
write(' ');
readln(S);
write(' ');
readln(D); {.. P=S/D}
write(' : ');
readln(N);
{ -}
summa:=0;
for j:=1 to N do summa:=summa+otkaz;
|
|
P_M:=summa/N;
{ }
P_A:=S/D;
for i:=1 to B-1 do P_A:=P_A*S/D; { }
P_A:=1-P_A;
writeln;
writeln('* * * * * *');
writeln(' -: ', P_M:1:6);
writeln(' : ', P_A:1:6);
writeln;
writeln('()
END.
, : 3; ; 50000, . - 0.429420. 0.421296. , .[17]
, . , . , - .
, . , .
, . R , (0, 1).
rj R, (0, 1).
R, , R, . R R , .
R : , (0; 1) .
, . , .
- :
N ( );
P ;
k , ;
n -, () .
, , 2000 , , 500 , .. 105 . 16- , 216 (65536) , 1000 .
: , 52 52! . 8e67 2226. , , 21 256 . 36 , 4e41 2138, .. . 32!/10! 296, . 32- , , , , .
|
|