Suite de Fibonacci

Description du code

Code source ou contenu du fichier

  1. PROGRAM F2A
  2. I=35; K=I
  3. CALL F(I)
  4. PRINT *,K,'th Fibonacci number is',I
  5. STOP
  6. END PROGRAM
  7. C
  8. C Routine F(I) qui calcule le I ième nombre de Fibonacci
  9. C
  10. SUBROUTINE F(I)
  11. DIMENSION A(I+1)
  12. A(1)=1; A(2)=1
  13. DO1J=3,I+1
  14. A(J)=A(J-1)+A(J-2)
  15. 1 CONTINUE
  16. I=A(I+1)
  17. RETURN
  18. END SUBROUTINE

Autres extraits de codes en fortran

Document créé le 05/10/2009, dernière modification le 28/10/2018
Source du document imprimé : https://www.gaudry.be/sniplet-rf-fortran/fibonacci.for.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.