équation premier degré ( traiter les différents cas possibles)

ÉNONCÉ

Ecrire un programme intitulé « 1er_degre » qui permet la résolution d’une équation du premier degré à une inconnue X, de forme AX + B = 0.
On suppose que a, b et x sont des réels.
NB : le programme doit traiter tous les cas possibles.
• 1èr cas : a=0 et b=0 --> solution ="IR"
• 2ème cas a=0 et b<>0 --> solution =Impossible
• 4ème cas a<>0 et b quelconque --> solution =-b/a

ANALYSE

Nom : 1er-Degre
Résultat= Sol
Sol=[]
Si a<>0 Alors
Ecrire("La solution de l'équation ",a, "x+", b,"=0 est :",-b/a)
Sinon si b=0 Alors
Ecrire("La solution de l'équation ",a, "x+", b,"=0 est : IR")
Sinon
Ecrire("La solution de l'équation ",a, "x+", b,"=0 est impossible")
Finsi
Finsi
a : Donnée ("saisir a")
b : Donnée ("saisir b")
Fin 1er-Degre

ALGORITHME

0) Debut 1er_degre
1) Ecrire ("saisir a") Lire(a)
2) Ecrire("saisir b") Lire(b)
3) Si a<>0 Alors
Ecrire("La solution de l'équation ",a, "x+", b,"=0 est :",-b/a)
Sinon si b=0 Alors
Ecrire("La solution de l'équation ",a, "x+", b,"=0 est : IR")
Sinon
Ecrire("La solution de l'équation ",a, "x+", b,"=0 est impossible")
Finsi
Finsi
4) Fin 1er-Degre

PASCAL:

Program per_degre;
Uses Wincrt;
Var a,b :real;
begin
Write('saisir a');
Read(a);
Write('saisir b');
Read(b);
If a<>0 Then
Write ('La solution de l''équation ',a :8:3, 'x+', b:8:3,'=0 est :',-b/a:8:3)
Else If b=0 Then
Write('La solution de l''équation ',a:8:3, 'x+', b:8:3,'=0 est IR')
Else
Write('La solution de l''équation ' ,a:8:3, 'x+', b:8:3,'=0 est impossible');

End.