Patrick Corde & Anne Fouilloux

Corrigés 230
Corrigé de l’exercice 1
1 program systeme
2 implicit none
3 real u1,u2
4 real v1,v2
5 real w1,w2
6 real delta, delta_x, delta_y
7 real x,y
8
9 ! Valorisation des coefficients.
10 u1 = 2; u2 = 4
11 v1 = 5; v2 = 11
12 w1 = 7; w2 = 6
13
14 ! Calcul du déterminant principal.
15 delta = u1*v2 - u2*v1
16 if ( delta < 1e-6 ) then
17 print *, "Le système n’a pas de solution unique."
18 stop 4
19 end if
20 ! Calcul du déterminant en x.
21 delta_x = w1*v2 - w2*v1
22 ! Calcul du déterminant en y.
23 delta_y = u1*w2 - u2*w1
24 ! calcul des solutions.
25 x = delta_x/delta
26 y = delta_y/delta
27 ! Impression des solutions.
28 print *, "x = ", x, ", y = ", y
29 end program systeme
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux