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 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)=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 : Mardi, le 28 juillet 2015