Контрольная работа: Моделирование дискретной случайной величины по геометрическому закону распределения

For op:=1 to 20 do Begin

n:=op*100;m:=0;

Write(' n=',n:4);

For i:=1 to n do Begin

For j:=1 to c do Begin

x[j]:=0;

a:=random;

if a<p[j] then x[j]:=1;

End;

rab:=x[i]+x[2]*(x[3]+x[4]+x[5]);

If rab>0 then m:=m+1;

End;

pp:=m/n;

writeln(' M= ',m:4,' P*= ',pp:3:3);

End;

ppp1:=p[1]+p[2]*(p[3]+p[4]+p[5]-p[3]*p[4]-p[3]*p[5]-p[4]*p[5]+p[3]*p[4]*p[5]);

ppp2:=p[1]*p[2]*(p[3]+p[4]+p[5]-p[3]*p[4]-p[3]*p[5]-p[4]*p[5]+p[3]*p[4]*p[5]);

ppp:=ppp1-ppp2;

Writeln; Writeln(' Вер. вопыте: p=',ppp:6:3);

Readln;

End.

Результат работы программы

Опытов: Исходы: Вероятность:

n= 100 M= 94 P*= 0.940

n= 200 M= 163 P*= 0.815

n= 300 M= 247 P*= 0.823

n= 400 M= 337 P*= 0.843

n= 500 M= 411 P*= 0.822

n= 600 M= 518 P*= 0.863