Программисты-математики есть? алгоритм популярности

[winhttp]

Как в игре какой нибудь азартной...
есть значение , например 100. Нужно сделать , чтобы например 10 выпадало чаще, чем 20 , 20 - чаще, чем 30 . В общем чтобы 100 выпадало раз в пятилетку
На ум приходит что то типа такого

10=768
20=384
30=192
40=96
50=48
60=24
70=12
80=6
90=3
100=1
i:=1+Random(768);
//а тут проверяем значение, если оно подходит в какой то диапазон, то 
// берем значение . Пример: выпало число 321 - это 30, выпало 16 -это 70 , если 1 то 100

собственно 10 будет часто выпадать, чем 70 например. нубский алгоритм. подскажите проще пожалуста

[Человек_Борща]

Про теаорию вероятности почитайте. Занимательно. Алгоритмов тоже много, если поискать гуглом.

[winhttp]

спасибо, что указали, в какую сторону копать. на другом форуме такой же алгоритм нашёл, что и у меня

[maloun]

Сообщение от Человек_Борща

Про теаорию вероятности почитайте. Занимательно. Алгоритмов тоже много, если поискать гуглом.

Не люблю читать, по этому пишу что взбредет в голову.
Вот написал, сам не знаю, что

program test;

uses
  windows,
  vcl.forms,
  System.SysUtils;

var
  len:integer;

function GetRandom(const value:integer):integer;
var
  i:integer;
begin
  result:=1;
  for i:=1 to value do
  begin
    result:=result*Random(100)+1;
    sleep(1)
  end;
  writeln(result);
end;

procedure Read2;
begin
  Read(len);
  while GetRandom(len)<>100 do Application.ProcessMessages;
end;

begin
  AllocConsole;
  repeat Read2
  until Application.terminated;
end.

этот способ завязан на перемножении результатов рандома, от 0 до 100.
Вводим 1, жмем enter. После кучи цифр(или сразу) показывается 100 и все останавливается.
Вводим 2, жмем enter - уже подольше... и т.д.