DEFDBL A-Z
' Calcolo del coeff.binomiale: -> Matematica e Calcolatore, sch.8, es.4
' A domanda, rispondi 1 come SI', solo Enter come NO
' Per computer recenti il tempo di calcolo (espresso in centesimi di sec)
' e' nullo. Per rallentare l'esecuzione e ottenere tempi utili per
' valutare la velocita' dell'algoritmo, esegui Step by Step (dal menu Debug
' o piu' semplicemente) premendo F8: tieni premuto F8, a richiesta introduci
' l'input, quando compare la finestra di lista ripremi F8, ...
PRINT
10 INPUT ; " n (<90)"; n: IF n >= 90 THEN GOTO 10
DIM c(n, n)
t = TIMER
FOR i = 0 TO n: c(i, 0) = 1: c(i, i) = 1: NEXT
FOR i = 2 TO n: FOR j = 1 TO i - 1
c(i, j) = c(i - 1, j - 1) + c(i - 1, j)
NEXT: NEXT
PRINT " tempo ="; INT((TIMER - t) * 100);
IF n < 11 THEN INPUT "stampo triangolo"; risp ELSE risp = 0: PRINT
IF risp = 1 THEN
  FOR i = 0 TO n: FOR j = 0 TO i
    PRINT TAB(j * 5 + 1); c(i, j);
  NEXT: PRINT : NEXT
END IF
ERASE c
GOTO 10