.


:




:

































 

 

 

 


-.




, : , , . . . .

, , . , , ; , , , , , , . , , , 1/6, , , , 5/6.

, , . , , .

, , M N . :[16]

 

 
. (360)

 

 

, -, . , , , , , .

. . -. .

: 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) .

, . , .

- :

 

 
(361)

N ( );

P ;

k , ;

n -, () .

, , 2000 , , 500 , .. 105 . 16- , 216 (65536) , 1000 .

: , 52 52! . 8e67 2226. , , 21 256 . 36 , 4e41 2138, .. . 32!/10! 296, . 32- , , , , .

 





:


: 2016-12-04; !; : 629 |


:

:

,
==> ...

1330 - | 1299 -


© 2015-2024 lektsii.org - -

: 0.013 .