Bonjour, j'ai préféré faire un autre topic car il est un peu différent de celui que j'ai il y a qq heurs.

En retravaillant la procédure combinaison :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
procedure combinaison2(st, tete: string);
var i: integer;
begin
  if length(st) = 1 then memo1.lines.add(tete + st)
  else
    for i := 1 to length(st) do
    begin
      combinaison1(copy(st, 2, length(st) - 1), tete + st[1]);
      st := copy(st, 2, length(st) - 1) + st[1];
    end;
end;
et en retravaillant le déroulement schématisé :
http://recursivite.developpez.com/?page=page_1#L0

Je n'arriver pas a dérouler de la même manière :
Ici le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
length(st) - 1
ne me semble pas correct car au 1er appel de la procédure , je me retrouve avec :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
combinaison('b', 'a')
et non

Code : Sélectionner tout - Visualiser dans une fenêtre à part
combinaison('bc', 'a')
??

Est ce qqun pourrait me dire ou est ce que je me suis tromper ?