Dhifallah Fethi Admin
Messages : 74 Date d'inscription : 02/03/2011
| Sujet: Exercice 6 (Récursivité) Ven 18 Mar - 3:35 | |
| Exercice 6
Ecrire un programme qui permet d'inverser une chaîne en utilisant la Méthode récursive.
Réponse - Code:
-
program inverse_ch; uses wincrt; var st:string; function inv(st:string):string; begin if st='' then inv:='' else inv:= st[length(st)]+ inv(copy(st,1,length(st)-1)); end; begin writeln('Donner une chaîne : '); readln(st); write(inv(st)); end. | |
|