Langage pascal

Résolu/Fermé
le major - 1 déc. 2008 à 13:22
Benz37 Messages postés 83 Date d'inscription vendredi 5 décembre 2008 Statut Membre Dernière intervention 3 mai 2014 - 5 déc. 2008 à 20:34
Bonjour,
slt svp je veux un algo qui permet de resoudre ax²+bx+c=0
et merci à tt

1 réponse

Benz37 Messages postés 83 Date d'inscription vendredi 5 décembre 2008 Statut Membre Dernière intervention 3 mai 2014 23
5 déc. 2008 à 20:34
procedure solv(a,b,c:real; var x1,x2:real)
var Delta:real;
begin
if a=0 then
if b=0 then
if c=0 then
writln("il y a une infinité de solution");
else
writln("pas de solution");
else
x1:=-c/b;
else
begin
Delta:=sqr(b)-4*a*c;
if delta<0 then
writeln("Pas de solution réelles");
else
begin
x1=(-b-sqrt(delta))/(2*a);
x2=(-b+sqrt(delta))/(2*a);
end;
end;
end;
0