midorya писал(а):
Написал небольшую программку, она выдает в среднем около 70% (проверял на большом количестве испытаний несколько раз)
Если программа действительно небольшая, то покажите её здесь. В ней должна быть ошибка.
Код:
tot=0; even=0
1 tot=tot+1; length=0; last=0
2 length=1-length; call random(ss)
last1=0; if(ss < 0.5) last1=1
if(last+last1 .eq. 2) then
if(length.eq. 0) even=even+1; ratio=1.0*even/tot
if(mod(tot,1000000) == 0) write(*,*) "ratio=",ratio,' tot=',tot/1000000; goto 1
else
last=last1; goto 2
endif
С такой программой у меня получается
