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

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

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

    Программасоставлена на языке  TURBOPASCAL 7.0

Program kreks;

Usescrt;

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) 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 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