DECLARE SUB cbin (n!, k!, c!)
' Calcolo del coeff.binomiale: -> Matematica e Calcolatore, sch.8, es.4
' SE vuoi fare confronti col tempo di CBIN1.bas e se per esso hai
' usato F8, fai altrettanto, ma SOLO per N piccoli:
' per calcolare CBin(20,10) potrebbero volerci piu' di 10 min
PRINT
10
INPUT "n,k"; n, k
t = TIMER
cbin n, k, c
PRINT c,
PRINT "t="; (TIMER - t) * 100
GOTO 10

SUB cbin (n, k, c)
IF k = n OR k = 0 THEN c = 1: EXIT SUB
cbin n - 1, k - 1, a
cbin n - 1, k, c
c = a + c
END SUB