Discussion :

[bdptaki]

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 ?

[bdptaki]

Juste pour rajouter pour moi le code qui "marche" en accord avec le schéma
est le suivant :

JE l'ai tourné dans tous les sens et j'arrive à qqch de marche en accord avec le corps avec ce code :

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) ), tete + st[1]);
      st := copy(st, 2, length(st) ) + st[1];
    end;
end;

Y aurait-il des erreurs ?

[e-ric]

Pourrais-tu nous dire ce que tu cherches à faire exactement ? S'agit-il de trouver toutes les combinaisons d'une ensemble de caractères donnés ?

cdlt

[Clorish]

Oui sans le role extact de la fonction c'est dure de deviner tout seul ... surtout avec un code incomplet

D'ailleur je le redit : Tu parle de recursivitée mais en aucun cas cette fonction telle qu'elle est recursive.
Le but premier d'une fonction recursive est de s'auto-appeler, or je ne vois aucun appel a "Combinaison2" ..... Par contre il y a une fonction "Combinaison1" dont le code serait fort utile pour comprendre le fonctionnement de ta procedure

[e-ric]

J'ai un doute, cela ressemble très fortement au post de Bativir :

http://www.developpez.net/forums/sho...d.php?t=336892

Aurait-on affaire à une joyeuse bande d'étudiants en mal s'inspiration ? Est-on en période d'examen ?

Prière de réfléchir un peu avant de poser des questions (si mon doute est confirmé).

cdlt

[bdptaki]

Bon je crois que je ne me suis pas bien fait comprendre .....
Je débute en récursivité.
Qu'est ce que je fait: je vais directement vers le cours proposé par Developpez.com .
Je suis le cours pas à pas , je me teste pour savoir si j'ai bien acquis les connaissance ou pas.
Et la en faisant des tests , je m'aperçois qu'il y a qqch qui ne va pas.
Le problème est que le schéma de déroulement ne me semble pas en accord avec le code proposé : Voir la partie du bas .
http://recursivite.developpez.com/?page=page_1

Pour moi le bon code serait :

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) ), tete + st[1]);
      st := copy(st, 2, length(st) ) + st[1];
    end;
end;

Aurait-on affaire à une joyeuse bande d'étudiants en mal s'inspiration ? Est-on en période d'examen ?

Prière de réfléchir un peu avant de poser des questions (si mon doute est confirmé).

Ton doute proviendrai peut être d'un manque d'humilité et de compassion vis à vis de débutants.

Oui sans le role extact de la fonction c'est dure de deviner tout seul ... surtout avec un code incomplet

D'ailleur je le redit : Tu parle de recursivitée mais en aucun cas cette fonction telle qu'elle est recursive.
Le but premier d'une fonction recursive est de s'auto-appeler, or je ne vois aucun appel a "Combinaison2" ..... Par contre il y a une fonction "Combinaison1" dont le code serait fort utile pour comprendre le fonctionnement de ta procedure

Dans le cours proposé par developper.com c'est marqué récursivité:
Je pense que combinaison1 est la meme que combinaison2: c'est juste pour dire que c'est comme si on avait une autre fonction qui fait un autre programme...