Eqt du second degré en pascal ????
abdou
-
103 -
103 -
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
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
A voir également:
- Programme pascal equation second degré
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Programme demarrage windows - Guide
- Second écran - Guide
2 réponses
salut,
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
@*
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
@*