eqt du second degré en pascal ????

Question

salut tt le monde
j'espere bien que vs me corrigé ce programe qui permet de resoudre une équation du second degré et mercii

program eql;
var a,b,c:integer;
D:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
D=b*b-4*a*c
if a=0 then
begin
if b=0 then
begin
if c=0 then writeln('Solution: ensemble R')
else
writeln('Pas de solution');
end
else
writeln('Solution: ',(-c/b));
end
else
if D<0 writeln('Pas de solution');
if D=0 writeln('Solution: ',-b/(2*a));
if D>0 writeln('Solution: ',(-b-sqrt(D))/(2*a));
end.

et merci pour votre reponse

sam3000 · Answer

salut,

program eq2;
 var
  a,b,c:integer;
  D:real;
begin
 write('a=');readln(a);
 write('b=');readln(b);
 write('c=');readln(c);
 D:=b*b-4*a*c;
 if a=0 then
 begin
  if b=0 then
  begin
   if c=0 then
    writeln('Solution: ensemble R')
   else
    writeln('Pas de solution');
  end
  else
   writeln('Solution: ',(-c/b):5:3);
 end
 else
 begin
  if D<0 then writeln('Pas de solution');
  if D=0 then writeln('Solution: ',-b/(2*a):5:3);
  if D>0 then writeln('Solution: ',(-b-sqrt(D))/(2*a):5:3);
 end;
end.

NB: lorsque tu donne un code sur le forum essai de le mettre entre les balises (code) en selectionnant tout ton programme ouis tu appuis sur le bouton [Code]

L'affectation se fait par ":="

Le ":5:3" c'est pour que les nombres réels soient affichées normalement (pas en format exposant 10)

Ne pas oublier le THEN pour les IF

@*

dido · Answer

bonjour,

je suis débutante en pascal. y'a t-il quelqu'un qui peut m'aider à résoudre cette équation en pascal: 3x+5=0

merci

Eqt du second degré en pascal ????

2 réponses

Discussions similaires

Newsletters