§  Programme de la résolution de l'équation du second degré
§  par pem13 le 11/08/2001

§ Séparation de la résolution de l'équation par rapport aux autres calculs de la liste

AfficheListe (" ")
AfficheListe ("____________________________")

§ Saisies des différents paramètres :

a = SaisieNb ("" "Saisissez la valeur de ""a"" dans" "ax^2 + bx + c")
b = SaisieNb ("" "Saisissez la valeur de ""b"" dans" "ax^2 + bx + c")
c = SaisieNb ("" "Saisissez la valeur de ""c"" dans" "ax^2 + bx + c")

si a = 0

     § Il ne s'agit pas d'une équation du second degré donc pas de résultat à afficher :

     AfficheListe ("a=0, il ne s'agit pas d'une           ")
     AfficheListe ("équation du second degré          ")

sinon

     § Affichage de l'équation :
     § Calcul de la chaine bX:

     si b = 0     §  On affiche pas bX

          chaineb = ""

     sinon

          si b < 0     § On affiche -bX  

               chaineb = "- " +Abs(b) + " X "

          sinon     §  On affiche +bX

               chaineb = "+ " + b + " X "

          fin

     fin


     si c = 0     §  On affiche pas c

          chainec = ""

     sinon

          si c < 0     § On affiche -c

               chainec = "- " + Abs (c)

          sinon     §  On affiche +c

               chainec = "+ " + c

          fin

     fin

     §  On affiche l'équation final :

     AfficheListe (a + " X^2 " + chaineb + chainec + " = 0")

     § Début de la résolution de l'équation :
     § on initialise le chronomètre :

     InitChrono

     § Calcul de delta

     delta = (b*b) - (4*a*c)

     § Affichage de delta

     AfficheListe ("Delta =                                              ")  § on aligne à droite le mot delta 
     AfficheListe (delta)

     § réalisation des différents traitements en fonction de delta :

     si delta = 0

          § Delta est nul :  une racine double : -b/2a
          § Affichage de ce résultat :

          AfficheListe ("Une racine double : -b/2a =               ")
          x0 = -b/(2*a) 
          AfficheListe (Arrondi (x0  2))

     sinon

          si delta > 0 

               § Delta est positif donc deux résultats :
               § Calcul de la racine de Delta :
     
               racdelta = RacineCarrée (delta)

               § Premier résultat : x1 = (-b+ˆ(delta))/2a

               x1 = (-b+racdelta)/(2*a)
               AfficheListe ("x1 = (-b+ˆ(delta))/2a =                   " )
               AfficheListe (Arrondi (x1  2))

               § Deuxième résultat : x2 = (-b-ˆ(delta))/2a

               x2 = (-b-racdelta)/(2*a)
               AfficheListe ("x2 = (-b-ˆ(delta))/2a =                   " )
               AfficheListe (Arrondi (x2  2))

          sinon

               § Delta est négatif donc pas de racine :
     
               AfficheListe ("Delta est négatif , pas de racine")

          fin
     fin


     § fin du traitement, on récupère le temps du chronomètre :

     chrono = TopChrono

     § Affichage du temps mis pour la résolution de l'équation

     AfficheListe ("")
     AfficheListe ("Durée de l'opération :                        ")
     AfficheListe (chrono + " ms")

fin

§ Cloture de la liste :

AfficheListe ("____________________________")
AfficheListe (" ")