Referat.me

Название: Вычисление вероятности игры в КРЭКСкости

Вид работы: реферат

Рубрика: Информатика

Размер файла: 14.19 Kb

Скачать файл: referat.me-130514.docx

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

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

Игра в крэкс ”( 2 кости).

Правила такие.Игрок бросает 2 кости и подсчитывает сумму S выпавших очков. Он сразу же выигрывает,если S=7 или 11,и проигрывает,если 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;{если ни одно из условий выше не подошло,то “пойнту” присваеваем

значение 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 (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 .

После запуска программы требуется ввести количество партий .В результате программа выдаст количество выигранных и проигранных партий , а так же посчитает вероятность выигрыша . -

Количество партий (n)

Количество выигрышей

(В)

Количество пригрышей

(П)

Вероятность выигрыша

P(В)

10

4

6

0.4

100

45

55

0.45

1000

492

508

0.492

10000

4926

5074

0.4926

Похожие работы

  • История развития вычислительной техники 2 2

    ИСТОРИЯ РАЗВИТИЯ ВЫЧИСЛИТЕЛЬНОЙ ТЕХНИКИ волынский Николай 1 курс, группа скт1 Кости с зарубками («вестоницкая кость», Чехия, 30 тыс. лет до н.э) Вильгельм Готфрид Лейбниц

  • Измерение информации

    Реферат на тему: Измерение информации. Объемный и вероятностный подход. Выполнил: ученик 10 класса Школы №52 Ибрагимов Орхан. Содержание. Введение………………………………………….3

  • Игра Кто хочет стать миллионером

    Кафедра системного анализа и управления Курсовая работа По технологии программирования «Игра ‘Кто хочет стать миллионером?’» Дубна, 2003 Оглавление

  • Игра Кости

    Оглавление Введение 1. Разработка эскизного и технического проектов программы 1.1. Назначение и область применения 5 1.2. Технические характеристики 5

  • Матричные игры

    ТЕМА: «МАТРИЧНЫЕ ИГРЫ» СОДЕРЖАНИЕ ВВЕДЕНИЕ…………………………………………………………….……………………...…3 1.ТЕОРИЯ ИГР...………………………………………………………………………………3 2.ТЕОРИЯ МАТРИЧНЫХ ИГР……………………………………………………………....4

  • Программа игры Кости

    Министерство науки и образования РФ Федеральное агентство по образованию Государственное образовательное учреждение Профессионального высшего образования

  • Разработка программы, моделирующую игру Кости

    Основные данные о работе Вид работы Курсовая работа Название дисциплины Программирование на языке высокого уровня Тема Разработайте программу, моделирующую игру «Кости»

  • Турбо Паскаль 7.0

    ТЕМА: ТурбоПаскаль7.0 Логические операторы и операторы цикла. Отладка программ. Укороченная форма оператора if В операторе if часть, начинающаяся словом else, может отсутствовать. Часть, следующая за словом then, выполняется, если логическое условие, стоящее после слова if, имеет значение true.

  • Теория игр 2

    Федеральное государственное образовательное учреждение среднего профессионального образования «Омский промышленно-экономический колледж» КУРСОВАЯ РАБОТА

  • Задачи по математике и информатике

    Федеральное агентство по образованию Государственное образовательное учреждение Высшего профессионального образования «Российский государственный профессионально-педагогический университет»