Patrick Corde & Anne Fouilloux

Les itérations 75
Exemple
Sommation de la série P n≥1 1/n2 jusqu’à ce que le
terme général soit inférieur à ɛ fois la somme partielle
courante :
PROGRAM iteration_while
INTEGER
DOUBLE PRECISION
DOUBLE PRECISION, PARAMETER
LOGICAL
:: n
:: somme
:: epsilon = 1.d-3
:: fini
! Initialisation
n=0
somme=0.d0
fini=.FALSE.
DO WHILE (.not. fini)
n=n+1
somme=somme + 1d0/n**2
fini=(1d0/n**2 .LT. epsilon*somme)
END DO
print *,"Nombre d’itérations : ", n
print *,"Somme = ", somme
END PROGRAM iteration_while
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux