résoudre equation avec pascal Fermé

Question

bonjour 
 je suis entrain de faire un programme pascal qui resolue l'eaquation ax²+bx+c=0 .
j'ai fais un programme mais je coirs que ya une erreure puisque ca marche pas .


program equation  ;
var Dleta ,a,b,c :real ;
begin
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/b;
    else
    begin
    Delta:=(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;
readln ;
end .

et merci .

Configuration: Windows XP / Firefox 3.5.9

green day · Answer

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 :)

@+

tksteph · Answer

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

ayoubitou · Answer

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 .

green day · Answer

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 !

@+

ayoubitou · Answer

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

tksteph · Answer

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

ayoubitou · Answer

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 .

green day · Answer

ça correspond à quoi :

x1:=-c/b; 

??

tksteph · Answer

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 ...

ayoubitou · Answer

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 .

green day · Answer

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é ...

ayoubitou · Answer

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 ".

ayoubitou · Answer

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 .

ayoubitou · Answer

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 .

Pascalinettissimo · Answer

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.

Résoudre equation avec pascal

15 réponses

Discussions similaires