Salut à tous !
Voilà, il faut que je fasse un programme qui saisit une chaîne de caractères et en affiche une autre comme suit :
si la chaine saisie est turbo, le programme affichera :
  • to
  • tubo
  • turrbo
  • turburbo
  • turboturbo

Bon voilà ma solution mais elle ne marche pas !
Veuillez m'indiquer mon erreur si elle est dans le raisonnement ou la syntaxe ou même, si vous avez une autre solution, elle sera la bienvenue !
Ah j'ai oublié, la résolution doit comporter au moins deux modules !

Solution:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program chaine;
uses wincrt;
var ch:string;
    ch3:string;
 
procedure saisie(var ch1:string);
begin
write('donner la chaine:');
read(ch1);     
end;
procedure trans(ch1:string; var ch2:string);
var i,j:integer;
begin
i:=0;
ch2:='';
for j:=length(ch1) downto 1 do
i:=i+1;
ch2[i]:=ch1[i];
ch2[j]:=ch1[j];
write(ch2);
end;
begin
saisie(ch);
trans(ch,ch3);
end.