Форум » Для флейма » Парадокс Монти Холла » Ответить
Парадокс Монти Холла
SADSTAR2: http://ru.wikipedia.org/wiki/%CF%E0%F0%E0%E4%EE%EA%F1_%CC%EE%ED%F2%E8_%D5%EE%EB%EB%E0 Что-то мне непонятно рассуждение. Решил проверить в лоб. Набросал программку. [pre2] function Start() local k1:=0 //количество успехов при изменении выбора local k2:=0 //количество успехов без изменения выбора local k3:=0 //всего попыток local nMa, n, nVed lStop:=.f. wMain.btn_Stop.Enabled:=.t. wMain.btn_Start.Enabled:=.f. do while !lStop k3++ wMain.txt_3.Value:=k3 nMa:=random(3) //положение машины n:=random(3) //выбор игрока //открытие ведущим for nVed:=1 to 3 if nVed=nMa .or. nVed=n; loop; endif next //проверяем результат if nMa=n //угадал и не сменил k2:=k2+1 else k1:=k1+1 endif wMain.txt_1.Value:=k1 wMain.txt_2.Value:=k2 DO EVENTS //hb_idleSleep( 0.5 ) enddo return Nil function Stop() lStop:=.t. wMain.btn_Stop.Enabled:=.f. wMain.btn_Start.Enabled:=.t. return Nil [/pre2] Я поразился - соотношение 2/3 подтверждается!!! Но в голове не укладывается. Единственное сомнение - правильность алгоритма. Проверьте алгоритм. Может я накосячил.
Ответов - 3
SADSTAR2: Ура!!!! Понял !!!!
Andrey: Однако... Видать много свободного времени у вас !
SADSTAR2: считай это самообразованием - расширением кругозора
полная версия страницы