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 QuickBASIC :
- DECLARE FUNCTION Fibonacci! (n!)
- FOR i = 0 TO 10
- PRINT "Fibonacci(" + STR$(i) + ")=" + STR$(Fibonacci(i))
- NEXT
-
- FUNCTION Fibonacci (n)
- IF n <= 0 THEN
- Fibonacci = 0
- EXIT FUNCTION
- END IF
- IF n = 1 THEN
- Fibonacci = 1
- EXIT FUNCTION
- END IF
- u = 0
- v = 1
- FOR i = 2 TO n
- w = u + v
- u = v
- v = w
- NEXT
- Fibonacci = v
- END FUNCTION
on obtiendra le résultat suivant :
Fibonacci(0)=0Fibonacci(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
Dernière mise à jour : Mercredi, le 14 septembre 2016