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 DarkBASIC:
FOR I=0 TO 10
PRINT "Fibonacci("+STR$(I)+")="+STR$(Fibonacci(I))
NEXT
WAIT KEY
FUNCTION Fibonacci(n)
LOCAL i,w,u,v
IF n <= 0 THEN ReturnValue=0:EXITFUNCTION
IF n = 1 THEN ReturnValue=1:EXITFUNCTION
u = 0
v = 1
FOR i=2 TO n
w = u+v
u = v
v = w
NEXT
ReturnValue=v
ENDFUNCTION ReturnValue
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 : Samedi, le 4 octobre 2008