Source : Ahmed Fessi

Tâche : Ecrire un programme Pascal qui permet de résoudre l'équation ax+b=0 dans l'ensemble des réels : distinguer les différents cas.

Exemple :

• Entrée : a=3, b=-3
• Sortie : x=1

Correction Problème : Résolution de ax+b=0

Par : Ahmed Fessi

Pascal :

program AxRes;
uses wincrt;
var
     a,b:real;
begin
     readln(a,b);
     if (a=0) then
        if (b=0) then writeln('La solution est IR')
        else writeln('Pas de solution')
     else writeln('La solution est ',(-b/a) :4:2);
end.