Résoudre equation avec pascal

Avec Pascal c'est toujours difficile de résoudre quoi que ce soit. Il est bien trop vaniteux pour accepter les remarques.
Oui, il va bien mon nouveau clavier.

bonjour,
j'ai refais le programme mais j'ai pas les bonnes résultats

program thhh ;
var a,b,c,x1,x2,D : real ;
begin
writeln('donner les trois bornes ') ;
readln (a,b,c) ;
if a=0 then
if b=0 then
if c=0 then
writeln ('R est la solution ')
else
writeln ('pas de solution')
else
writeln ('la solution est ',-c/b)
else

begin
D:=b*b-(4*a*c) ;
if D<0 then
writeln ('pas de solution dans R')
else
if D=0 then
writeln('ya une solution',-b/2*a :0:2 )
else
begin
x1:=-b-sqrt (D) / 2*a ;
x2:=-b+sqrt (D) / 2*a ;
writeln ('les solutions ',x1,x2);
end ;
end;
readln ;
end .

voila j'ai refais le programme mais ca marche pas toujours

program equation;
var a,b,c,x1,x2,x0,Delta : real ;
begin
writeln ('donner les bornes de lequation ') ;
writeln ('donner la valeur de a ') ;
readln (a) ;
writeln ('donner la valeur de b ') ;
readln (b) ;
writeln ('donner la valeur de c ') ;
readln (c) ;

if a =0 then
writeln('erreur type')
else
begin
if a =0 and b=0 then
begin
if c =0 then

writeln (' infinite ')
else
writeln ('pas de solution')

else
begin
Delta := b*b - (4 *a*c) ;
if Delta <0 then
writeln ('pas de solution')
else
begin
if Delta = 0 then
begin
x0 := -b / (2*a) ;
writeln (x0) ;
end;
end ;
else
begin
x1 := (-b - sqrt (Delta)) / 2*a ;
x2 := (-b + sqrt (Delta)) / 2*a ;
writeln (x1 ,x2 ) ;
end;

end;
end;
end;

readln;
end .

PROGRAM Equation_de_2eme (input,output);
VAR A,B,C,D,E,F,G,R,x,x1,x2:real;
Begin
writeln('');
writeln(' -| La Structure De Cette Equation Est : ( A*(X*X) + B*X + C ) |-');
write(' Donnez La valeur de A ');
read(A);
write(' Donnez La valeur de B ');
read(B);
write(' Donnez La valeur de C ');
read(C);
writeln('');
if (A=0) then write(' Pas De Solution ! / A=0 / ');
D:=(B*B)-(4*A*C);
if (D<0) then write(' Pas De Solution / Delta est Negatif ! / ');
E:=2*A;
F:=-B;
R:=sqrt(D);
G:=-R;
x:=F/E;
x1:=F-G/E;
x2:=F+R/E;
if (D>0) then
writeln(' Les Resultats Sont x1 = ',x1,' x2 = ',x2)
else
writeln(' Le Resultat De X est : ',x);
writeln('');
writeln('');
writeln(' Les different calcules sont :');
writeln(' Le Resultat De Delta est : ',D);
write(' Le Resultat De Racine de Delta est : ',R);
readln ;
end.

j'ai recu un aide avec ce programme mais ca marche pas encore .
"error 207 : invalid floating point operation ".

Il manque le cas a = 0 mais b et c différents de zéro.
Et le cas b=0, mais a et c non nuls, puis selon le signe de a et c, tu auras soit des solutions réelles soit complexes, ça dépend de ce que tu souhaites ...

Pour x1 et x2, tu as oublié ce coup si la racine pour delta.

Et pour le cas delta négatif, il y a soit pas de solutions si tu veux que des solutions réelles, soit deux racines complexes, si tu veux des solutions qui appartiennent aux complexes.

Je crois qu'on a rien oublié ...

program equation ;
var Delta ,a,b,c,x1,x2 :real ;
begin
readln (a,b,c);
if a=0 then
if b=0 then
if c=0 then
writeln('il y a une infinité de solution')
else
writeln('pas de solution')
else

