Permutation de 3 nentiers a,b et c

Ah maintenant j'ai compris la question hhh
votre solution que vous avez donné est juste et est simple aussi, et il n'y a mieux que d'être simple sans compliquer les choses...

J'ai étudié tous les cas possible, et votre programme marche très bien.

bon moi je propose cette solution et vous pouvez me donnez votre avie

program exo;
var ech,a,b,c:integer;
begin
write('donner les trois valeurs :');
readln(a,b,c);
if (a>b) then
begin
ech:=a;
a:=b;
b:=ech;
end;
if(b>c) then
begin
ech:=b;
b:=c;
c:=ech;
end;
if (a>b) then
begin
ech:=a;
a:=b;
b:=ech;
end;
writelen('apres rangement en ordre croisante',a,b,c);
end.

merci lalib 1987

Dans le cas où
Avant: A=1 B=2 C=3
Après: A=2 B=3 C=1

Il y'a beaucoup de méthodes, mais la plus simple est d'utiliser l'algorithme suivant:

A:= A + B + C ;
C:= A - B - C ;
B:= A - B - C ;
A:= A - B - C ;

Explication:
La 1ere ligne effectue:>>> A = 1 + 2 + 3 = 6
La 2eme ligne effectue:>>> C = 6 - 2 - 3 = 1
La 3eme ligne effectue:>>> B = 6 - 2 - 1 = 3
La 4eme ligne effectue:>>> A = 6 - 3 - 1 =2

N.B: N'oubliez pas de passer les paramètres de la procédure par adresse et pas par valeur.

J'ai pas bien compris votre question.

Est-ce que vous voulez permuter tous les nombres comme:
Avant: A=1 B=2 C=3
Après: A=2 B=3 C=1

???

Merci de donné votre proposition ^_^