Section courante

A propos

Section administrative du site

Vous vous souvenez de la célèbre suite de nombre du mathématicien italien Leonardo Pisano (1170 à 1250) pour calculer à l'origine la croissance de la population de lapin. Selon le spirale suivant :

Voici un programme permettant de calculer le Fibonacci de nombre entier en Liberty BASIC:

  1. FOR I = 0 TO 10
  2.    PRINT "Fibonacci(" + STR$(I) + ")=" + STR$(Fibonacci(I))
  3. NEXT
  4.  
  5. FUNCTION Fibonacci(n)
  6.    IF n <= 0 THEN
  7.      Fibonacci = 0
  8.      EXIT FUNCTION
  9.    END IF
  10.    IF n = 1 THEN
  11.      Fibonacci = 1
  12.      EXIT FUNCTION
  13.    END IF
  14.    u = 0
  15.    v = 1
  16.    FOR i=2 TO n
  17.      w = u+v
  18.      u = v
  19.      v = w
  20.    NEXT
  21.    Fibonacci = v
  22. END FUNCTION

on obtiendra le résultat suivant :

Fibonacci(0)=0
Fibonacci(1)=1
Fibonacci(2)=1
Fibonacci(3)=2
Fibonacci(4)=3
Fibonacci(5)=5
Fibonacci(6)=8
Fibonacci(7)=13
Fibonacci(8)=21
Fibonacci(9)=34
Fibonacci(10)=55

Voir également

Science - Mathématique

Dernière mise à jour : Samedi, le 23 août 2014