2 équations à 2 inconnues

******************************************************************************************
deux équations à deux inconnues.

******************************************************************************************

1   VARIABLES
2     A EST_DU_TYPE NOMBRE
3     B EST_DU_TYPE NOMBRE
4     C EST_DU_TYPE NOMBRE
5     D EST_DU_TYPE NOMBRE
6     E EST_DU_TYPE NOMBRE
7     F EST_DU_TYPE NOMBRE
8     X EST_DU_TYPE NOMBRE
9     Y EST_DU_TYPE NOMBRE
10    G EST_DU_TYPE NOMBRE
11  DEBUT_ALGORITHME
12    AFFICHER "première équation : Ax+By=C"
13    AFFICHER "Quel est le coefficient A ?"
14    LIRE A
15    AFFICHER "Quel est le coefficient B ?"
16    LIRE B
17    AFFICHER "Quel est le coefficient C ?"
18    LIRE C
19    AFFICHER "Deuxième équation : Dx+Ey=F"
20    AFFICHER "Quel est le coefficient de D ?"
21    LIRE D
22    AFFICHER "Quel est le coefficient de E ?"
23    LIRE E
24    AFFICHER "Quel est le coefficient de F ?"
25    LIRE F
26    G PREND_LA_VALEUR -D*B+A*E
27    SI (G==0) ALORS
28      DEBUT_SI
29      AFFICHER "pas de solution ou infinité de solutions"
30      FIN_SI
31      SINON
32        DEBUT_SINON
33        X PREND_LA_VALEUR (-F*B+C*E)/(-D*B+A*E)
34        Y PREND_LA_VALEUR (C-A*X)/B
35        AFFICHER "x vaut :"
36        AFFICHER X
37        AFFICHER "y vaut :"
38        AFFICHER Y
39        FIN_SINON
40  FIN_ALGORITHME