[Delphi]: Выпадение чисел с опредёлнным процентом вероятности.

[Kolhan]

Здраствуйте

помогите создать генератор, который будет выдавать числа зависящий от процента их выпадения. Например есть 3 числа(1,2,3) процент выпадения числа 1 - 20%, числа 2 - 30%, числа 3 - 50%.

[Levsha100]

Randomize;
a:=Random()*100;
case a do
  1..20: B:=1;
  21..50: B:=2;
end;

И тд

[Kolhan]

А если к примеру надо ещё сделать так чтобы пользователь задавал проценты

[Sazary]

А если к примеру надо ещё сделать так чтобы пользователь задавал проценты

Объявляете массив из 100 элементов.
Пользователь вводит числа и проценты их выпадения. Берем первое. Допустим, у него 20%. Забиваем первые 20 элементов массива этим числом. Берем второе число. Пусть у него 34%. Забиваем следующие 34 элемента вторым числом. И т.д.
Ну и потом берем рандомно элемент из этого массива.

-------------
Вот набросал на паскале.

uses crt;
var
mas : array[1..100] of integer;
chisla : array[1..100] of integer;
n,p,a : integer;
i,k,j : integer;

function getrandel : integer;
var t : integer;
begin
t := random(100)+1;
getrandel := mas[t];
end;
{----------}
procedure check;
var i,j,r : integer;
k : array[1..200] of integer;
begin
for i:=1 to n do
 k[i] := 0;
for i:=1 to 100 do
 begin
 r := getrandel;
 for j:=1 to n do
  if r = chisla[j] then inc(k[j]);
 write(r);
 if i mod 20 = 0 then writeln;
 end;

writeln('-------------');
writeln('Statistic: ');
for i:=1 to n do
 writeln('Chislo ',chisla[i],' vypalo ',k[i],' raza');
writeln;
end;

begin
clrscr;
randomize;
write('Kolichestvo elementov: ');
readln(n);
k := 1;
for i:=1 to n do
 begin
 write('Vvedite chislo ',i,': ');
 readln(a);
 chisla[i] := a;
 write('Vvedite procent vypadaniya: ');
 readln(p);
 for j:=1 to p do
  begin
  mas[k] := a;
  inc(k);
  end;
 end;
{-------}
check;

readln;
end.

Никаких проверок нет. Вводимые данные должны быть корректны.
Вводите числа и их проценты.
Процедура check выводит 100 рандомных чисел и статистику выпадания