Cod PASCAL pour une equation du second degrés

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

6 réponses

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.
25
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)
0
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;
1