Discussion :

[medchch]

Bonjour !
J'ai essayé de faire ce programme sur Pascal mais ça ne fonctionne pas !
Je doute que le problème est à cause de la boucle while ... do.
Le programme permet de nettoyer une chaîne des espaces superflus (deux espaces qui se suivent et tout espace au début ou à la fin du chaîne).
Si quelqu'un avait la gentillesse de m'éclairer, j'en serais ravi.

[Jipété]

Bonsoir,

tu aurais peut-être plus de réponses si tu mettais le code de ton programme (avec la balise CODE [le bouton dièse # au bout de la deuxième ligne de l'éditeur]) plutôt que des images du code, parce qu'avec des images on ne peut pas copier/coller le code, on peut juste le regarder sans rien tester, à moins de tout retaper, et ça c'est très pénible !
Sans compter les risques d'erreurs...

Alors c'était peut-être plus facile pour toi (encore que, je n'en suis même pas sûr), mais pas pour les autres, d'accord ?

[medchch]

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
program ex;
uses wincrt;
var
ch,a:string;
x,y,z,k:integer;
begin 
repeat 
readln(ch);
until ch<>''
a:=ch;
while (pos(' ',a) <> 0 ) do 
delete(a,pos(' ',a),1);
x:= pos(a[1],ch);
y:= pos(a[length(a)],ch);
z:= pos(' ',ch);
while (z<x) or (z>y) do
delete(ch,z,1);
k:=pos('  ',ch);
while k <>0 do 
delete(ch,k,1);
writeln(ch);
end.

ça va comme ça ?

[Roland Chastain]

Bonjour !

Il y a pas mal de choses à revoir dans ton code. Pour commencer, que fait la ligne suivante selon toi ?

Code :

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

1
2
while (pos(' ', a) <> 0) do
  delete(a, pos(' ', a), 1);

Est-ce que ce n'est pas deux espaces consécutifs qu'il faudrait chercher ?

Concernant le début et la fin de la chaîne, la façon dont tu t'y prends me paraît inutilement compliquée.

[anapurna]

salut

reprenons ton code

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 ex;
uses wincrt;
var
ch,a:string;
x,y,z,k:integer;
begin 
repeat 
readln(ch);
until ch<>''
// jusqu'ici tout vas bien tu vérifie la saisie d'une phrase ou un mot  
a:=ch; // bon là tu affecte ch a a pourquoi ????
 
while (pos(' ',a) <> 0 ) do  // ici tu ne vérifie qu'un espace perso j'aurais vérifié les deux espaces  
  delete(a,pos(' ',a),1); // boom ici tu efface tout les blancs  
 
x:= pos(a[1],ch); // donc la tu vérifie que le caractère en a[1] se trouve dans ch ??? pourquoi a[1]
y:= pos(a[length(a)],ch); // donc la tu vérifie que le dernier caractère en a se trouve dans ch ??? pourquoi le dernier de caractère de a
z:= pos(' ',ch); // tu recherche de nouveau l'espace 
 
while (z<x) or (z>y) do // là tu cherche les borne c'est spécial surtout que tu as déjà supprimé le premier espace 
  delete(ch,z,1); // il est ou l’incrément de ta boucle 
 
k:=pos('  ',ch); //ici tu recherche les deux espace et c’était  pour moi la meilleur méthode 
while k <>0 do  
  delete(ch,k,1); // il est ou l’incrément de ta boucle 
 
writeln(ch);
end.

tu étais presque sur la bonne voie
voilà comment j'aurais géré les doublon d'espace

Code :

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

1
2
3
4
5
6
7
 
i := pos('  ',ch);
While i <> 0 do 
begin
  delete(ch,i,1); 
  i :=pos('  ',ch); //ici je recherche la prochaine position  
end;