Вычисление вероятности игры в КРЭКС(кости) . Практическое задание. Информационное обеспечение, программирование.

Вычисление вероятности игры в КРЭКС(кости) . Практическое задание. Информационное обеспечение, программирование.




💣 👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻


























































Информационное обеспечение, программирование

Вы можете узнать стоимость помощи в написании студенческой работы.


Помощь в написании работы, которую точно примут!

Похожие работы на - Вычисление вероятности игры в КРЭКС(кости)
Нужна качественная работа без плагиата?

Не нашел материал для своей работы?


Поможем написать качественную работу Без плагиата!

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




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


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


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


 
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;


     
if (s=7) or (s=11) then begin {проверка суммы на выигрыш }


     
if (s=2) or (s=3) or (s=12) then begin {проверка на проигрыш}


 
repeat {бросаем кости пока
не выпадет “пойнт” или 7}


    
5:s1:= random(7); if s1= 0 then
goto 5;


    
6:s2:= random(7); if s2= 0 then goto 6;


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


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


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


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


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


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


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


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






Похожие работы на - Вычисление вероятности игры в КРЭКС(кости) Практическое задание. Информационное обеспечение, программирование.
Метание Мяча Реферат По Физкультуре Картинки
Особенности Современной Экономики России Реферат
Курсовая На Тему Анализ Предприятия
Реферат: Тест на проверку усвоения материала > Темы для повторения
Заключение К Реферату Современные Космические Обсерватории
Реферат: Трагедия Чацкого. Скачать бесплатно и без регистрации
Реферат: The Awakening Concepts Of Morality Essay Research
Реферат по теме Влияние природно-географических условия на здоровье человека в Краснодарском крае и Белореченском районе
Реферат по теме Стратегия социально-экономического развития Томской Области до 2030 года
Сочинение Про Бабушку И Дедушку 5 Класс
Реферат: Алгоритм сжатия исторической информации
Дипломная Работа На Тему Особенности Развития Туризма На Юге России
Дипломная работа по теме Особенности функционирования терминосистемы сферы обслуживания в гражданской авиации на материале английского языка
Итоговое Сочинение 2022 Конспект Урока
Курсовая Работа На Тему Основные Средства Предприятий Индустрии Гостеприимства И Туризма
Сочинение Рассуждение Слово Делом
Регенты В Истории России Реферат
Курсовая работа: Мотивация и стимулирование работников на рынке труда. Скачать бесплатно и без регистрации
Социальная Адаптация Инвалидов Курсовая Работа
Доклад по теме Задание физического формата вселенной
основных средств в качестве вклада в уставный капитал
Реферат: Программы и методические рекомендации для слушателей Восточно­Европейского Института Психоанализа первый курс
Похожие работы на - Анализ прекращения предпринимательской деятельности

Report Page