это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
Игра в “крэкс”(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 |
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн
Теория вероятностей 9 класс , тесты
Решение задач, Теория вероятностей и математическая статистика
Срок сдачи к 23 февр.
Написать индивидуальное сообщение на тему: средние века
Другое, Мировая Отечественная художественная культура
Срок сдачи к 23 февр.
Отчёт полный факторный эксперимент первого порядка пфэ
Другое, Методология, электротехника
Срок сдачи к 23 февр.
Выполнить курс "Начертательная геометрия и инженерная графика 2.2". М-08603
Контрольная, Начертательная геометрия и инженерная графика
Срок сдачи к 21 мар.
Конфигурирование и настройка аппаратно-программных офисных...
Курсовая, МДК, информатика, электротехника
Срок сдачи к 24 февр.
Организация местного самоуправления( на примере своего поселения, муниципального района, городского округа)
Реферат, Муниципальное управление и местное самоуправление
Срок сдачи к 12 мар.
Презентация на 18 слайдов
Презентация, Стратегический менеджмент и управление проектами в государственном управлении
Срок сдачи к 3 апр.
И. В. Витте, Выбрать тему, сделать задание по рекомендациям
Курсовая, Гражданское право
Срок сдачи к 15 мая
Дипломная работа на тему «Методика применения компьютерных обучающих программ на уроках английского языка»
Диплом, Педагогика и Английский язык
Срок сдачи к 13 апр.
Заполните форму и узнайте цену на индивидуальную работу!