Вычисление вероятности игры в КРЭКС (кости)
“ крэкс ”(2 кости).
– это его “пойнт”. Если в первый раз выпадает “пойнт”,то игрок бросает кости до тех пор,пока он или не выйграет,выбросив свой “пойнт”, или не проиграет,получив сумму очков,равную 7. Какова вероятность выигрыша?
Программа составлена на языке TURBO PASCAL 7. 0
Program
Uses crt;
Label 1,2,3,4,5,6;{описание меток}
Var
BEGIN
‘Введите количество партий:’);
forto n do begin“n” партий в крэкс}
randomize;{инициализация генератора случайных чисел}
1:s1:= random(7);{генерирует целые числа от 0 до 6 случайным образом}
if s1=0 then goto“0”}
4:s2:= random(7); if s2 = 0 then goto 4;
s:=s1 + s2;
ifor (s=11)
w:=w + 1;goto 2;end ;
if (s=2) oror
goto 2;end ;
point:=s;{если ни одно из условий выше не подошло,то “пойнту” присваеваем
значение s }
repeat {бросаем кости пока не выпадет “пойнт” или 7}
5:s1:= random(7); if s1= 0 then
6:s2:= random(7); if s2= 0 then
or (s=7);
if s= 7 then p:=p + 1;
if s= point then w:=w + 1;
‘Выигрыш = ‘,w,’числу раз’);
writeln(‘Проигрыш = ‘,p,’числу раз’);
delay(10000);{Задержка – нужна,чтобы генерируемые числа не повторялись}
end“n” партий }
wer:=(w/n);{Вероятность выигрыша равна отношению числа выигрышей к
общему количеству партий в крэкс }
writeln(‘Вероятность выигрыша равна = ‘,wer);
END .
После запуска программы требуется ввести количество партий. В результате программа выдаст количество выигранных и проигранных партий , а так же посчитает вероятность выигрыша. -
|
|
Количество выигрышей
(В)
|
Количество пригрышей
(П)
|
P(В)
|
|
10
|
4
|
6
|
0. 4
|
|
100
|
45
|
55
|
0. 45
|
|
1000
|
492
|
508
|
|
|
10000
|
4926
|
5074
|
0. 4926
|
| 
