Cod PASCAL pour une equation du second degrés

bonjour,

Je te propose ce code pour turbo pascal 7.

{********************************}
program Equ2deg;

uses crt;

var
a,b,c:real;
x1,x2:real;
delta:real;
txt:string[11];
chaine:string[255];

begin
clrscr;
writeln ('Programme de resolution d''une equation du second degre');
writeln;
writeln('Equation de la forme ax^2+bx+c=0');
writeln;
{saisie des parametres a,b,c}
write('Entrez le coeficient a : ');
readln(a);
write('Entrez le coeficient b : ');
readln(b);
write('Entrez la constante c : ');
readln(c);
writeln;
{calcul de delta}
write('delta = b^2-4ac = ');
delta:=sqr(b)-(4*a*c);
str(delta:5:2,txt);
writeln(txt);
writeln;
{affichage des resultats}
str(a:5:3,txt);
chaine:=concat('L''equation (',txt,')x^2 + (');
str(b:5:3,txt);
chaine:=concat(chaine,txt,')x + (');
str(c:5:3,txt);
chaine:=concat(chaine,txt,') = 0');
writeln(chaine);

{pas de solutions}
if delta<0 then
writeln('n''a pas de solution.');

{solution double}
if delta=0 then
begin
writeln('a une solution double:');
chaine:='x1 = x2 = ';
str((b*-1):5:2,txt);
chaine:=concat(chaine,txt,' / ');
str((2*a):5:2,txt);
chaine:=concat(chaine,txt,' = ');
str((b*-1)/(2*a):5:2,txt);
chaine:=concat(chaine,txt);
writeln(chaine);
end;

{2 racines distinctes}
if delta>0 then
begin
writeln('a deux solutions :');
chaine:='x1 = ';
str((b*-1)- sqrt(delta):5:2,txt);
chaine:=concat(chaine,txt,' / ');
str((2*a):5:2,txt);
chaine:=concat(chaine,txt,' = ');
str(((b*-1)- sqrt(delta))/(2*a):5:2,txt);
chaine:=concat(chaine,txt);
writeln(chaine);

chaine:='x2 = ';
str((b*-1)+ sqrt(delta):5:2,txt);
chaine:=concat(chaine,txt,' / ');
str((2*a):5:2,txt);
chaine:=concat(chaine,txt,' = ');
str(((b*-1)+ sqrt(delta))/(2*a):5:2,txt);
chaine:=concat(chaine,txt);
writeln(chaine);
end;
readln;
end.
{************************************}

Et voila, mais il serait bon que tu essaie par toi meme, ce serait plus instructif. Salut

un programme qui permet de résoudre une équation du second degré

program ma9ni ;

uses wincrt ;

var x1,x2,a,b,c,d,x,delta : real ;

begin
writeln('ecrire a :');
readln(a);
writeln('ecrire b :');
readln(b);
writeln('ecrire c :');
readln(c);
d1:=(b*b)-(4*a*c) ;

if d1 >= 0
then

d:= sqrt(d1) ;
x1:=(-b-d)/(2*a) ;
x2:=(-b+d)/(2*a) ;
writeln(x1 :0 :0);
writeln(x2 :0 :0);

if delta<0
then writeln('l''equation n''admet pas de solution');

end.

program equation;
uses
crt, dos;
var
a,b,c,delta,X1,X2:real;
begin
clrscr;
write('Entrer la valeur de a: ');
readln(a);
write('Entrer la valeur de b: ');
readln(b);
write('Entrer la valeur de c: ');
readln(c);

if a<>0 then
begin
write('Calculons le Discriminant');
writeln;writeln;
delta:=(b*b)-(4*a*c);
write('Delta=',delta:0:1);

if delta>0 then
begin
write('L''équation admet 2 racines différentes');
writeln;
X1:=-b-(sqrt(delta))/2*a;
X2:=-b+(sqrt(delta))/2*a;

write('X1=',X1:0:1);writeln ;
write('X2=',X2:0:1);
end
else if delta=0 then
begin
write('L''équation admet une solution');
X1:=-b/2*a;
write('X=',X1:0:1);
end
else
write('L''équation n''a pas de solution');
end
else
write('L''équation du du premier d'gr' de la forme: bx+c=0');
readln;
end.

Et comment fait-on lorsqu'il faut y introduire les 2 racines complexes quand x<0 ? je n'y arrive pas