Programme de resolution du equation de second degre

Fermé
123-456 Messages postés 2 Date d'inscription dimanche 10 mars 2019 Statut Membre Dernière intervention 10 mars 2019 - Modifié le 10 mars 2019 à 18:05
Whismeril Messages postés 19011 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 10 avril 2024 - 10 mars 2019 à 18:34
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

1 réponse

Whismeril Messages postés 19011 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 10 avril 2024 926
10 mars 2019 à 18:04
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.
0
123-456 Messages postés 2 Date d'inscription dimanche 10 mars 2019 Statut Membre Dernière intervention 10 mars 2019
10 mars 2019 à 18:13
merci beaucoup j'arrive pas a comprendre pouvez vous m' expliquer plus clairement
0
Whismeril Messages postés 19011 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 10 avril 2024 926
10 mars 2019 à 18:34
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
0