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

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

For j := 0 To i Do Begin

ay[i] := ay[i] + y[j];

al[i] := al[i] + f(j);

End;

If Dk < Abs(ay[i]-al[i]) Then Dk := Abs(ay[i]-al[i]);

End; Ry := 0;

For i := 0 To d Do Begin

If Ry < y[i] Then Ry := y[i];

End;

HZoom := Width / Rx; VZoom := Height / Ry;

WriteLn; WriteLn(' Гистограмма смоделированной СВ :');

Lx := Rx / k; Ly := Ry / Ny; SetTextStyle(0,1,0);

SetViewPort(Left, Top, Left + Width, Top + Height, False);

For i := 0 To k Do Begin

X1 := Round(Lx*i*HZoom);

SetColor(7); Line(X1, 0, X1, Height + 5);

Str((Lx*i+Xmin):0:2, Txt);

OutTextXY(X1+4, Height+10, Txt);

SetColor(DarkGray); Line(X1, 0, X1, Height);

End; SetTextStyle(0, 0,0);

For i := 0 To Ny Do Begin

Y1 := Round(Height-Ly*i*VZoom);

SetColor(7); Line(-5, Y1, Width, Y1); Str(Ly*i:0:2, Txt);

OutTextXY(-40, Y1-4, Txt);

SetColor(DarkGray); Line(0, Y1, Width, Y1);

Y1 := Round(Height-Ly*(i-0.5)*VZoom);

If i > 0 Then Line(0, Y1, Width, Y1);

End;