Division by 0

Résolu/Fermé
Signaler
Messages postés
50
Date d'inscription
vendredi 8 août 2008
Statut
Membre
Dernière intervention
24 novembre 2012
-
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
-
Bonjour,
j'ai un problème pour compiler un programme en turbo pascal qu'on nous a donné en exo qui consiste à résoudre l'équation axx+bx+c=0 mais il m'écrit que y'a erreur division by zero pour les cas c=0 et bx+c=0. aidez moi svp voici mon algo:
program equation_2nd_degre;
uses crt;
var a,b,c,x,x0,x1,x2,delta:real;
begin
write('Donnez a: '); read(a);
write('Donnez b: '); read(b);
write('Donnez c: '); read(c);
delta:=(b*b)-(4*a*c);
if (a=0) and (b=0) and (c<>0) then
writeln('Cette ‚quation n''existe nulle part!!!')
else
if (a=0) and (b<>0) and (c<>0) then
begin
write('L''‚quation est du 1er degr‚ et admet une solution x0: ',x0);
x0:=(-c/b);
writeln(x0);
end;
if (a=0) and (b=0) and (c=0) then
writeln('Il n''y a pas de solution!!!')
else
if (a<>0) and (b<>0) and (c<>0) or (c=0) then
writeln('L''‚quation est du 2nd degr‚');
if delta>0 then
begin
writeln('L''‚quation admet 2 solutions distinctes x1 et x2: ');
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b+sqrt(delta))/(2*a);
writeln('x1=',x1);
writeln('x2=',x2);
readln;
end
else
if delta=0 then
begin
writeln('L''‚quation admet une racine double x0: ');
x0:=-b/(2*a);
writeln('x0=',x0);
readln;
end
else
if delta<0 then
begin
writeln('L''‚quation n''admet pas de solution dans IR !!!');
readln;
end;
readln;
clrscr;
end.

3 réponses

Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
839
C'est normal ... la méthode du discriminant n'est valable que pour ax²+bx+c=0 avec a différent de 0 ...
d'ailleurs tu le vois bien en faisant (-b-sqrt(delta))/(2*a) ... si a=0 tu divises par 0
1
Messages postés
50
Date d'inscription
vendredi 8 août 2008
Statut
Membre
Dernière intervention
24 novembre 2012
3
ya pas une méthode pour résoudre l'équation du 1er degré?
0
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
839
bah si ... on l'apprend au collège
si t'as ax+b=0
ax=-b
x=-b/a
0
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
839
N'oublie pas de mettre ton sujet en "résolu" si tu n'as plus de soucis ;-)
0