Discussion :

[adrian07]

Salut à tous,
Comment pourrais je permuter le contenu de deux chaines de caractères directement(sans avoir recours à une troisième chaine)?

[droggo]

Hai,

Il y a plusieurs moyens, qui dépendent en partie des longueurs des chaînes (égales ou différentes).

[adrian07]

les chaines sont de longueur différentes...

[M.Dlb]

Et bien je dirais:
1 - faire en sorte que les deux chaînes aient la même longueur (agrandir la plus petite)
2 - inverser caractère par caractère
3 - raccourcir la plus petite à sa taille d'origine

[paskal++]

tu peux essayer ce code : (chaînes de longueurs différentes)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Program permutation_chaine;
Uses wincrt;
 
Var ch1,ch2 : string ;
 
Begin
readln(ch1);
readln(ch2);
ch1 := ch1+ch2 ;
ch2 := copy(ch1,1,length(ch1)-length(ch2) ) ;
delete(ch1,1,length(ch2)) ;
writeln(ch1);
writeln(ch2) ;  
 
End.

[adrian07]

ça marche bien, merci pour ton aide!!!