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 Oberon .NET :
MODULE fibo;
VAR
I:INTEGER;
PROCEDURE Fibonacci(n:INTEGER):INTEGER;
VAR
w,u,v,i:INTEGER;
BEGIN
IF n <= 0 THEN
RETURN 0;
END;
IF n = 1 THEN
RETURN 1;
END;
u:=0;
v:=1;
FOR i := 2 TO n DO
w := u + v;
u := v;
v := w;
END;
RETURN v;
END Fibonacci;
BEGIN
FOR I := 0 TO 10 DO
WRITELN("Fibonacci(",I,")=",Fibonacci(I));
END;
END fibo.
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 2 février 2008