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

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

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

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

Programkreks;

Usescrt;

Label1,2,3,4,5,6;{описание меток}

Vars,s1,s2,point,i,w,p,n,k,h:longint; wer: real;

 BEGIN

     writeln(‘Введите количество партий:’);

      readln(n);

  fori:=1 to n do begin   {моделирование “n” партийв крэкс}

       randomize;{инициализация генератораслучайных чисел}

    1:s1:= random(7);{генерирует целые числа от 0до 6 случайным образом}

     ifs1=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;

     ifs= point then w:=w + 1;

     2:writeln(‘Выигрыш=‘,w,’числу раз’);

     writeln(‘Проигрыш = ‘,p,’числу раз’);

      delay(10000);{Задержка – нужна, чтобыгенерируемые числа не повторялись}

  end;{конец моделирования “n” партий}

     wer:=(w/n);{Вероятность выигрыша равна отношению числавыигрышей к

        общему количеству партий в крэкс }

writeln(‘Вероятность выигрыша равна =‘,wer);

readln;

END.

             После запуска программы требуется ввестиколичество партий.В результате программа выдаст количество выигранных ипроигранных партий, а так же посчитает вероятность выигрыша .<span Times New Roman";mso-hansi-font-family:«Times New Roman»; mso-char-type:symbol;mso-symbol-font-family:Wingdings;mso-no-proof:yes">J

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

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

(В)

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

(П)

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

P(В)

10

4

6

0.4

100

45

55

0.45

1000

492

508

0.492

10000

4926

5074

0.4926

 

   

еще рефераты
Еще работы по программированию, базе данных