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 Turbo Basic:
DEF FNFibonacci(n)
LOCAL i,w,u,v
IF n <= 0 THEN FNFibonacci=0:EXIT DEF
IF n = 1 THEN FNFibonacci=1:EXIT DEF
u = 0
v = 1
FOR i=2 TO n
w = u+v
u = v
v = w
NEXT
FNFibonacci=v
END DEF
FOR I=0 TO 10
PRINT "Fibonacci("+STR$(I)+")="+STR$(FNFibonacci(I))
NEXT
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 : Mardi, le 28 juillet 2015