A voir également:
- Algorithme de PASCAL
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
- Algorithme euromillion excel gratuit - Forum Algorithmes / Méthodes
5 réponses
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
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.
