Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.90/21: Рейтинг темы: голосов - 21, средняя оценка - 4.90
 Аватар для AlexKop
5 / 5 / 0
Регистрация: 10.10.2011
Сообщений: 36

Задачки на теорию вероятности

25.04.2012, 20:22. Показов 4200. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте!
Помогите пжл написать программки к задачам (во вложении), что бы считала вероятность благополучных исходов. Например какова вероятность благополучных исходов, что при бросании 100 раз кубика выпадет шестёрка?
Номера заданий: 1.8, 2.9, 2.40, 4.10, 5.12
Заранее ОЧЕНЬ Благодарен!
Спасибо!
Миниатюры
Задачки на теорию вероятности   Задачки на теорию вероятности   Задачки на теорию вероятности  

Задачки на теорию вероятности   Задачки на теорию вероятности  
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.04.2012, 20:22
Ответы с готовыми решениями:

Задачи на теорию вероятности
нужна помощь! простите за наглость но деваться некуда кто может оказать помощь прошу вас откликнитесь, я уверена в мире не без добрых...

Задача на теорию вероятности
Всем привет. Условие задачи: Официант принимает заказ у n человек (n>2). Он принес верный заказ, но перепутал что кому принадлежит. Какая...

3 задачи на теорию вероятности
Подскажите пожалуйста как решить следующие задачи: 1. Толщина металлического листа соответствует нормальному распределению. При...

5
 Аватар для H@ker
19 / 19 / 17
Регистрация: 25.04.2012
Сообщений: 138
25.04.2012, 21:31
А почему эта тема в разделе программирования? Это надо, используя программу, решить?
0
 Аватар для AlexKop
5 / 5 / 0
Регистрация: 10.10.2011
Сообщений: 36
25.04.2012, 22:54  [ТС]
Цитата Сообщение от H@ker Посмотреть сообщение
А почему эта тема в разделе программирования? Это надо, используя программу, решить?
да тут не решения задачи написать в виде программы, а просто чтоб программа выводила вероятность (оринтеровочно 50-70 строк кода) событий.
Например 1000 раз бросаем кубик, какова вероятность что бы выпала двойка?
т.е. Random(6)-рандомно бросаем кубик, и так 1000 раз, и потом количество раз выпадений двойки поделим на количество всех бросков и получем ответ. все двойки/1000=итог. как то так))
0
 Аватар для H@ker
19 / 19 / 17
Регистрация: 25.04.2012
Сообщений: 138
26.04.2012, 12:26
Цитата Сообщение от AlexKop Посмотреть сообщение
Например 1000 раз бросаем кубик, какова вероятность что бы выпала двойка?
Что-то я, откровенно говоря, не понимаю, в чем суть этой задачи. Какова вероятность, чтобы в n бросаниях хотя бы раз выпала двойка? Ну, если двойка выпадет хотя бы один раз, то тогда P(n=1)=1/6; P(n=2)=11/36 (т.к. при двух бросаниях ситуаций с хотя бы одной двойкой будет 11 из 36: [1;2];[2;2];[3;2];[4;2];[5;2];[6;2];[2;1];[2;3];[2;4];[2;5];[2;6]), а далее там, видимо, должна быть какая-то функция, но я даже не представляю, как это должно выглядеть, уж извините.
Цитата Сообщение от AlexKop Посмотреть сообщение
т.е. Random(6)-рандомно бросаем кубик, и так 1000 раз, и потом количество раз выпадений двойки поделим на количество всех бросков и получем ответ. все двойки/1000=итог. как то так))
Здесь могу тоолько написать такой код, но к чему это вообще нужно, не представляю, потому что высчитывается даже не вероятность, а доля количества выпадений двоек к общему кол-ву выпадений.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program z9;
     Uses Crt;
     Var x:array [1..1000] of byte; i,a:integer; k:real; n:byte;
     Begin
     Clrscr;
     Randomize;
     k:=0;
     Write('Введите кол-во бросаний игральной кости: ');
     ReadLn(a);
     Write('Введите кол-во очков: ');
     ReadLn(n);
     for i:= 1 to a do
     begin
     x[i]:=Random(6);
     if x[i]=n then
     k:=k+1;
     end;
     k:=k/1000;
     WriteLn('Доля выпадений костей с ', n, ' очками: ', k:0:3, '.');
     ReadLn;
     End.
Если надо, чтобы были выведены результаты каждого бросания, надо еще написать в теле цикла for..to..do такую команду: WriteLn(x[i]);. Максимум можно проводить опыт с 1000 бросаниями, иначе будет переполнение массива.

