Algorithme de PASCAL
edwige
-
KX Messages postés 19031 Statut Modérateur -
KX Messages postés 19031 Statut Modérateur -
Bonjour,
Ecrire un algorithme qui range 3 réels dans un ordre croissant
Ecrire un algorithme qui range 3 réels dans un ordre croissant
Configuration: Windows XP Internet Explorer 6.0
5 réponses
-
Bonjour
Il y a un forum Programmation juste au dessus. -
-
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 -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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.
