|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.04.2011, 16:31 | #1 |
Новичок
Джуниор
Регистрация: 02.04.2011
Сообщений: 1
|
метод статического моделирования (метод Монте-Карло)
помогите написать программы в паскале:
1. Стрелок делает серию из 5-ти выстрелов по мишени. Вероятность того, что он попадает в мишень равна 0,65. Найти вероятность того, что он попадет в мишень хотя бы 3 раза. 2. Определить вероятность того, что среди 6-ти розданных карт есть по крайней мере 4 карты одной масти. (в колоде 36 карт). вторую задачу сделала так (преподаватель сказал, что высчитывает не правильно): Program lab42; const N=100000; var i,f,h,l,g:integer; d,k:real; j,count:longint; begin randomize; count:=0; for j:=1 to N do begin f:=0; g:=0; l:=0; h:=0; for i:=1 to 6 do begin d:=random(36); if (d<9) then g:=g+1; if (g>=4) then count:=count+1; if (9<=d) and (d<18) then h:=h+1; if (h>=4) then count:=count+1; if (18<=d) and (d<27) then l:=l+1; if (h>=4) then count:=count+1; if (27<=d) and (d<35) then f:=f+1; if (f>=4) then count:=count+1; end; end; k:=100*count/N; writeln('verojatnost ravna ',k:6:3,'%'); readln; end. Последний раз редактировалось 666Julia666; 02.04.2011 в 16:41. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача Коммивояжера. Метод Монте-Карло и метод приращений. [Паскаль] | U9110 | Помощь студентам | 4 | 06.04.2011 09:48 |
Метод Монте-Карло | Sasha124 | Помощь студентам | 6 | 11.01.2011 05:45 |
Метод Монте-Карло.Освещение. Делфи,С++ | pavlucios | Помощь студентам | 0 | 22.09.2010 02:29 |
Метод Монте-Карло | LiptonICE | Помощь студентам | 6 | 07.05.2010 20:37 |
интегралы и метод монте-карло | byte916 | Помощь студентам | 2 | 19.01.2010 16:13 |