Algorithme de résolution de l'équation aX+b=0 et sa traduction en Pascal

 a)  Problème :

Ecrire un algorithme qui permet de résoudre l’équation ax+b=0, traduir l'algorthme en pascal puis donner le résultat de l'execution.

    b) Analyse :

►    Données (Données d’entrée ):

ü a,b: les coefficients de l’équation

►   Résultats (Données de sortie) :

X : la solution de l’équation

►   Actions :

o   Si a ¹ 0 :

§  X=-b/a

o   Sinon :

§  Si b¹0 :

·        L’équation n’a pas de solution

§  Sinon :

·        La solution est IR.

    c)    Conception :

Algorithme   equation2 ;

Variable 

            a,b,x :Reel ;

Debut

            Ecrire(‘ Saisir les coefficients de l’équations a et b :’) ;

            Lire(a,b) ;

            Si a<>0 alors 

xß-b/a ;

Ecrire (‘La solution est :’ ,x) ;

                       sinon

                                     si b<>0  alors

Ecrire (‘l’équation n’a pas de solution’) ;

       sinon

Ecrire (‘La solution est IR’) ;

                                    Finsi

                        finsi

Fin

Organigramme: 

    d)  Traduction :

program   equation2 ;

Var

            a,b,x :Real ;

begin

            writeln(‘ Saisir les coefficients de l’’équations a et b :’) ;

            read(a,b) ;

            if a<>0 then 

                        begin

x :=-b/a ;

Ecrire (‘La solution est :’ ,x) ;

                                    end

                        else

                            begin

                                    if b<>0  then

                                               begin

writeln (‘l’’équation n’’a pas de solution’) ;

       end

        else

            begin

writeln (‘La solution est IR’) ;

  end ;

end;

end.

    e)   Exécution :

 

Exemple1	Exemple2	Exemple3