Menu

Programme de resolution du equation de second degre

Messages postés
2
Date d'inscription
dimanche 10 mars 2019
Dernière intervention
10 mars 2019
-
Bonjour, pouvez vous m'aider a corriger ce programme
Uses Wincrt ;
Var
  a,b,c,x,x1,x2 ,delta : Real;
 
Begin
  Write ('a= ');
  Readln (a);
  Write ('b= ');
  Readln (b);
  Write ('c= ');
  Readln (c);
  delta := b*b-4*a*c ;
 x := -c/b ;
 x1:=(-b-Sqrt(delta))/2*a;   x2:=(-b+Sqrt(delta))/2*a  ;
           If a=0 Then If b=0 Then If c=0 Then Write ('soluion dans IR = IR ')
  Else Write ('esemble vide') 
  Else Write(x)
  Else If delta <0 Then Write ('esemble vide')
  Else If delta =0 Then x := -b/2*a ;write(x) 
  Else Write (x1,x2);
End
.




Configuration: Windows / Opera Next 58.0.3135.79
Afficher la suite 

Votre réponse

1 réponse

Messages postés
12940
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 mars 2019
499
0
Merci
Bonjour

pour poster un code merci de lire et d'appliquer ce qui est décrit ici

Tu pourrais peut-être vérifier si tout est égal à 0 avant de faire les calculs.

Y'a au moins une autre vérification que tu pourrais faire avant certains calculs.
Je te laisse y réfléchir.
123-456
Messages postés
2
Date d'inscription
dimanche 10 mars 2019
Dernière intervention
10 mars 2019
-
merci beaucoup j'arrive pas a comprendre pouvez vous m' expliquer plus clairement
Whismeril
Messages postés
12940
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 mars 2019
499 -
Je pourrais, mais j’essaye de te faire réfléchir.
Ne vois tu pas un de tes calculs qui mériterait une vérification avant de le faire
Commenter la réponse de Whismeril