Курсовая работа: Теория вероятности

for j:=1 to 6 do begin

x[j]:=0;

a:=random;

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

end;

if ((((((x[1]=1) and (x[2]=1)) or (x[3]=1)) and (x[4]=1)) or (x[5]=1)) and (x[6]=1)) then m:=m+1

end;

pp:=m/n;

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

End;

Readln;

end.

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

Опытов: Мсходы: Вер-ть:

n= 100 M= 89 P*=0.89

n= 200 M= 173 P*=0.86

n= 300 M= 263 P*=0.88

n= 400 M= 360 P*=0.90

n= 500 M= 434 P*=0.87

n= 600 M= 530 P*=0.88

n= 700 M= 612 P*=0.87

n= 800 M= 704 P*=0.88

n= 900 M= 784 P*=0.87

n=1000 M= 865 P*=0.86

n=1100 M= 985 P*=0.90

n=1200 M=1062 P*=0.89

n=1300 M=1165 P*=0.90

n=1400 M=1238 P*=0.88

n=1500 M=1330 P*=0.89