Контрольная работа: Моделирование дискретной случайной величины по геометрическому закону распределения

FOR I:=201 TO 300 DO BEGIN

X[I]:=RANDOM;

WRITE(X[I]:5:2);

END;

READLN;

PS[K]:=0;

FOR I:=1 TO M DO BEGIN

FOR K:=0 TO 10 DO BEGIN

IF ((X[I]<P1[K]) AND (X[I]>=P1[K-1])) THEN BEGIN

PS[K]:=PS[K]+1;

END;

END;

END;

FOR K:=0 TO 10 DO BEGIN

STA[K]:=PS[K+1]/M;

WRITELN('P*[',K,']=',STA[K]:6:5);

END;

WRITELN;

WRITELN('СТАТИСТИЧЕСКИЕ ИНТЕРВАЛЫ:');

STR[1]:=STA[0];

FOR K:=1 TO 10 DO BEGIN

STR[K+1]:=STR[K]+STA[K];

WRITELN(' PS[',K,']=',STR[K]:6:5);

END;

READLN;

{ТЕОРЕТИЧЕСКОЕ И СТАТИСТИЧЕСКОЕ МАТОЖИДАНИЕ Mx}

MX:=0;

FOR K:=0 TO 10 DO BEGIN

MMX[K]:=K*PI[K];