Рулетка

[roman585]

Здравствуйте.


Предположим имеется 1000 строк и имеется цифра 1. В каждую строчку вписыется 1 умноженая на коэф с определеной вероятностью. Коэф следущие и вероятности следущие: *2 - 0,729 ; *4 0,221 ; *6 0,042 ; X4 0,221 ; X20 0,00535;
X50 0,00180 ; X100 - 0,000270. Эти 1000 строк при запуске и после работы програмы сохраняются в тхт файл. Приведу пример руками как выглядит. Между номером строки и резльтатом мне кажется имеет смысл поставить минимум 5 пробелов что не слипались
номер строки от двузна или трезнач.


1 2
2 2
3 2
4 4
5 4
6 2
7 2
8 2
9 6
10 20
.
.
.
.
.
.
.
.
.
.542 2
.
.
.
.
.
.
.
.
999 2
1000 4



Это просто я написал эту симуляцию рукамии как примерно выглядит. Помогите пожалуйста.

[сфинкс]

вычислить случайное от 0 до 1

если случайное в диапазоне как 0,000270 тогда коэффициент 500
если случайное в диапазоне как 0,0221 тогда коэффициент 4

и то же соблюдая порядок для всех
ведь диапазоны в сумме =1

наверняка реально в эксцель Excel
и потом скопировать и вставить в текстовый

а программу автортемы может сочинить на qb64

[roman585]

Значение элемента массива, принимает значение 1* коэф. Коэф выпадает с вероятностью

[сфинкс]

сумма вероятностей: 1

диапазон от 0 до 1 делится пропорционально

выбираем случайное

вероятность попасть в диапазон
равна пропорции

чтобы понять правильно ли поняли читайте медленно

всё сходится ладно пишите программу проверим

[evg_m]

randomize;
...
txt:=TStringList.Create;
for k:=1 to 1000 do begin
  x:=random(1000); // x:=rnd;
  case x of
  000..729: r:=1*2;
  730..950 {=730+220} r:=1*4;
  ....
  end;
  s:=format('%.3d    %d', [k, r]);
  txt.add(s);
end;
txt.savetofile(...);

x:=rnd;  // random(1000)/1000;
if x<0.729 then r:=1*2
else if x<0.729 +0.220 then r:=1*4
else if x<0.729 +0.220 +... then ....
....
else r:=1* ...;