DECLARE SUB cbin (n#, k#, c#)
DEFDBL A-Z
' 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
PRINT
10
INPUT ; "n,k"; n, k
t = TIMER
cbin n, k, c
PRINT TAB(15); c,
PRINT TAB(30); "t="; INT((TIMER - t) * 100)
GOTO 10

SUB cbin (n, k, c)
c = 1
FOR i = 1 TO k
c = c * (n - i + 1) / i
NEXT
END SUB