A voir également:
- Programme pascal equation second degré
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- Second écran - Guide
- Mettre en veille un programme - Guide
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
@*