[TPW] Problème de chaînes

Version imprimable

J'ai toujours un problème avec les traitement de chaines (niveau débutant, prière s'arme de patience :lol: )
Donc, il s'agit d'écrire un programme qui lit une 'phrase' sous forme de chaîne de caractères et l'inverse:
entrée: le monde est petit
sortie: petit est monde le
sachant que deux 'mots' sont séparés par un seul espace, et que la chaine ne doit pas commencer ni finir par un espace
Mon (pseudo:p) prg est constitué de trois parties controle et modification de l'entrée selon les critère ci-dessus, comptage du nb de 'mots' contenus, ensuite, ben, le traitment qui inverse la chaine en utilisant le nb de mots..
Alors voilà:
Code:

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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 program aaa; uses wincrt; (* euh, oui j'utilise TPW :p *) var i,j,c, (*compteurs*) l, (*longuer de notre chaine*) nb, (* nb d'esapces*) nbm, (*nb de mots =nb d'espace +1*) p, (*pos du 1er espace*) x (*longuer du 1er mot *) : integer; ch,espace,res,m : string; esp: boolean ; (*s'il existent deux espaces qui se suivent ou non *) begin write('entrer votre chaine') ; read(ch); l:=length(ch); for j:= 1 to l do if (ch[j]=' ') and (ch[j-1]=' ') then delete(ch,j,1); (* autre possiblité, qui ne fonctionne pas non plus apparemment: j:=0;esp:=false; repeat j:=j+1; if (ch[j]=espace) and (ch[j-1]=espace) then begin esp:=true; delete(ch,j,1); end; until (esp=false) or (j=l) ; *) if ch[1]=' ' then delete(ch,1,1); if ch[l]=' ' then delete(ch,l,1) ; i:=0; nb:=0; repeat i:=i+1; if ch[i]=' ' then nb:=nb+1; until (i=length(ch)-1); writeln(nb,'espaces'); (* juste pour voir :p *) nbm:=nb+1; writeln(nbm, 'mots'); res:=''; (*chaine vide qui contiendra la nvlle chaine inversée *) for c:=1 to nbm do espace:=' '; p:=pos(espace,ch); (* position du 1er espace, précédé donc du 1er mot*) m:=copy(ch,1,p); (* exrait le 1er mot dans 'm' *) x:=length(m); delete(ch,1,x); (* supprime le 1er mot*) res:=m+res; writeln('chaine inversée',res) end.
Merci :D

07/05/2006, 20h37
diden138

salut,

t'a beacoup d'erreur vulgaire comme le dit hdd34( le moderateur):lol: ch[j]=esp;type incompatible!!! 2eme chose delet(ch,1,1) jamais vu utilise plutot delet(ch[j])sinon la première methode fera l'affaire je trouve:D
sinon a part ca je trouve ton programme clean.
07/05/2006, 20h41
Celtic fiddle

Citation:

ch[j]=esp;type incompatible!!!

ah oui je voulais dire: espace pas esp :roll:

Citation:

sinon la première methode fera l'affaire je trouve:D

