Discussion :

[Maxence45]

BOnjour , j'essaye d'écrire une fonction qui prend une chaine en paramètre , par exemple la chaine "bonjour" , et qui me renvoit la chaine inverse "ruojnob" , et j'ai des difficultés à trouver un algorithme , voici ce que je propose :

1.On lit chaque caractère de la chaine , on les compte .
2. Par une boucle , du dernier caractère au 1er , on affiche les caractères de la chaine dans une seconde chaine ?

QU'en pensez vous , celà peut marcher ?

merci

[droggo]

Hi,

BOnjour , j'essaye d'écrire une fonction qui prend une chaine en paramètre , par exemple la chaine "bonjour" , et qui me renvoit la chaine inverse "ruojnob" , et j'ai des difficultés à trouver un algorithme , voici ce que je propose :

1.On lit chaque caractère de la chaine , on les compte .
2. Par une boucle , du dernier caractère au 1er , on affiche les caractères de la chaine dans une seconde chaine ?

QU'en pensez vous , celà peut marcher ?

merci

Oui, ça marchera.

Par contre, pas besoin de compter les caractères de ta chaine, la fonction length est là pour te donner la longueur de la chaine.

(D'ailleurs, comment ferais-tu pour calculer la longueur ?)

On peut faire mieux, mais commence par faire comme ça, et on verra plus tard.

[defluc]

Bonjour

J'ai créé une fonction qui fait ça.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Function ReverseString(Chaine : String) : String ;
Var
  Tmpstr:String;
  iLoop : Integer;
 
Begin
  For iLoop := Length(Chaine) DownTo 1 do
      Tmpstr := Tmpstr + Copy(Chaine, iLoop, 1);
 
  Result := TmpStr;
End;

[Maxence45]

je vous remercierai de ne pas me balancer du code tout fait s'il vous plait car sinon çà sert à rien que je travaille , alors j'ai fait travailler ma cervelle et je propose ce code source qui marche à 99Ù , qu'en dites vous !!! :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function reply(ch: STRING): STRING;
var
   i : CARDINAL;
   j : char;
begin
for i := length(ch) DownTo 1 do
begin
   j := ch[i];
write(j);
end;
   reply := j;
end;

le seul petit hic c'est qu'il me rajouter une lettre inutile à la fin...

[M.Dlb]

Ca ne peut pas marcher, si j est un char, alors à chaque tour de boucle j est écrasé.

Il faut que tu crées une string avec s[i] à la suite les uns des autres... Et que tu retournes cette string.

[Maxence45]

là mon code marche quasiment , pq j ne peut pas etre un char , la variable lû est bien de type char pourtant...

[droggo]

Hi,

je vous remercierai de ne pas me balancer du code tout fait s'il vous plait car sinon çà sert à rien que je travaille , alors j'ai fait travailler ma cervelle et je propose ce code source qui marche à 99Ù , qu'en dites vous !!! :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function reply(ch: STRING): STRING;
var
   i : CARDINAL;
   j : char;
begin
for i := length(ch) DownTo 1 do
begin
   j := ch[i];
write(j);
end;
   reply := j;
end;

le seul petit hic c'est qu'il me rajouter une lettre inutile à la fin...

Je ne vois pas de quoi tu parles, il ne semble pas y avoir de "hic", sauf qu'il faudrait peut-être ajouter un writeln après la sortie de la boucle, uniquement pour que les messages suivants ne se mettent pas directement à la suite de ce que la fonction écrit.

Il y a de l'idée, mais de petits problèmes:

reply est une fonction qui doit renvoyer une string,

or

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
...
   j : char;
...
   reply := j;

tu lui fais retourner un char

ici,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   j := ch[i];
write(j);

la variable j servant d'intermédiaire est inutile, tu peux parfaitement écrire directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    write(ch[i]);

A part cela, il y a un grand "hic" :

Ta fonction affiche bien la chaine inversée, mais c'est tout ce qu'elle fait : elle ne renvoie pas la chaine inversée, même en corrigeant le problème du retour d'un caractère au lieu d'une chaine, comme attendu.

Ta première version

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function ReverseString(Chaine : String) : String ;
Var
  Tmpstr:String;
  iLoop : Integer;
 
Begin
  For iLoop := Length(Chaine) DownTo 1 do
      Tmpstr := Tmpstr + Copy(Chaine, iLoop, 1);
 
  Result := TmpStr;
End;

faisait pourtant le travail attendu, à part qu'il fallait initialiser la chaine tampon Tmpstr avant d'entrer dans la boucle la remplissant à partir des données de Chaine:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
...
  Tmpstr := '';
  { puis la boucle }
...

pourquoi en faire une autre ?

Par rapport à ce que j'ai vu de tes autres posts, ça vient tranquilement, continue

ps : Prends quand même l'habitude de bien présenter ton code, en ce qui concerne l'indentation surtout

[Maxence45]

le code que tu me montres n'est pas de moi lol .

c'est quoi la différence entre renvoyer la chaine et afficher la chaine inversée , le résultat est le même non ?

[Maxence45]

j'ai nettoyé le code de ma fonction comme une grande , qu'en pensez vous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
function reply(ch: STRING): STRING;
var
   i  : CARDINAL;
   gg : STRING;
begin
for i := length(ch) DownTo 1 do
begin
   gg := ch[i];
   write(gg);
end;
   reply := gg;
end;

[M.Dlb]

Non car une fois qu'elle est affichée, elle est perdue... Si par exemple, tu veux pouvoir réutiliser le résultat, c'est-à-dire la chaîne inversée, et ben tu peux pas... D'où l'intérêt des variables !

[droggo]

Hu,

le code que tu me montres n'est pas de moi lol

j'ai mal lu, moi.

c'est quoi la différence entre renvoyer la chaine et afficher la chaine inversée , le résultat est le même non ?

Non, comme l'a bien dit wormful_sickfoot

[Maxence45]

j'ai nettoyé mon code source 2 messages plus haut

[M.Dlb]

j'ai nettoyé mon code source 2 messages plus haut

Et il est toujours aussi faux ! Tu ne renvoies pas la string complète, tu ne renvoies qu'un caractère, et tu persistes à afficher le résultat à l'écran. Pour concaténer des caractères dans une string, tu peux utiliser l'opérateur +

[Maxence45]

je vois pas comment concaténer ce que tu dis , là j'ai ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function reply(ch: STRING): STRING;
var
   i  : CARDINAL;
   gg : STRING;
begin
for i := length(ch) DownTo 1 do
begin
   gg := ch[i];
end;
   reply := gg;
end;

c'est ici que je dois mettre la concaténation :

gg := ch[i] , mais je sais pas comment l'écrire j'ai jamais fait...

[Loceka]

essaye ce code là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var s : String;
begin
  s := 'a';
  s := s+'b';
  writeln(s);
  readln;
end.

Si tu comprends bien ce qu'il fait (et il n'est pas bien long), tu pourras résoudre ton problème (si wormful_sickfoot a raison en ce qui concerne l'opérateur de concaténation, ce dont je ne doute pas ).

[Maxence45]

ne pas le prendre mal mais je refuse de changer tt mon code source que j'ai travaillé pour l'écrire , je veux juste savoir concaténer comme le dit worm...

[droggo]

Hi,

ne pas le prendre mal mais je refuse de changer tt mon code source que j'ai travaillé pour l'écrire , je veux juste savoir concaténer comme le dit worm...

L'exemple montré par Loceka te montre bien comment concaténer, le symbole + est là pour ça, avec les chaines.

De plus, avant de concaténer quoi que ce soit dans ta chaine tampon, il faut impérativement l'initialiser, sinon elle peut contenir n'importe quoi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
...
  gg := '';
...

[Maxence45]

je peux pas tester mon code là je suis pas sur mon pc et je vois tjs pas comment dans mon exemple quoi concaténer et comment mais j'essaye de répondre quand même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
function reply(ch: STRING): STRING;
var
   i  : CARDINAL;
   gg : STRING;
begin
gg := '';
for i := length(ch) DownTo 1 do
begin
   gg := ch[i];
   gg := ch[i] + ? // c'est ici que je sais pas , c'est pas clair pour moi l'exemple...
end;
   reply := gg;
end;

[droggo]

Bizour,

Pour essayer de t'expliquer:
concaténer quelque chose (un caractère, ou une autre chaîne) à une chaîne de caractères, c'est lui ajouter quelque chose.

On peut raisonner en disant "C'est l'équivalent, pour un entier, de la somme" :

Pour un entier

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
...
var
  n,x : integer;
...
begin
   { initialisation des variables, ne JAMAIS oublier de le faire }
 
  n := 10;
  x := 2;
 
  { et ajout de n à x }
 
  x := x + n;   { désormais, x vaut 10 + 2 = 12 }
...
end;

Donc, pour ajouter quelque chose à une chaîne, ce qui est une concaténation, on va faire pareil, avec pour exemple la concaténation d'un simple caractère:

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
...
var
  c : char;
  s : string;
...
begin
   { initialisation des variables, ne JAMAIS oublier de le faire }
 
  s := 'xyz';
  c := 'A';
 
  { et ajout de c à s }
 
  s := s + c;   { désormais, s vaut "xyz", à quoi on concatène 'A', donc 'xyzA' }
...
end;

J'espère que c'est assez clair, et va débloquer ton problème.

[Maxence45]

je vois tjs pas comment concaténer ma chaine dans mon exemple ...