[Récursivité] Fonction inversant une chaîne

Bonjour,
Je suis en train d'apprendre les algorithmes récursifs au lycée. On me propose d'écrire une fonction récursive qui inverse une chaine donnée.

Code:

---

1 2 3 4 5

function inv(ch:string):string; begin if ch='' then inv:='' else inv:=ch[length(ch)] + inv(copy(ch,1,length(ch)-1)); end;

---

Ceci est proposé par le professeur mais ne fonctionne pas.
Moi, je propose plutôt ça qui n'arrange pas :

Code:

---

1 2 3 4

function inv(ch:string):string; begin if ch<>'' then inv:=ch[length(ch)] + inv(copy(ch,1,length(ch)-1)); end;

---

Et voici tout le programme qui ne fonctionne pas non plus :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

program rec; uses wincrt; var ch:string; function inv(ch:string):string; begin if ch='' then inv:='' else inv:=ch[length(ch)] + inv(copy(ch,1,length(ch)-1)); end;   BEGIN ch:='SRUEPPOLEVEDSEDMUROF'; writeln(inv(ch)); END.

---

ça affiche Run Time Error...

Merci de m'avoir lu!

j'ai pas lu à fond ton code mais tu peux preciser le type d'erreur
runtime error (?) tu a retenu le nombre qui suivait runtime error?
@+

Runtime error 202 at 0001:000D.

Stack Overflow ! http://pascal.developpez.com/faq/?pa...overflow-error

Si tu passes des strings, qui font 256 octets, ca va vite ! Soit tu utilises la directive de compilation {$M} soit tu changes la variable que tu passes, en définissant par exempe un type string limité à 20 caractères.

Sinon la fonction de ton prof est correcte.
La tienne ne l'est pas par contre car il y'a des cas pour lesquels elle ne retourne rien.

La raison pour laquelle ton programme ne fonctionne pas, c'est que

Code:

---

ch:='SRUEPPOLEVEDSEDMUROF';

---

n'est pas reconnu comme un string mais comme un caractère (char).

Pour définir un String, il faut mettre des guillemets "doubles" : "...".

Si tu changes ton code comme ça, ça devrait fonctionner :

Code:

---

ch:="SRUEPPOLEVEDSEDMUROF";

---

Avec un autre developpeur peut-être ! Avec le miens, je suis sûr que c'est comme ça. Merci d'avoir essayé. Merci Wormful_Sickfoot mais, je n'ai pas réussi à utiliser {$M...}, j'ai essayé de l'utiliser comme décrit dans le cours ou la FAQ, c'est à dire en remplaçant les ... par 3 paramètres. Ça a répondu : "Too Much Data" ou quelque chose comme ça... J'ai aussi essayé de limiter la chaîne à 20 en mettant : var ch:string[20];, ceci non plus n'a rien changé. Ah d'ailleurs, je viens de réaliser que j'aurais peut-être dû créer un nouveau type chaine[20] pour pouvoir l'utiliser dans la définition de la fonction. Il n'est que 22:56 et je suis déjà KO...

Loceka, s'il te plaît, peux-tu commencer par vérifier ma fonction ?

Code:

---

1 2 3 4

function inv(ch:string):string; begin if ch<>'' then inv:=ch[length(ch)] + inv(copy(ch,1,length(ch)-1)); end;

---

Merci infiniment.

Essaye en définissant un type string[20]

on a fait cette fonction en classe vaoici le code

Code:

---

1 2 3 4 5 6 7

function inverse(var ch : string ): string; begin if length(ch) = 1 then inverse := ch[length(ch)] else inverse := ch[length(ch)] + inverse(copy(ch,1,length(ch)-1); end;

---

Bonjour
a katrena99 j'ai tester ton code il est bon sauf a ce niveau

Code:

---

if ch<>''

---

j'ai remplacer j'ai mis

Code:

---

if length(ch)<>0

---

et la ça marche mais en meme temps j'ai fixé la taille ddu String a 20,et j'ai fais plusieurs test lorque la chaine depasse 18 caracteres ça lance l'erreur que tu as signaler *
Apres j'ai refait ce que tu as proposer et la ça marche mais il initialisant le chaine dans le programme principal a ' '(espace); sinon ton code est j'avoue que moi meme je m'y perd un peu mais je crois que l'erreur vient du test sur la chaine avec ''(vide ou espace) et a l'initialisation de la chaine)
je vais creuser un peu et je reviens donner des nouvelles
@+

je reviens sans avoir trop avancer sauf que je remarque avec une condition supplementaire dans la fonction ça a l'air d'allé

Code:

---

1 2 3 4 5 6

function inv(ch:string):string; begin if ch<>'' then inv:=ch[length(ch)] + inv(copy(ch,1,length(ch)-1)) else inv:=''; end;

---

je crois que avec les string et comme c'est recursive il depassement dans la pile
si la taille du string passé est inf à 18(ça veut dire 18caract/255 reservé mais coté memoire ça veut dire quoi?) no problem,je suis en train de pensé si ne faut utiliser un pointeur et liberer de la memoire au fur et a mesure pour voir ce que ça donne
je vous tiens au courant si j'ai le temps

Mui,

Citation:

---

Envoyé par Loceka

Sinon la fonction de ton prof est correcte.
La tienne ne l'est pas par contre car il y'a des cas pour lesquels elle ne retourne rien.

La raison pour laquelle ton programme ne fonctionne pas, c'est que

Code:

---

ch:='SRUEPPOLEVEDSEDMUROF';

---

n'est pas reconnu comme un string mais comme un caractère (char).

Pour définir un String, il faut mettre des guillemets "doubles" : "...".

Si tu changes ton code comme ça, ça devrait fonctionner :

Code:

---

ch:="SRUEPPOLEVEDSEDMUROF";

---

---

Non, en Pascal, Char et String sont limités par des apostrophes '

Mea culpa, j'étais persuadé du contraire.

Code:

---

1 2 3 4 5 6 7

function inv (ch:string):string; begin if ch='' then inv:='' else   inv:=inv(copy(ch,2,length(ch)-1))+ch[1];   end;

---

Je pense que depuis 11 ans il a dû soit résoudre son problème, soit ne plus avoir besoin de la solution ^^