Recherche
Posez votre question Signaler

Cod PASCAL pour une equation du second degrés [Fermé]

raamzee - Dernière réponse le 20 déc. 2014 à 23:16
Bonjour,j'aimerai avoir un code (pascal) qui permet de résoudre une équation du second degrés
merci d'avance
Lire la suite 
Réponse
+24
moins plus
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.

azizlactour- 21 oct. 2012 à 20:06
sllt khiter je suis dzl je veulé te dire que ton programme il est incomplet puisque je l'ai saisé sur pascal malheuresement j'arrive pas a decouvrire l'erreur .stp si tu as la solution dit le moi.de la part de (azizlactour)
Hamzi- 20 déc. 2014 à 23:16
if a=0 then
if b=0 then
if c=0 then
writeln('infinitié de solution')
else writeln('pas de solution')
else
BEGIN <---------
x:=-c/b;
writeln('le racigne de l`eqution est =',x)
End; <---------
else
d:=sqr(b)-4*a*c;
Réponse
+7
moins plus
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

Réponse
+5
moins plus
un programme qui permet de résoudre une équation du second degré

Réponse
+3
moins plus
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.

Réponse
+1
moins plus
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.

DeBrazza- 4 mars 2013 à 15:07
La solution de la resolution de l'équation du second dégré en langage Pascal
rofa- 7 nov. 2014 à 15:58
('L''équation du du premier d'gr' de la forme: bx+c=0'); ????????????,
Réponse
+0
moins plus
Et comment fait-on lorsqu'il faut y introduire les 2 racines complexes quand x<0 ? je n'y arrive pas

Ce document intitulé «  cod PASCAL pour une equation du second degrés  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.