Discussion :

[GO]

Comment trouver tous les arrangements possibles des la série : MISES A JOUR ? (on pourra supprimer les espaces)

Avec la récursivité ou en passant par une manipulation de tableaux ?

exemple: MISESAJOUR
JOSESIMAUR
AISRMSOUJE
...

A+ 8)

[Graffito]

Bonjour,

Une procedure recursive du genre de celle-ci devrait marcher :

procedure createcombination(s:string,tsl:tstringlist) ;
var i,j : integer; cx : char ; sx :string; tslx : tstringlist ;
begin
tsl.clear ;
for i:=1 to length(s)-1 do begin
{..}cx:=s[i] ; sx:=copy(s,1,i-1)+copy(s,i+1,length(s)-i-2) ;
{..}if sx=''
{....}then tsl.add(cx) ;
{....}else begin
{..........}tslx:=tstringlist.create ;
{..........}createcombination(sx,tslx) ;
{..........}for j:=0 to tslx.count-1 do tsl.add(cx+tslx[j]) ;
{..........}tslx.free ;
{..........}end ;
{..}end ;
end ;

Dsl, j'ai pas pu indenter avec des espaces ...