Suite de Fibonacci

Table des matières

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

Version en cache

22/12/2024 22:42:47 Cette version de la page est en cache (à la date du 22/12/2024 22:42:47) afin d'accélérer le traitement. Vous pouvez activer le mode utilisateur dans le menu en haut pour afficher la dernère version de la page.

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.