|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.01.2017, 19:24 | #1 |
Новичок
Джуниор
Регистрация: 27.01.2017
Сообщений: 1
|
[pascal]: Задача по теории вероятности
В порт в среднем приходят 3 корабля в день. Какова вероятность того, что в день
придет 2 корабля, 4 корабля? Вероятность вычислять по формуле Р = 3 * е - 3 / к!. Использовать подпрограмму для расчета к!. Помогите кому не трудно Последний раз редактировалось Вадим Мошев; 27.01.2017 в 22:45. |
28.01.2017, 13:02 | #2 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,950
|
Код:
|
28.01.2017, 15:30 | #3 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Странная у вас какая-то формула. Для Пуассоновского распределения :
P(m) = a^m * exp(-a) / m! где а - это ваши 3, а m - это 1,2,3,4.... Вот расчет для 1..12 кораблей: 1 ст. - число кораблей, 2-й - вероятность, 3-й - суммарная вероятность. Если прибавить вероятность, что никто не придет ( 0,04979 ), то получим практически полную систему Р = 1.0 1 0,1494 0,1494 3 0,04979 1 2 0,2240 0,3734 9 0,04979 2 3 0,2240 0,5974 27 0,04979 6 4 0,1680 0,7655 81 0,04979 24 5 0,1008 0,8663 243 0,04979 120 6 0,0504 0,9167 729 0,04979 720 7 0,0216 0,9383 2187 0,04979 5040 8 0,0081 0,9464 6561 0,04979 40320 9 0,0027 0,9491 19683 0,04979 362880 10 0,0008 0,9499 59049 0,04979 3628800 11 0,0002 0,9501 177147 0,04979 39916800 12 0,0001 0,9502 531441 0,04979 479001600 1,0000 Последний раз редактировалось digitalis; 29.01.2017 в 10:42. |
30.01.2017, 17:03 | #4 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Все, спросивший растворился в тумане, как ёжик ...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Turbo Pascal/Free Pascal/PascalABC.NET как новый инструмент экстрасенсов | Biohazard333 | Свободное общение | 5 | 25.09.2016 12:25 |
pascal abc, pascal turbo. выборка данных из одного .txt в другой | ТипичныйСтудент | Помощь студентам | 6 | 27.04.2013 15:29 |
Задача turbo pascal на тему: файлы с произвольным доступом в Pascal | ExCiTeC | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 28.01.2013 20:36 |
Программы в Pascal, среда pascal ABC. Лабораторные работы | Одинокая Волчица | Фриланс | 8 | 10.02.2012 20:09 |
а free pascal не читает задачи которые написаны на turbo pascal? | demonara | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.05.2009 16:28 |