Sujet Précédent Sujet Suivant

Cod PASCAL pour une equation du second degrés

Fermé

Algorithme

raamzee - 17 févr. 2008 à 19:04
Hamzi - 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

A voir également:

Algorithme équation 2ème degré pascal
Turbo pascal download - Télécharger - Édition & Programmation
2eme compte whatsapp - Guide
My pascal - Télécharger - Édition & Programmation
Écrire un programme qui résout une équation du second degré ✓ - Forum C
Ecrire un algorithme qui permet de resoudre ax²+bx+c=0 - Forum Algorithmes / Méthodes

6 réponses

Réponse 1 / 6

khiter zakaria
23 nov. 2008 à 20:25

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 > azizlactour
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 2 / 6

amigo
17 févr. 2008 à 22:33

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 / 6

DeBrazza
4 mars 2013 à 15:05

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'); ????????????,

Discussions similaires

Résoudre une équation de deuxième degré C++

Programme en C : équation second degré

algorithme résoudre ax²+bx+c=0

c ++ equation de second degrés

résolution d'équation du second degré

programme de resolution du equation de second degre

Discussions similaires

Newsletters