Discussion :

[amateurc]

Bonjour j'essaie de faire un programme qui supprime les espaces en trop dans une chaine de caractère j'ai donc fait l'algo suivant :

Code :

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

1
2
3
4
5
pour i<-1 à longueur(chaine) faire
      si (chaine[i]=' ') et (chaine[i+1]=' ') alors
        chaine[i]<-chaine[i+1]
      fin si
fin pour

a partir de cela j'ai fait le programme en pascal pour delphi :

Code :

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

1
2
3
4
5
6
7
      for i:=1 to length(chaine) do
         begin
         if ((chaine[i]=' ') and (chaine[i+1])) then
             begin
                 chaine[i]:= chaine[i+1];
             end;
         end;

mais mon probleme est que ce code ne fonctionne pas et je ne sais pas pourquoi est ce que vous pourriez m'expliquer quelle erreur j'ai fait dans mon algo ?

[Hedidams]

Code :

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

1
2
3
4
5
pour i<-1 à longueur(chaine) faire
      si (chaine[i]=' ') et (chaine[i+1]=' ') alors
        chaine[i]<-chaine[i+1]
      fin si
fin pour

Bonjour,

Avec ce code, tu ne fais rien de particulier : primo, tu traites uniquement le cas où tu as un seul espace en trop, donc ça ne marchera pas pour deux, trois, etc. espaces ! Secundo, tu ne fais aucune suppression (décalage à gauche) puisque tu affectes l'espace en trop de la droite à celui de la gauche... Donc, tu dois réfléchir à nouveau à ton algorithme.
__________________
- Premièrement, il faudra réfléchir;
- Deuxièment, chercher;
- Finalement, poser son problème en le décrivant correctement.

[contremaitre]

for i:=1 to length(chaine) do
begin
if ((chaine[i]=' ') and (chaine[i+1])) then
begin
chaine[i]:= chaine[i+1];
end;
end;[/CODE]

Regarde ce que j'ai mis en rouge tu as oublié un test.
Et comme le dis paronyme tu ne fait que copier un espace dans un espace ca ne changera pas ta chaine.
Tu pourrais par exemple recopier ta chaine dans une nouvelle chaine, en ne copiant qu'un seul espace maximum si tu en détecte plusieurs à la suite.

[Lowelace]

Bonjour,

D'après le message, tu as écrit ton programme en pascal pour Delphi.
Il me semble (mais c'est très veiux dans ma mémoire ) que des fonctions tel Trim existe, qu'il est peut-être pas utile de t'enquiqiner à réécrire un tel algo .
Sinon persévère si tu tiens à l'écrire toi-même.

[amateurc]

A partir de ce que vous m'avez dit j'ai refait un algorithme :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
pour i<-1 à longueur(chaine) faire
       si (chaine[i]<>' ') alors
              chaine2[j]<-chaine[i]
       fsi
       si (chaine[i]=' ') et (chaine[i+1]<>' ') alors
              chaine2[j]<-' '
       fsi
       j=j+1
fpour

est ce que vous pouvez m'indiquer si il y a un problème avec celui ci

[contremaitre]

Ca a l'air bon.
Par contre fait attention tu fait un debordement dans les indices :

Code :

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

si (chaine[i]=' ') et (chaine[i+1]<>' ') alors

Comme tu vas jusqu'a longueur(chaine) chaine[i+1] n'existe pas.

Tu peux remplacer ce test par :

Code :

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

si (chaine[i]=' ') et (i <= longueur(chaine) ou (chaine[i+1]<>' ')) alors

Normalement si i > longueur de chaine il ne testera pas chaine[i+1] (en C c'est vrai en tout cas, apres je sais pas).

Sinon tu peux aller de 1 a longueur(chaine) - 1 et à la fin recopier chaine[longueur(chaine)].

[haythem78]

mon idée est basé juste sur pascal. voilà on va chercher tous les double espace dans la chaine
on va boucler avec "tantque" pour chaque double éspace on va effacer un.
c'est tout
while pos(" ",ch)<>0 do
delete(ch,pos(" ",ch),1);

NB: pos est une fonction prédefini de pascal qui donne la position d'une chaine dans une autre
delete est une procédure qui éfface d'une chaine un nombre de caractère apartir d'une position

c'est testé, amuse toi bien

[souviron34]

bah ton algo initial etait sur une bonne base, mais pas tout a fait...

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
 
vrai = 1
 
Tant que vrai
    vrai = 0
 
    si longueur(chaine) > 1
        pour i = 1 à i = (longueur(chaine)-1) faire
               si (chaine[i]=' ') et (chaine[i-1]=' ') alors
                     si i different de (longueur(chaine)-1)
                           pour j = i+1 a j = (longueur(chaine)-1)
                                chaine[j]<-chaine[j+1]
                           fin pour
                     fin si
 
                     longueur(chaine) = longueur(chaine) - 1
                     vrai = 1
                     sortie pour
                fin si
        fin pour
     fin si
fin tant que