Patrick Corde & Anne Fouilloux

Corrigés 231
Corrigé de l’exercice 2
1 program trinome
2 implicit none
3 real, parameter :: epsilon = 1e-6
4 real a, b, c
5 real delta, r_delta, x1, x2
6
7 ! Valorisation des coefficients.
8 a = 3.; b = 7.; c = -11.
9
10 ! a doit ^etre non nul.
11 if ( a > -epsilon .and. a < epsilon ) &
12 stop "a doit ^etre non nul."
13
14 ! calcul du déterminant.
15 delta = b*b - 4*a*c
16 ! cas du déterminant négatif.
17 if( delta < -epsilon ) stop "Pas de racine réelle."
18
19 ! cas du déterminant nul.
20 if ( delta > -epsilon .and. delta < epsilon ) then
21 x1 = -b/(2*a); x2 = x1
22 else ! cas du déterminant positif.
23 r_delta = sqrt( delta )
24 x1 = (-b - r_delta)/(2*a); x2 = (-b + r_delta)/(2*a)
25 end if
26
27 ! Impression des racines.
28 print *,"x1 = ", x1, ", x2 = ", x2
29 end program trinome
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux