Ecrire une algorithme qui resoudre une équation de 1ere degré
écrire une algorithme qui resoudre une équation de 1ere degré
Enocé
écrire une algorithme qui resoudre une équation de 1ere degré
Solution
PROGRAM Eq_1er_degre;
VAR a, b : REAL;
BEGIN
WRITELN(‘Résolution de ax + b = 0’);
WRITE(‘Introduisez a: ‘);
READLN(a);
WRITE(‘Introduisez b: ‘);
READLN(b);
IF a=0 THEN IF b=0 THEN WRITELN(‘Equation indéterminée.’)
ELSE WRITELN(‘Equation impossible.’)
ELSE WRITELN(‘x = ‘, -b/a:5:2)
END.