mais non ça ne marche pas :(
07/05/2006, 20h47
diden138

resalut,

est ce que tu est sur que delet (ch[j],j,1)existe parceque moi j'vais l'habitude de travailler avec delet(ch[j]);:roll:
07/05/2006, 20h51
Celtic fiddle

euh.. normalement oui:

delete(ch,p,n) : efface n caractères de ch à partir de la position p
07/05/2006, 21h12
diden138

resalut,

oui t'a raison ecoute je vais reflechir a ton prob demain je te donnerai une reponse:Dok bon fin de soirée
07/05/2006, 21h49
Celtic fiddle

Merci :D
08/05/2006, 13h32
Sheriff

Salut ! si je peux me permettre, je trouve que tu utilises beaucoup trop de variables et donc de code dans ton programme ; je t'explique mon principe :

- tu as une chaine qui contient la phrase en question
- tu as une autre chaine de même longueur qui contient la phrase inversée;
- tu parcours la chaine a partir de la fin, biensur avec une variable entiere i que tu initialise avec la longueur de la phrase.
lorsque chaine1[i]=' ' (l'espace) tu recopie chaque caractère jusqu'au prochain espace dans ta deuxième chaine en concaténant à chaque fois(au besoin tu peux utiliser le break pour sortir de l'itération lorsque tu tombe sur un espace)
enfin il ne te reste plus qu'à afficher la seconde chaine et t'as la phrase inversée.

au prochain message je t'envoie une portion de code, si tu veux bien
a+

salut,

A mon avis ce code fera l'affaire ;) tu peux biensur l'ameliorer j'ai pas eu beaucoup de temp pour ca

Code:

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
31
32
33
34
{j'ai relaiser ce programme celon l'exemple que tu nous a donner hello world devient world hello}
program inverse;
uses crt;
var
ch,ch1:string[80];
l,i,j,k,pos:integer;
p:char;
begin
clrscr;
write('Entrer la chaine de caractere:'); {Il appuye sur tab puis entre ta phrase }
p:='!';
read(ch);
l:=length(ch); k:=length(ch); {j'ai voulu faire simple arceque j'ai pas le temp si tu veuc tu peuc ameliorer ton code facilement}
for i:=1 to l do
begin
if ch[i]=' ' then ch[i]:=p;
end;
for i:=l downto 1 do
begin
if ch[i]='!' then
begin
ch[i]:=' ';
pos:=i;
for j:=pos to k do
begin
ch1[j]:=ch[j];
write(ch1[j]);
k:=k-(k-i);
end;
end;
end;
readln;
readln;
end.

Le code juste au-dessus n'a manifestement pas été testé et ne fonctionne pas...

Sinon voilà un algorithme pour effectuer ça... A analyser et comprendre :

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
function ReverseWords(const S: string): string;
const
  Spaces = [' ', #9]; { Espace et tabulation }
var
  Result: string;
  Len: Integer;
  i: Integer;
  B: Integer;
begin
  Result := '';
  Len := Length(S);
  B := 1;

  { Suppression des espaces de début et de fin }
  while S[b] in Spaces do Inc(B);
  while S[Len] in Spaces do Dec(Len);
  
  { On ajoute tous les mots sauf le dernier }
  i := B;
  while i <= Len do
  begin
    { L'espace permet de délimiter la fin d'un mot }
    if (S[i] in Spaces) or (i = Len) then
    begin
      { Il faut se placer derrière le dernier mot }
      if (i = Len) then Inc(i);
      { On ajoute le mot }
      Result := Copy(S, B, i - B) + ' ' + Result;
      { On saute les espaces qui se suivent }
      while (i < Len) and (S[i + 1] in Spaces) do Inc(i);
      { On indique le début du prochain mot }
      B := i + 1;
    end;

    { On passe au caractère suivant }
    Inc(i);
  end;
  
  { On enlève l'espace en trop qui s'est glissé }
  Delete(Result, Length(Result), 1);

  ReverseWords := Result;
end;

merci à tous pour votre aide :D

quant au controle de la chaine, je l'ai corrigé, voilà:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure control(var ch:string); var esp:boolean; i:integer; writeln('entrer chaine');readln(ch); esp:=false; repeat for i:=1 to length(ch) do if (ch[i]=' ') and (ch[i+1]=' ') then begin esp:=true; delete(ch,i,1); end; until (esp=false) or (i=length(ch));
Je risque de poster d'autres sujets de ce genre, j'ai un exam bientot, et plus de prof pour poser mes questions :lol:

19/05/2006, 08h02
Eric Sigoillot
Bonjour,

Ton code est dangereux et source de failles : quand i = Length(ch), ch[i+1] n'est pas défini.

De plus, tu fais une boucle allant de 1 à Length(ch), mais dans le corps de la boucle, tu fais des appels à Delete(ch). Donc la longueur de la chaîne diminue. Tu supposes que la condition de la boucle for est réévaluée à chaque itération. Ce n'est pas forcément le cas en Pascal.

En effet, la norme indique ceci :
Citation:
Apart from the restrictions imposed by these requirements, the for-statement

Code:

for v := e1 to e2 do body

shall be equivalent to

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 begin temp1 := e1; temp2 := e2; if temp1 <= temp2 then begin v := temp1; body; while v <> temp2 do begin v := succ(v); body end; end; end;
Comme tu peux le voir, la condition de sortie (e2) est évaluée en début de boucle, et elle n'est jamais réévaluée en cours de boucle. La condition finale est une pseudo-constante pour la boucle.

@++