tonguim
19Messages postés
27 octobre 2003Date d'inscription
28 jun 2004 à 17:54
C'est juste, il faut tester les valeurs de A et -B. Je proposerai donc plutôt l'algo suivant:
Algo EquationDegre1
{algorithme de résolution d'une équation du type Ax+Bx+c=0}
debut
var A: réel {coéfficient A}
B: réel {coéfficient B}
C: réel {coéfficient C}
X: réel {résultat de l'équation}
afficher("Veuillez saisir A, B, C, tel que Ax+Bx+C=0")
saisir(A,B,C)
tantQue (A = -B)
afficher("Equation impossible à résoudre; veuillez resaisir A et B et C avec A different de -B")
saisir(A,B,C)
finTantQue
X = -C/(A+B)
afficher("La solution de l'équation est: S={")
afficher(X)
afficher("}")
fin