Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.01.2017, 19:24   #1
Naqo
Новичок
Джуниор
 
Регистрация: 27.01.2017
Сообщений: 1
По умолчанию [pascal]: Задача по теории вероятности

В порт в среднем приходят 3 корабля в день. Какова вероятность того, что в день
придет 2 корабля, 4 корабля? Вероятность вычислять по формуле
Р = 3 * е - 3 / к!. Использовать подпрограмму для расчета к!.
Помогите кому не трудно

Последний раз редактировалось Вадим Мошев; 27.01.2017 в 22:45.
Naqo вне форума Ответить с цитированием
Старый 28.01.2017, 13:02   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
function fact(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 28.01.2017, 15:30   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Странная у вас какая-то формула. Для Пуассоновского распределения :
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.
digitalis вне форума Ответить с цитированием
Старый 30.01.2017, 17:03   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Все, спросивший растворился в тумане, как ёжик ...
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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