Algorithme pour résoudre l'équation du premier degré:
a * x + b = 0
Il faut isoler le terme en x dans un membre et le terme indépendant
dans l'autre.
On obtient: a * x = -b.
Si a est égal à 0, on se retrouve avec l'équation 0 * x = -b
si b est égal à 0, on se retrouve avec l'équation 0 * x = 0
qui est indéterminée
si b n'est pas égal à 0, on se retrouve avec l'équation 0 * x = b non nul
ce qui est impossible
Si a est différent de 0, on divise les 2 membres par a et on obtient
la solution: x = -b/a
réel a, b
écrire "Résolution de ax + b = 0"
écrire "Introduisez a:"
lire a
écrire "Introduisez b:"
lire b
si a=0 alors si b=0 alors écrire "Equation indéterminée."
sinon écrire "Equation impossible."
fsi
sinon écrire "x = ", -b/a
fsi
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.