Вычисление вероятности игры в КРЭКС(кости)

Игра в крэкс 2 кости .Правилатакие.Игрок бросает 2 кости и подсчитывает сумму S выпавших очков. Он сразу же выигрывает,если S 7 или 11,и проигрывает,если S есть 2 3 или 12. Если в первый раз выпадает пойнт ,то игрок бросает кости до техпор,пока он или не выйграет,выбросив свой пойнт , или не проиграет,получивсумму очков,равную 7.Какова вероятность выигрыша?

Программасоставлена на языке TURBOPASCAL 7.0Program kreks Uses crt Label 1,2,3,4,5,6 описание меток Vars,s1,s2,point,i,w,p,n,k,h longint wer real BEGIN writeln Введитеколичество партий readln n for i 1 to n do begin моделирование n партий в крэкс randomize инициализация генератора случайных чисел 1 s1 random 7 генерирует целые числа от 0 до 6 случайнымобразом if s1 0 then goto 1 на кости не может выпасть 0 4 s2 random 7 if s2 0 then goto4 s s1 s2 if s 7 or s 11

thenbegin проверка суммы на выигрыш w w 1 goto 2 end if s 2 or s 3 or s 12 then begin проверка на проигрыш p p 1 goto 2 end point s если ни одно из условий выше не подошло,то пойнту присваеваем значение s repeat бросаем кости пока не выпадет пойнт или 7 5 s1 random 7 ifs1 0 then goto 5 6 s2 random 7 if s2 0 thengoto 6 s s1 s2 until s point or s 7 if s 7 then p p 1 if s point then w w 1 2 writeln Выигрыш ,w, числу раз writeln Проигрыш ,p, числу раз delay 10000

Задержка нужна,чтобы генерируемые числа неповторялись end конец моделирования n партий wer w n Вероятность выигрыша равна отношению числа выигрышей к общемуколичеству партий в крэкс writeln Вероятность выигрыша равна ,wer readln END. После запуска программы требуется ввести количество партий .В результатепрограмма выдаст количество выигранных и проигранных партий , а так жепосчитает вероятность выигрыша . J Количество партий n Количество выигрышей

В Количество пригрышей П Вероятность выигрыша P В 10 4 6 0.4 100 45 55 0.45 1000 492 508 0.492 10000 4926 5074 0.4926