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

Проверка выполнимости теоремы Бернулли на примере надёжности электрической схемы.

Формулировка теоремы Бернулли: “Частота появления события в серии опытов сходится по вероятности к вероятности данного события.”

p₁ = 0.7

p₂ = 0.8

p₃ = 0.9

p₄ = 0.7

p₅ = 0.8

Проверка теоремы с помощью программы:

Текст программы:

Program Cep;

Uses CRT;

Const c=5;

Var op,i,j,n,m:integer;

a,rab,pp,ppp,ppp1,ppp2:real;

p:array[1..c] of real;

x:array[1..c] of byte;

Begin

ClrScr;

Randomize;

p[1]:=0.7; p[2]:=0.8; p[3]:=0.9; p[4]:=0.7; p[5]:=0.8;

Writeln(' Опытов: Мсходы: Вер-ть:'); Writeln;

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;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--