permutation de 3 nentiers a,b et c Résolu/Fermé

Question

salut tt le monde 

si vous pouvez m'aider je n'arrive pas à trouver la solution de cet exo en pascal  
 ecrire un procedure qui permute trois nombres entiers a,b et c  afin d'obtenir a<=b<=c
merci d'avance

topcoder · Answer

Merci de donné votre proposition ^_^

lalib1987 · Answer

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

???

lalib1987 · Answer

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.

mis_angel · Answer

merci lalib 1987

mis_angel · Answer

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.

lalib1987 · Answer

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.

mis_angel · Answer

merci à vous tous

Permutation de 3 nentiers a,b et c

7 réponses

Discussions similaires