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

End;

Function Fact(x : Word) : Real;

{Справка для Егоровой Т.П. Считает до 1000!}

Var i : Word; F : Real;

Begin

F := 1;

If x > 0 Then For i := 1 To x Do F := F * i;

Fact := F;

End;

Function f(m : Word) : Real;

Begin

If m >= 0 Then f := Pwr(a, m)*exp(-a) / Fact(m)

Else f := 0;

End;

Begin

Assign(Output, ''); Rewrite(Output); Randomize; ExitProc := @Bue;

DetectGraph(GrDriver, GrMode); InitGraph(GrDriver, GrMode, 'BGI');

SumS := 0;

For i := 0 To d Do Begin

S[i] := f(i); SumS := SumS + S[i];

End;

For i := 0 To d Do Begin al[i] := 0;

For j := 0 To i Do al[i] := al[i] + S[j] / SumS;

End;

For w := 1 To n Do Begin

Ran := Random;

For i := 0 To d Do Begin

If al[i] > Ran Then Begin

x[w] := i; Break;