Контрольная работа: Основы теории вероятности

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= 200 n= 300 n= 400 n= 500 n= 600 n= 700 n= 800 n= 900 n=1000 n=1100 n=1200 n=1300 n=1400 n=1500 n=1600 n=1700 n=1800 « 1 2 3 4 5 6 7 » К-во Просмотров: 1181 Бесплатно скачать Контрольная работа: Основы теории вероятности >>> Скачать <<< Меню Поиск