Delphi

[nervniy]

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

подскажите как можно это сделать???

[Stilet]

Предположу что так:

const a:array[1..4,1..2] of double =( (1,0.5),(2,0.25),(3,0.125),(4,0.125));
var e,i:integer;
begin
 randomize;
 i:=random(125);e:=1;
 while (e<=4)and(a[e,2]<=(i/100) do inc(e);
 writeln(a[e,1]);
end.