XProfan

Windowtitle "Wahrscheinlichkeit, daß in einer Gruppe mindestens "+\
"zwei Personen am selben Tag Geburtstag feiern:"
Windowstyle 24:randomize:cls:declare n&,f!,k&
repeat :Print "\n Wieviele Personen treffen zusammen?: ";:input n&
case n&<=0:break
Print "\n Die Wahrscheinlichkeit, daß 2 oder mehr dieser ";n&;" Personen"
Print " am selben Tag Geburtstag feiern beträgt ";:font 2
k&=365:f!=1:whileloop n&:f!=f!*(366-&Loop)/365:endwhile
print format$("#0.000 %",(1-f!)*100):font 0

until %key=27:font 2:Print "\n Es war sehr schön, es hat mich sehr gefreut!"

font 0:waitinput 3000:End