Курсовая работа: Теория вероятности и математическая статистика
d:=0;
For k:=1 to n do
begin
For i:=1 to 7 do
begin
x[i]:=Random;
If x[i]<P[i] then a[i]:=1 else a[i]:=0;
End;
b:=((a[3]+a[4]+a[5]*a[6]*a[7])*a[1]*a[2]);
if b>=1 then d:=d+1;
End;
ch:=d/n;
WriteLn;
Write(' ':3,n:5,' ':20,d:5,' ':15,ch:5:4);
End;
WriteLn;
ReadLn;
End.
Результат работы программы.
Введите надёжности элементов P[1]=0.7
Введите надёжности элементов P[2]=0.9
Введите надёжности элементов P[3]=0.8
Введите надёжности элементов P[4]=0.6
Введите надёжности элементов P[5]=0.9
Введите надёжности элементов P[6]=0.7
Введите надёжности элементов P[7]=0.8
Таблица
| Числоопытов | Числоблагоприятныхисходов | Частота |
|
1000 2000 3000 К-во Просмотров: 442
Бесплатно скачать Курсовая работа: Теория вероятности и математическая статистика
|