Курсовая работа: Теорема Бернулли Закон распределения Пуассона Критерий Колмогорова

Top = 60; Left = 55; Width = 360; Height = 380;

Type Real = Extended;

Var

GrDriver, GrMode : Integer;

R : Array[1..k] Of Record P : Real; Works : Boolean; End;

Fr : Real; j : Byte;

m, i, w : LongInt; Gone : Boolean;

Function Calc : Real;

Var P1, P2, P3, P4 : Real;

Begin

Calc := (R[1].P +R[2].P-R[1].P*R[2].P+R[3].P-R[3].P*

(R[1].P+R[2].P-R[1].P*R[2].P))*R[4].P*

(R[5].P +R[6].P-R[5].P*R[6].P+R[7].P-R[7].P*

(R[5].P+R[6].P-R[5].P*R[6].P));

End;

Procedure Init_Condit;

Var i : Byte;

Begin

For i := 1 To k Do Begin

R[i].Works := False;

If Random <= R[i].P Then R[i].Works := True;

End;

Gone := (R[1].Works Or R[2].Works Or R[3].Works)

And R[4].Works And (R[5].Works Or R[6].Works Or R[7].Works);

End;

Begin

ClrScr; Randomize;

R[1].P := 0.5; R[2].P := 0.45; R[3].P := 0.6; R[4].P := 0.9;

R[5].P := 0.39; R[6].P := 0.42; R[7].P := 0.6;