Вычисление ймовірності гри акторів-професіоналів у КРЭКС (кости)
Writeln (‘Выигрыш = ‘, w,'числу раз'); writeln (‘Проигрыш = ‘, p,'числу раз'); delay (10 000);{Задержка — нужна, чтобы які генеруються числа не повторювалися} end;{конец моделювання «n» партій } wer:=(w/n);{Вероятность виграшу дорівнює відношенню числа виграшів і кількості партій на крэкс } writeln (‘Вероятность виграшу дорівнює = ‘, wer); readln; END. S2:= random (7); if s2 = 0 then goto 4… Читати ще >
Вычисление ймовірності гри акторів-професіоналів у КРЭКС (кости) (реферат, курсова, диплом, контрольна)
Гра в «крэкс"(2 кістки). Правила такие. Игрок кидає 2 кістки і підраховує суму P. S що випали очок. Він відразу ж выигрывает, если S=7 чи 11, и проигрывает, если P. S є 2;3 чи 12. Будь-яка інша сума — це її «пойнт».Если вперше випадає «пойнт», то гравець кидає кістки до тих пор, пока він або выйграет, выбросив свій «пойнт», або проиграет, получив суму очков, равную 7. Какова ймовірність выигрыша?
Програма складена мовою TURBO PASCAL 7.0 Program kreks; Uses crt; Label 1,2,3,4,5,6;{описание міток} Var s, 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 goto 4; s:=s1 + s2; if (s=7) or (s=11) then begin {перевірка суми з метою виграшу } 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;{если жоден з умов вище не подошло, то «пойнту» присваеваем значення p. s } repeat {кидаємо кістки доки випаде «пойнт» чи 7}.
5:s1:= random (7); if s1= 0 then goto 5;
6:s2:= random (7); if s2= 0 then goto 6; s:=s1 + s2; until (p.s= point) or (s=7); if p. s= 7 then p:=p + 1; if p. s= point then w:=w + 1;
2:writeln (‘Выигрыш = ‘, w,'числу раз'); writeln (‘Проигрыш = ‘, p,'числу раз'); delay (10 000);{Задержка — нужна, чтобы які генеруються числа не повторювалися} end;{конец моделювання «n» партій } wer:=(w/n);{Вероятность виграшу дорівнює відношенню числа виграшів і кількості партій на крэкс } writeln (‘Вероятность виграшу дорівнює = ‘, wer); readln; END.
Після запуску програми потрібно запровадити кількість партій .У результаті програма видасть кількість виграних і програних партій, а як і вважатиме ймовірність виграшу. (|Кількість |Кількість |Кількість |Можливість | |партій (n) |виграшів |пригрышей |виграшу | | |(У) |(П) |P (В) | |10 |4 |6 |0.4 | |100 |45 |55 |0.45 | |1000 |492 |508 |0.492 | |10 000 |4926 |5074 |0.4926 | | |.