[nervniy]

помогите с таким заданием:
Разработать функцию генерирующую псевдослучайную последовательность чисел распределенных по следующему закону:
Xi 1 2 3 4
Pi 0,5 0,25 0,125 0,125

Написать программу демонстрирующую работу этой функции.

[lmikle]

Ну просто генерится случайное число и в зависимости от диапазона, куда оно попадает, выдается одно из твоих значений...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function MyRandom : Integer; var   R : Double; begin   R := Random;   If R <= 0.5     Then Result := 1     Else       If (R > 0.5) And (R <= 0.75)         Then Result := 2         Else           If (R > 0.75) And (R <= 0.875)              Then Result := 3               Else Result := 4; end;   initialization   randomize;

Ну а программу проверки сам напишешь (в цикле генери большое кол-во чисел и считай статистику).