La suite de Fibonacci

' ******************************************************************************
'
'  La suite de Fibonacci par PAPYDALL
'
'            FIBO.BAS
'
' ******************************************************************************
' Leonardo Fibonacci, mathématicien italien du XIII siècle a posé dans l'un de
' ses ouvrages le problème suivant :
' Un homme met un couple de lapins dans un lieu isolé de tous les côtés par un
' mur. Combien de couples obtient-on en un an si chaque couple engendre tous les
' mois un nouveau couple à compter du troisième mois de son existence ?
' On suppose que :
' au début du premier mois, il y a juste une paire de lapereaux ;
' les lapereaux ne procréent qu'à partir du  troisième mois ;
' chaque mois, toute paire susceptible de procréer engendre effectivement une
' nouvelle paire de lapereaux ;
' la nourriture est abondante et les lapins ne meurent jamais.
' ------------------------------------------------------------------------------
' La suite de Fibonacci est donc strictement croissante.
' Les termes de cette suite sont appelés "Nombres de Fibonacci"
' ******************************************************************************

Run() : end
' ******************************************************************************
SUB Run()
    dim n ,r$
    top 0,200 : left 0,400
    memo 1 : width 1, 200 : height 1,3000 : print_target_is 1
    Caption 0," La suite de Fibonacci par : PAPYDALL"
    repeat
        repeat
              r$ = message_input$("Entrer la valeur N (> 1)","N = ","2")
        until numeric(r$) = 1
    until val(r$) > 1
    n = val(r$) : fibonacci(n)
END_SUB
' ******************************************************************************
SUB fibonacci(n)
  dim_local fib0,fib1,fib2,i
  fib0 = 0 : fib1 = 1
  print "F0 = " ; fib0 : print "F1 = " ; fib1
  FOR i = 2 TO n
      fib2 = fib1 + fib0 : PRINT "F";i;" = ";fib2
      fib0 = fib1 : fib1 = fib2
  NEXT i
END_SUB
' ******************************************************************************