A voir également:
- Programme pascal equation second degré
- Turbo pascal download - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- My pascal - Télécharger - Édition & Programmation
- Lancer automatiquement un logiciel au démarrage de Windows - Guide
- Ce message d'erreur apparaît sur l'ordinateur d'elena. que peut-on dire du programme gwxux ? - Forum logiciel systeme
2 réponses
sam3000
Messages postés
1225
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
13 juin 2005
144
4 juin 2005 à 16:37
4 juin 2005 à 16:37
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
@*
