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 Ada :

  1. WITH TEXT_IO;
  2.  
  3. PROCEDURE FibonacciSamples IS 
  4.    USE TEXT_IO;
  5.    
  6.    FUNCTION Fibonacci(N:IN Integer) RETURN Integer IS
  7.       U,V,W:Integer;
  8.    BEGIN      
  9.       IF N <= 0 THEN         
  10.          RETURN 0;         
  11.       END IF;
  12.       IF N = 1 THEN 
  13.          RETURN 1;         
  14.       END IF;
  15.       U := 0;      
  16.       V := 1;      
  17.       FOR I IN 2..N LOOP
  18.          W := U + V;         
  19.          U := V;         
  20.          V := W;         
  21.       END LOOP;      
  22.       RETURN V;
  23.    END Fibonacci;
  24.    
  25.  
  26. BEGIN
  27.    FOR I IN 0..10 LOOP
  28.       PUT_LINE("Fibonacci(" & INTEGER'IMAGE(I) & ")=" & INTEGER'IMAGE(Fibonacci(I)));
  29.    END LOOP;
  30. END FibonacciSamples;

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 25 août 2012