Discussion :

[aymenet1]

J'ai écrit un programme qui efface les espaces supplémentaires. Il s'exécute mais il ne fonctionne pas bien.
Voilà le programme :

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
26
27
28
29
30
program espace_cleaner ;
uses wincrt ;
var ch:string ;
 
 
procedure saisie (var ch :string );
begin
writeln('donner une chaine de carractéres ');
readln (ch);
end;
 
procedure espacecleaner (var ch:string );
var i:integer;
begin 
for i:= 1 to length(ch) do
  begin 
  if (ch[i]=' ') and (ch[i+1]=' ') then
  delete(ch,i,1);
  end;
  end;
 
procedure affichage (ch:string );
begin
writeln('ch= ',ch);
end;  
begin
saisie(ch);
espacecleaner(ch);
affichage(ch);
end.

Quand je le teste, par exemple je donne ch=a (plusieurs espaces) b.
Il m'affiche ch= a (plusieurs espaces mais moins qu'avant) b
J'espère que vous m'aiderez à corriger la faute et merci d'avance ^^

[Graffito]

Un While serait mieux et il ne faudra pas incrémenter l'indice de boucle quand on enllève un blanc.

[Clandestino]

Tu utilises une boucle, et dans celle-ci à chaque fois que tu as deux espaces qui se suivent, tu en enleve un...
Si par exemple tu as les caractères 4, 5 et 6 de ta chaine qui sont des espaces, ton programme, en arrivant à i=4 va effacer l'espace situé là.
du coup, l'espace situé en 5 passe en 4ème position, l'espace situé en 6 passe en 5 ème position etc...
Ta boucle s'incrémente alors et tu passe au test sur la position 5 (qui contient l'ex 6ème caractère)...
Tu vois le problème? tu n'as pas la detection du double espace 4 et 5 (ex 5 et 6)vu que tu passe au caractère suivant automatiquement...
La solution est de continuer à nettoyer à une position i tant que tu as un double espace (en i et i+1), et de ne passer qu'ensuite au caractère suivant...

Bonne continuation

[krachik]

Puisque tout est deja presque dit moi je pourrais dire de mettre les balise code

[droggo]

Kio,

Un While serait mieux et il ne faudra pas incrémenter l'indice de boucle quand on enllève un blanc.

Mieux que cela, il ne faut pas utiliser une boucle For comme cela.

En effet, en Pascal, les limites utilisées par une boucle For sont calculées une fois pour toute lors de l'entrée dans la boucle, et ne sont donc plus évaluées à chaque itération. C'est la norme Pascal.
Il ne faut donc pas utiliser comme limites d'une boucle For une donnée étant modifiée dans la boucle.

Ici, bien que tu modifies la longueur de la chaine, la boucle For sera exécutée jusqu'à ce que le compteur de boucle soit égal à length(ch) au moment de l'entrée dans la boucle, et le comportement risque d'être bizarre.

Conclusion : une boucle While s'impose (pas Repeat, qui est exécutée au moins une fois).

[Loceka]

Pareil que les autres à une petite différence près :

Il faut que tu utilises 2 boucles while pour faire ça bien (ou leur équivalent en fonctions récursives) :

Une premiere boucle qui parcourt ta chaine et une deuxième boucle qui supprime les espaces consécutifs.

[aymenet1]

merci à tous ^^

[krachik]

Juste une petite question à poser à l'auteur du post il s'agit de supprimer :
-les espaces consecutives dans un mot?
-les espaces dans un mot?
-Et enfin il s'agit de le faire sur un mot ou une phrase?

[aymenet1]

il s'agit de supprimer les espaces consecutives dans une chaine de caractéres et il ne reste qu'un espace entre chaque deux mots .
la chaine de caractére peut etre un mot ou une phrase

[aymenet1]

c bon enfin j'ai réussi a corriger le programme grace a vous donc ^^
je vous remerci et voilà le programme aprés être corrigé :

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
26
27
28
29
program espace_cleaner ;
uses wincrt ;
var ch:string ;
 
 
procedure saisie (var ch :string );
begin
writeln('donner une chaine de carractéres ');
readln (ch);
end;
 
function espacecleaner (var ch:string ):string ;
var i:integer;
begin
 i:=2;
while (i<=length(ch)) do 
begin
while (ch[i]=' ') and (ch[i-1]=' ') do
delete(ch,i,1);
i:=i+1;
end;
espacecleaner:= ch;
end;
 
 
begin
saisie(ch);
writeln (espacecleaner(ch));
end.

[krachik]

Kool,
Il ne reste plus qu'a bien indenté ton code et/ou mettre des commentaires si tu veux (mais ça peut toujours t'aider bonne habitude à prendre)
tu pourrais aussi eviter de passer tout le temps les variables par adresse dans les 2 fonctions tu aurais bien pu passer les parametres par valeur mais pour la procedure saisie ça serait bien d'en faire une fonction (ce que je dis c'est des détails)
Bravo pour ton code
bonne continuation
@+

[Loceka]

Ouaip, voilà

Par contre je rejoins Krachik, indente ton code, surtout dans les boucles non délimitées, ça facilite beaucoup la compréhension :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
while (i<=length(ch)) do 
begin
while (ch[i]=' ') and (ch[i-1]=' ') do
delete(ch,i,1);
i:=i+1;
end;
 
(* devient : *)
while (i<=length(ch)) do 
begin
  while (ch[i]=' ') and (ch[i-1]=' ') do
    delete(ch,i,1);
  i:=i+1;
end;

[fremen167]

A mon avis, ta fonction espacecleaner a un gros défaut :
elle modifie ch, alors qu'en principe elle ne devrait pas toucher à ch puisqu'elle retourne la chaîne nettoyée en sortie.

D'ailleurs, le plus simple pour éviter cela serait de faire comme te l'a conseillé krachic : ne pas lui passer la variable ch par variable (ou pour adresse), mais par valeur.

Ainsi, tu pourrais réutiliser dans ton traitement la valeur initiale de ch (non nettoyée).