Langage pascal
Résolu
le major
-
Benz37 Messages postés 83 Date d'inscription Statut Membre Dernière intervention -
Benz37 Messages postés 83 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
slt svp je veux un algo qui permet de resoudre ax²+bx+c=0
et merci à tt
slt svp je veux un algo qui permet de resoudre ax²+bx+c=0
et merci à tt
A voir également:
- Langage pascal
- Turbo pascal - Télécharger - Édition & Programmation
- Langage ascii - Guide
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Langage binaire - Guide
1 réponse
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;
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;