Добавлено через 41 минуту
А вообще, 1.8 я могу решить в текстовом варианте:
а) Может иметь 10*10 = 100 элементарных исходов, и каждое элементарное событие имеет вероятность 1/10*(1/10) = 0.01
б) p(A) = (1-1/10)*(1-1/10) = 0.81 и таких случаев может быть 100-10 = 90
в) p(B) = 10/10*(9/10) = 0.9
г) Это, видимо, произойдет, если только не оба числа равны нулю, т.е. p(C) = 1-1/10*(1/10)=0.99. И таких случаев 100-1 = 99.
К сожалению, про независимость и несовместность я уже плохо помню, поэтому помочь ничем здесь не могу.
Если Вам нужен просто инструмент, который будет проводить опыты, то вот код для него:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Program z10;
     Uses Crt;
     Var x:array [1..2] of byte; i:byte; a,b,c:boolean;
     Begin
     Clrscr;
     Randomize;
     WriteLn('Выбраны числа: ');
     for i:= 1 to 2 do
     begin
     x[i]:=Random(9);
     WriteLn(x[i]);
     if x[i]=0 then
     a:=false
     else
     a:=true;
     end;
     if (x[1]=0) and (x[2]=0) then
     begin
     c:=false;
     b:=false;
     end
     else
     begin
     c:=true;
     if x[1]=x[2] then
     b:=false
     else
     b:=true;
     end;
     WriteLn('Среди выбранных цифр нет нуля - ', a);
     WriteLn('Цифры различаются - ', b);
     WriteLn('Цифры образуют двузначное число - ', c);
     ReadLn;
     End.
Т.е. запуская эту программу, Вы будете проводить опыт, результаты которого затем можно использовать для "ручного" вычисления вероятностей, но таких опытов придется проводить очень много, чтобы получить достаточно достоверный результат. Если понадобится, я могу попробовать сделать так, чтобы компьютер сам проводил какое-то количество опытов (пусть, 1000, например) и просто выводил полученную опытным путем вероятность событий.
2
 Аватар для AlexKop
5 / 5 / 0
Регистрация: 10.10.2011
Сообщений: 36
26.04.2012, 12:53  [ТС]
H@ker, Суть в том что чем больше раз бросаем, тем больше вероятность выпадения двойки. Т.е. посчитать вероятность выпадения 2 за все, к примеру, 1000 бросков. Вероятность может быть от 0 до 1. Например 1000 раз бросили, 500 раз выпала двойка, вероятность выпадения двойки 1\2, т.е. 0,5.
А по программе да, что то типа этого, только там x[i]:=Random(6)+1 будет, а то считает что может выпасть 0, а не 6.

Добавлено через 3 минуты
Вот в текстовом варианте, всё решено, теперь бы программки, просто подсчитывающие вероятность по условию задачи.
1
 Аватар для H@ker
19 / 19 / 17
Регистрация: 25.04.2012
Сообщений: 138
26.04.2012, 16:32
AlexKop, спасибо, что нашли ошибку.

Я так понял, что нужна программа, которая будет выводить интервал возможных значений, которые может принимать доля бросаний с выпадением двоек? Наверное, это можно сделать, я попробую, но не обещаю. По-моему, в большинстве задач это и так понятно... Хотя нет, честно говоря, мне все еще не понятно, в чем будет заключаться работа этих программ. Ладно, подумаю.
Только тогда зачем нам нужно знать, сколько всего будет бросаний (конкретно для этой задачи)?

Просто смысл заключается в том, что вероятность выпадения хотя бы одной двойки из n бросаний игральной кости всегда постоянна (от 0 до 1 - это доля выпадений двоек из n бросаний, а не вероятность!) - вот ее можно попытаться найти с помощью программы. Т.е. принцип работы такой программы будет основываться как раз на том, что при одном бросании вероятность будет равна 1/6, при двух - 11/36 и т.д., т.е. необходимо лишь выработать такую функциональную зависимость.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
26.04.2012, 16:32
Помогаю со студенческими работами здесь

Задачи на теорию вероятности
Нужна помощь! Правила, 5.16. Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один...

задачи на теорию вероятности
1)Прибор работающий в течении времени t, состоит из трёх узлов, каждый из которых независимо от других может за это время выйти из строя....

Задачи на теорию вероятности
Доброго времени суток. Помогите пожалуйста решить 3 задачки по теории вероятности, желательно с объяснением. Хотелось бы понять, как это...

Задача на теорию вероятности (формула Байеса)
На сборку поступают детали с трех автоматов. Первый дает в среднем 5% брака, второй - 6% брака, на 3-й - 1%. На сборку поступило 95 изделий...

Ищу сильного математика, знающего теорию вероятности, статистику!
Здравствуйте! Ищу человека для разовой/постоянной работы в области связанной на прямую с математикой, статистикой и теорией...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru