cod PASCAL pour une equation du second degrés Fermé

Question

Bonjour,j'aimerai avoir un code (pascal) qui permet de résoudre une équation du second degrés
merci d'avance

khiter zakaria · Accepted Answer

Salut raamzee voici un programme pascal qui permet vous de calculer les racignes carée d'une equation de seconde degree 
program eqution;
uses crt;
var x1,x2,x,a,b,c,d:real;
begin
clrscr;

write('donner la valeur de a svp : ');
readln(a);
write('donner la valeur de b svp : ');
readln(b);
write('donner la valeur de c svp : ');
readln(c);

if a=0 then
  if b=0 then
    if c=0 then
       writeln('infinitié de solution')
    else writeln('pas de solution')
  else x:=-c/b;
  writeln('le racigne de l`eqution est =',x)
else
d:=sqr(b)-4*a*c;
begin
if d<0 then
  begin
  write('pas de solution');
  end
else
if d=0 then
  begin
  x:=-b/2*a;
  writeln('le racigne de l`eqution est =',x);
  end 
else
begin
x1:=-b-sqrt(d)/2*a;
x2:=-b+sqrt(d)/2*a;
end;
writeln('les deux racignes de l`eqution est =',x1,'  /  ',x2);
readln;
end.

amigo · Answer

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

marwa · Answer

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

ma9ni · Answer

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.

Jetlight · Answer

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

DeBrazza · Answer

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.

Cod PASCAL pour une equation du second degrés

6 réponses

Discussions similaires