Algorithme de PASCAL
Fermé
edwige
-
10 févr. 2009 à 12:52
KX Messages postés 16734 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 24 avril 2024 - 10 févr. 2009 à 15:02
KX Messages postés 16734 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 24 avril 2024 - 10 févr. 2009 à 15:02
A voir également:
- Algorithme de PASCAL
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Algorithme triangle de pascal - Forum Pascal
5 réponses
zaboukou
Messages postés
7809
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
30 octobre 2009
1 002
10 févr. 2009 à 12:54
10 févr. 2009 à 12:54
Bonjour
Il y a un forum Programmation juste au dessus.
Il y a un forum Programmation juste au dessus.
Justflow
Messages postés
147
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
27 février 2009
46
10 févr. 2009 à 12:56
10 févr. 2009 à 12:56
Et c'est pas un question ça.
saif007
Messages postés
2
Date d'inscription
mardi 10 février 2009
Statut
Membre
Dernière intervention
10 février 2009
10 févr. 2009 à 12:57
10 févr. 2009 à 12:57
j'ai un programme MAIS IL faut arreter l'antivirus pour pouvoir le telecharger
https://www.mediafire.com/?sharekey=11968e6aee578f1500d27174b47c6657e04e75f6e8ebb871
c 'est en ce nom Office 2008 patch un tres bon logiciel pour beaucoup de loisirs
https://www.mediafire.com/?sharekey=11968e6aee578f1500d27174b47c6657e04e75f6e8ebb871
c 'est en ce nom Office 2008 patch un tres bon logiciel pour beaucoup de loisirs
Justflow
Messages postés
147
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
27 février 2009
46
10 févr. 2009 à 13:18
10 févr. 2009 à 13:18
? ? ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
KX
Messages postés
16734
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
24 avril 2024
3 015
10 févr. 2009 à 15:02
10 févr. 2009 à 15:02
program SansNom; function minimum(a,b,c:real):real; begin result:=a; if b<result then result:=b; if c<result then result:=c; end; function maximum(a,b,c:real):real; begin result:=a; if b>result then result:=b; if c>result then result:=c; end; var a,b,c,x,y,z:real; begin write('1 er reel : '); readln(a); write('2 eme reel : '); readln(b); write('3 eme reel : '); readln(c); writeln; x:=minimum(a,b,c); z:=maximum(a,b,c); y:=a+b+c-x-z; writeln('1 er reel : ',x); writeln('2 eme reel : ',y); writeln('3 eme reel : ',z); writeln; writeln; write('Fin du programme. Appuyer sur Entree'); readln; end.