19.01.2014, 14:19 | #1 (permalink) |
Новичок
Регистрация: 19.01.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Монета бросается 50 раз / MS Office Excel
"Герба" 25 раз. |
19.01.2014, 14:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посмотрите, может быть в обсуждаемых топиках проблема уже решена Microsoft Office 2013 и Microsoft Office 2010 Игральный кубик бросается 6 раз, MS Office Excel Дана матричная система MS Office |
19.01.2014, 14:24 | #2 (permalink) |
Радиоинженер
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,300
Записей в дневнике: 7
Сказал(а) спасибо: 292
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
|
1 / (50 * 2) = 0,01
И это если монетка ни разу не встанет на ребро. Остальные задачи, может, сами по аналогии решите? |
19.01.2014, 15:23 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Нет, увы - так дело не пойдёт. Искомая вероятность р есть
Поясню. Вероятность любого наперед заданного расклада, в том числе такого, при котором 25 определенных монет упадут "орлом" ("гербом") вверх, есть, учитывая независимость исхода каждого броска от предыдущих результатов, (1/2) в пятидесятой степени. Эту величину надлежит умножить на количество всех возможных комбинаций по 25 монет, или на количество сочетаний из 50 по 25. |
19.01.2014, 15:29 | #4 (permalink) |
Радиоинженер
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,300
Записей в дневнике: 7
Сказал(а) спасибо: 292
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
|
Я исходил немного из других соображений:
Перебрал все возможные результаты выпадений и поместил их в знаменатель. В числителе же оказалась единица, т.к. при всех возможных вариантах, 25 выпадает только один раз. |
19.01.2014, 15:53 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Коля, я хода Ваших рассуждений понять не могу, но подумайте вот над чем: при устремлении числа бросаний к бесконечности искомая вероятность составит 0.5. Ограниченность числа испытаний ее, конечно, снижает - но не столь же радикально! У меня получилось чуть больше 0.1, что, по-моему, разумно, у Вас же - 0.01, что на правду совсем не похоже.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.01.2014, 16:57 | #7 (permalink) | |
Радиоинженер
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,300
Записей в дневнике: 7
Сказал(а) спасибо: 292
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
|
Цитата:
кочевник, у нас тут чисто научный диспут. |
|
19.01.2014, 17:03 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var N,i:LongInt; Sum,j:Byte; Begin Randomize; N:=0; for i:=1 to 1000000 do begin Sum:=0; for j:=1 to 50 do Inc(Sum,Random(2)); if Sum=25 then Inc(N); end; Writeln('P= ',N/1000000:0:5); Readln End. Вопросы? |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|