begin
Delta:=b*b-4*a*c;
if Delta<0 then
writeln('Pas de solution réelles')
else
if Delta > 0 then
begin
x1=(-b-(Delta))/(2*a);
x2=(-b+(Delta))/(2*a);
if Delta = 0
x1 :=-b div 2a
writeln (x1)
end;
end;
end;
readln ;
end .

Voici un macro code
begin
readln(a,b,c);
if a=0 AND b=0 AND c=0 then
begin
writeln('Infinite de solutions');
end;
else
begin
calculer delta;
if delta < 0 then
begin
writeln('Pas de solutions');
end;
else if delta >0 then
begin
calculer les deux racines;
writeln ('L"equation admet 2 solutions qui sont 'x1 'et' x2 '.');
end;
else if delta=0 then
begin
calculer x0;
writeln('Solution double ');
et afficher la solution double;
end;
end;
end .

Là , tu complete avec les declarations de variables et les calculs des racines ainsi que les affichages ...

ça correspond à quoi :

x1:=-c/b; 

??

voila j'ai changer les "delta " mais ca marche toujours pas .
le message d'erreur est "error in statement " .

program equation ;
var Delta ,a,b,c,x1,x2 :real ;
begin
readln (a,b,c);
if a=0 then
if b=0 then
if c=0 then
writeln('il y a une infinité de solution')
else
writeln('pas de solution')
else ============================== l'erreur est ici suite à pascal
x1:=-c/b;
else
begin
Delta:=b*b-4*a*c;
if Delta<0 then
writeln('Pas de solution réelles')
else
begin
x1=(-b-(Delta))/(2*a);
x2=(-b+(Delta))/(2*a);
end;
end;
end;
readln ;
end .

Je crois (mais plus très sûr) que le Pascal est sensible à la casse donc là tu as utilisé des noms de variables differents au niveau de Delta et delta (c pas la mem chose) donc essaie de modifier cela et tu nous donnes les resultats. Quant au fait que tu aie traité seulement certains cas , je penses pas que cela puisse être la cause de tes problèmes .La prochaine fois s'il ya erreur envoie nous le msg d'erreur qui apparait et on pourra mieux t'aider

on viens de commencer pascal ,et chui pas bien avec , pour les cas de Delta ya
delta supérieur à 0
delta inférieur à 0
delta = 0

et si a ou B = 0 ya pas de solution

le principe de travail et là ,mais pour ecrire le programme je sais pas bien utiliser "if xxx then " .
si vous pouvez bien m'aidez pour terminer mon programme .
et merci

Re,

Déjà je comprends pas bien pourquoi tu n'as traité que le cas delta négatif ??

Il y a aussi le cas delta nul => racine double
Et le cas delta strictement positif => deux racines réelles

Tu as aussi le cas où le coefficient a nul, ce qui te ramène à la résolution d'une équation linéaire etc ...

Ton programme n'est pas fini !

@+

j'ai changer des trucs mais ca marche pas toujours

program equation ;
var Delta ,a,b,c,x1,x2 :real ;
begin
readln (a,b,c);
if a=0 then
if b=0 then
if c=0 then
writeln('il y a une infinité de solution')
else
writeln('pas de solution')
else
x1:=-c div b;
else
begin
Delta:=b*b-4*a*c;
if delta<0 then
writeln('Pas de solution réelles')
else
begin
x1=(-b-(delta)) div (2*a);
x2=(-b+(delta)) div (2*a);
end;
end;
end;
readln ;
end .

Commences par revoir la valeur de delta ça devrait être b*b-4*a*c

Salut,

Je ne connais pas la programmation en pascal, mais j'ai repérai une erreur dans ton code au niveau du discriminant :

Delta:=(b)-4*a*c;

b est au carré !

Ce qui donne :

Delta:=(b*b)-4*a*c; 

Je sais pas si ça résoudra ton soucis, mais ça fera peut être avancer le smilbrlik :)

@+