Patrick Corde & Anne Fouilloux

Corrigés 232
Corrigé de l’exercice 3
1 program nombre_dor
2 implicit none
3 real, parameter :: epsilon = 1.e-5
4 real :: u_prec, u_cour
5 real :: v_prec, v_cour
6 real :: somme
7 real :: nombre_or
8
10
9 nombre_or = (1. + sqrt(5.))/2.
11 u_prec = 1.; u_cour = 1.
12 do
13 v_prec = u_cour/u_prec
14 somme = u_cour + u_prec
15 u_prec = u_cour
16 u_cour = somme
17 v_cour = u_cour/u_prec
18 if ( abs( (v_cour-v_prec)/v_prec ) < epsilon ) exit
19 end do
20
21 print*, "Limite de la suite (vn) : ", v_cour, &
22 "Nombre d’or : ", nombre_or
23 end program nombre_dor
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux