Контрольная работа: Моделирование дискретной случайной величины по геометрическому закону распределения
IF K=10 THEN PI[K]:=P*SQR(SQR(SQR(1-P)))*SQR(1-P) ELSE
SI:=SI+PI[K];
WRITELN(' P[',K,']=',PI[K]:6:5);
END;
READLN;
WRITELN('ИНТЕРВАЛЫ:');
P1[1]:=0.4;
FOR K:=1 TO 10 DO BEGIN
P1[K+1]:=PI[K]+P1[K];
WRITELN( 'PI[',K,']=',P1[K]:6:5);
END;
READLN;
{СТАТИСТИЧЕСКИЙ РЯД}
WRITELN;
WRITELN('СТАТИСТИЧЕСКИЙ РЯД:');
FOR I:=1 TO 9 DO BEGIN
X[I]:=RANDOM;
WRITE(X[I]:5:2);
END;
READLN;
FOR I:=10 TO 99 DO BEGIN
X[I]:=RANDOM;
WRITE(X[I]:5:2);
END;
READLN;
FOR I:=100 TO 200 DO BEGIN
X[I]:=RANDOM;
WRITE(X[I]:5:2);
END;