Suite de Fibonacci

Table des matières

Description du code

Exemple d'itération en ADA

Code source ou contenu du fichier

  1. function fib(n : integer) return integer is
  2.   first  : integer := 0;
  3.   second : integer := 1;
  4.   tmp    : integer;
  5. begin
  6.   for i in 1..n loop
  7.     tmp    := first + second;
  8.     first  := second;
  9.     second := tmp;
  10.   end loop;
  11.   return first;
  12. end fib;

Autres extraits de codes en ada

Document créé le 05/10/2009, dernière modification le 28/10/2018
Source du document imprimé : https://www.gaudry.be/sniplet-rf-ada/fibonacci.ada.html

L'infobrol est un site personnel dont le contenu n'engage que moi. Le texte est mis à disposition sous licence CreativeCommons(BY-NC-SA). Plus d'info sur les conditions d'utilisation et sur l'auteur.