CLS : GOTO 240
a:
IF x1% / 2 = INT(x1% / 2) THEN c% = c% + 1
IF x2% / 2 = INT(x2% / 2) THEN c% = c% + 1
IF x3% / 2 = INT(x3% / 2) THEN c% = c% + 1
IF x4% / 2 = INT(x4% / 2) THEN c% = c% + 1
IF x5% / 2 = INT(x5% / 2) THEN c% = c% + 1
IF x6% / 2 = INT(x6% / 2) THEN c% = c% + 1
IF c% = 2 THEN z2 = z2 + 1: c% = 0: RETURN
IF c% = 4 THEN z4 = z4 + 1: c% = 0: RETURN
IF c% = 5 THEN z5 = z5 + 1: c% = 0: RETURN
IF c% = 1 THEN z1 = z1 + 1: c% = 0: RETURN
IF c% = 6 THEN z6 = z6 + 1: c% = 0: RETURN
IF c% = 0 THEN z0 = z0 + 1: RETURN
c% = 0: RETURN
240 : PRINT : PRINT : PRINT : PRINT : INPUT " 6 aus ", e%: TIME$ = "0:00:00"
PRINT : PRINT " Ermittlung der gerade/ungerade Verteilung"
PRINT : PRINT " Bitte warten ! (Ben”tigt z.B. bei 6 aus 20 bereits 1min 22s)"
x2% = 1: x3% = 2: x4% = 3: x5% = 4: x6% = 5
e1% = e% - 5: e2% = e% - 4: e3% = e% - 3: e4% = e% - 2: e5% = e% - 1
b:
x1% = x1% + 1
c:
x2% = x2% + 1
d:
x3% = x3% + 1
f:
x4% = x4% + 1
g:
x5% = x5% + 1
h:
x6% = x6% + 1: z = z + 1
GOSUB a
IF x1% = e1% THEN GOTO 530
IF x2% = e2% THEN x2% = x1% + 1: x3% = x2% + 1: x4% = x3% + 1: x5% = x4% + 1: x6% = x5% + 1: GOTO b
IF x3% = e3% THEN x3% = x2% + 1: x4% = x3% + 1: x5% = x4% + 1: x6% = x5% + 1: GOTO c
IF x4% = e4% THEN x4% = x3% + 1: x5% = x4% + 1: x6% = x5% + 1: GOTO d
IF x5% = e5% THEN x5% = x4% + 1: x6% = x5% + 1: GOTO f
IF x6% = e% THEN x6% = x5% + 1: GOTO g
GOTO h
530 : PRINT : PRINT " 6 aus "; e%
z3 = z - z1 - z2 - z4 - z5 - z6 - z0
PRINT : PRINT " Anzahl aller Kombinationen "; z
PRINT :
PRINT : PRINT , "0g/6ug: "; z0
PRINT , "1g/5ug: "; z1
PRINT , "2g/4ug: "; z2
PRINT , "3g/3ug: "; z3
PRINT , "4g/2ug: "; z4
PRINT , "5g/1ug: "; z5
PRINT , "6g/0ug: "; z6
PRINT " Rechenzeit des Computers "; TIME$; "(hh:mm:ss)"