Дневник игрока в самую "эзотерическую" игру... Рулетку.

Всего проведено: 24453050 испытаний
Среди них невыпадение одного номера за 500 спинов встретилось 1039 раз
========================================================
Отчёт о частоте выпадения этого номера на следующих 35 спинах:
0 раз: 406 испытаний
1 раз: 377 испытаний
2 раз: 190 испытаний
3 раз: 49 испытаний
4 раз: 13 испытаний
5 раз: 4 испытаний
6 раз: 0 испытаний
7 раз: 0 испытаний
8 раз: 0 испытаний
9 раз: 0 испытаний
10 раз: 0 испытаний
11 раз: 0 испытаний
12 раз: 0 испытаний
13 раз: 0 испытаний
14 раз: 0 испытаний
15 раз: 0 испытаний
16 раз: 0 испытаний
17 раз: 0 испытаний
18 раз: 0 испытаний
19 раз: 0 испытаний
20 раз: 0 испытаний
21 раз: 0 испытаний
22 раз: 0 испытаний
23 раз: 0 испытаний
24 раз: 0 испытаний
25 раз: 0 испытаний
26 раз: 0 испытаний
27 раз: 0 испытаний
28 раз: 0 испытаний
29 раз: 0 испытаний
30 раз: 0 испытаний
31 раз: 0 испытаний
32 раз: 0 испытаний
33 раз: 0 испытаний
34 раз: 0 испытаний
35 раз: 0 испытаний
========================================================
Отчёт о моменте первого выпадения искомого числа на следующих 35 спинах:
1 спин: 28 испытаний
2 спин: 29 испытаний
3 спин: 25 испытаний
4 спин: 35 испытаний
5 спин: 35 испытаний
6 спин: 26 испытаний
7 спин: 13 испытаний
8 спин: 18 испытаний
9 спин: 25 испытаний
10 спин: 22 испытаний
11 спин: 22 испытаний
12 спин: 19 испытаний
13 спин: 19 испытаний
14 спин: 13 испытаний
15 спин: 26 испытаний
16 спин: 11 испытаний
17 спин: 13 испытаний
18 спин: 16 испытаний
19 спин: 15 испытаний
20 спин: 27 испытаний
21 спин: 14 испытаний
22 спин: 19 испытаний
23 спин: 18 испытаний
24 спин: 16 испытаний
25 спин: 21 испытаний
26 спин: 7 испытаний
27 спин: 15 испытаний
28 спин: 11 испытаний
29 спин: 8 испытаний
30 спин: 8 испытаний
31 спин: 12 испытаний
32 спин: 15 испытаний
33 спин: 7 испытаний
34 спин: 7 испытаний
35 спин: 18 испытаний
Не выпало ни разу: 406 испытаний

while true do begin
Application.ProcessMessages; //Это, чтобы программа не висела, пока расчёт идёт
wheel:=$1FFFFFFFFF; //Это 64-битное число записываем в каждый бит, начиная с младшего,
//37 единичек. Каждая единичка (бит) указывает на то, что это
//число ещё не выпадало. Когда число выпадет, мы заменим единичку на 0
inc(i); //Увеличиваем счётчик общего количества испытаний
inc(i01); //Этот счётчик используется для того, чтобы каждый 1 млн. испытаний
//Обновлять информацию в отчёте


//Генерируем первые FN чисел (FN-это параметр, который мы задаём. По умолчанию FN=500)
for i02:=1 to FN do begin
num:=1;
rnd:=Random(37); //Здесь мы генерируем случайое число от 0 до 36
//при помощи встроенного ГПСЧ Delphi
wheel:=wheel and (not (num shl rnd)); //В этой строке мы сбрасываем бит, соответствующий
//выпавшему случайному числу. Т.е. заменяем единичку на
//нолик (см. выше)
if wheel=0 then break; //Если все биты сброшен, т.е. все числа от 0 до 36
//уже выпали, то прекращаем генерацию, т.к. эта последовательность
//нам не интересна
end;

if wheel<>0 then begin //Если есть невыпашие номера, то обрабатываем их
inc(n); //Увеличиваем счётчик найденных ситуаций, когда наш номер не выпал заданное число раз

//Берём первый попавшийся невыпавший номер (их может быть несколько)
MyNumb:=-1;
for i02:=0 to 36 do begin
num:=1;
num:=num shl i02;
if (wheel and num)<>0 then begin
MyNumb:=i02; //Здесь мы нашли номер, который у нас не выпадал 500 раз
break;
end;
end;

if MyNumb<>-1 then begin
//Генерируем оставшиеся FK (задаётся пользователем, по умолчанию =35) номеров и записываем статистику
found:=false; //Наш искомый номер ещё не найден...
foundCnt:=0; //... и не выпадал пока ни разу
for i03:=1 to FK do begin
rnd:=Random(37); //Генерируем случайное число
if rnd=MyNumb then begin //Если это наш искомый номер ...
if not found then begin
inc(T[i03]); //...то записываем на каком шаге он выпал в первый раз ...
found:=true; //...и запоминаем, что первое выпадение уже было...
end;
Inc(foundCnt); //Увеличиваем счётчик количества выпадений искомого номера
end;
end;
if not found then inc(T[0]); //Если номер так и не удалось найти, то фиксируем это
inc(K[foundCnt]); //Записываем в массив для отчёта, сколько раз выпал наш номер
end;

end;

if i01=1000000 then begin //Обновляем отчёт после миллиона испытаний
i01:=0;
PrintInfo;
end;
if FNeedStop then begin //Если пользователь нажал СТОП, то обновляем отчёт и выходим из цикла
PrintInfo;
break;
end;