CLS
PRINT "     Mennyi az eslye, hogy egy n fs osztlybl legalbb ketten"
PRINT "             ugyanakkor nneplik a szletsnapjukat?"
PRINT
DEFDBL T
n = 2
RANDOMIZE TIMER
eleje:
t = 1
FOR i = 1 TO n - 1
t = t * (365 - i) / 365
NEXT
t = (1 - t) * 100
PRINT "ltszm:"; n; ", esly:"; t
n = n + 1
IF n = 154 THEN GOTO jatek
IF INT(n / 20) < n / 20 THEN GOTO tovabb
PRINT "Tovbb? (enter)"
ss: s$ = INKEY$: IF s$ = "" THEN GOTO ss
IF s$ <> CHR$(13) THEN GOTO jatek
tovabb:
GOTO eleje

jatek:
INPUT "Hnyan jrtok egy osztlyba"; n
t = 1
FOR i = 1 TO n - 1
t = t * (365 - i) / 365
NEXT
t = (1 - t) * 100
DIM tomb(n)
j = 1
veletlen:
szam = INT(RND * 365) + 1: PRINT szam;
tomb(j) = szam
IF j = 1 THEN GOTO mehet
FOR k = 1 TO j - 1
IF tomb(k) = szam AND van = 0 THEN talalat = talalat + 1: van = 1: PRINT "";
NEXT k
mehet: j = j + 1
IF j = n + 1 THEN j = 1: szamlalo = szamlalo + 1: van = 0: PRINT : PRINT
a$ = INKEY$
IF a$ <> "" THEN GOTO ertekel
GOTO veletlen
ertekel: PRINT : PRINT
PRINT "A tallatok szzalkos arnya:"; talalat / (szamlalo + 1) * 100
PRINT "Az elmleti esly:"; t

