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 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)=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 4 octobre 2008