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

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;

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