Compter les mots d'un texte

Version imprimable

1 pièce(s) jointe(s)

Bonjour !

J'ai rencontré un problème.

Voici le sujet :

Pièce jointe 192389

Et voici mon propre essai :

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
program analy;
uses wincrt;
var
t:array[1..100] of integer;
n,m,i,j,p:integer;
ch,c:string;
begin
writeln('donner le nombre des phrases');
readln(n);
writeln('donner le nombre de mots dans chaque phrase');
readln(m);
for i:=1 to 100 do
begin
t[i] :=0;
end;
for i:=1 to n do begin
writeln('donner la phrases n°',i);
readln(ch);
while (pos(' ',ch)<>0) do
   begin 
c:=(copy(ch,1,pos(' ',ch)-1));
   t[length(c)]:=t[length(c)]+1;
   delete(ch,1,pos(' ',ch));
   end;
   t[length(ch)]:=t[length(ch)]+1
 
  end;
 
for i:=1 to 100 do
begin
if t[i] <>0 then
writeln(i,': ', t[i]);
end;
end.

L'auto test du site me dit qu'il y a une faute dans le programme.

Donnez-moi la solution SVP.

Merci :)

bonjour à tous,:coucou:

à part un petit point virgule qui manque, je ne vois pas d'erreurs :
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 program analy; uses wincrt; var t:array[1..100] of integer; n,m,i,j,p:integer; ch,c:string; begin writeln('donner le nombre des phrases'); readln(n); writeln('donner le nombre de mots dans chaque phrase'); readln(m); for i:=1 to 100 do begin t[i] :=0; end; for i:=1 to n do begin writeln('donner la phrases n°',i); readln(ch); while (pos(' ',ch)<>0) do begin c:=(copy(ch,1,pos(' ',ch)-1)); t[length(c)]:=t[length(c)]+1; delete(ch,1,pos(' ',ch)); end; t[length(ch)]:=t[length(ch)]+1; // ici end; for i:=1 to 100 do begin if t[i] <>0 then writeln(i,': ', t[i]); end; end.
si cela ne marche toujours pas, il faudrait connaître le message d'erreur en entier et qu'elles sont les phrases(on peut tricher en utilisant un try...except en affichant les phrases s'il y a une erreur), peut être un dépassement de tableau, j'ai pas trop regardé en détail...

moi aussi j'avais fait ce concours l'année dernière (j'avais échoué en demi-finale à 3 places près :aie:) et il me semble me souvenir que pour s'entrainer, on pouvais utiliser le pascal mais pas dans le concours. Je ne sais pas si ça a changé mais si c'est toujours pareil, il faudra t'orienter vers un autre language accepté comme python ou java (de mémoire) pour pouvoir participer.

salut

voici la trame que j'aurais utilisé pour lire une phrase

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
...
i := 1;
while i < length(Phrase) do 
begin
  if Phrase[i] = ' ' Then 
  begin
    t[length(Mot)]:=t[length(Mot)]+1;
    Mot := '';
  end
  else 
    mot := Mot+Phrase[i];  
  inc(i);
end;
 if length(Mot) > 0 Then 
   t[length(Mot)]:=t[length(Mot)]+1;

Citation:
Envoyé par anapurna
salut

voici la trame que j'aurais utilisé pour lire une phrase
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... i := 1; while i < length(Phrase) do begin if Phrase[i] = ' ' Then begin t[length(Mot)]:=t[length(Mot)]+1; Mot := ''; end else mot := Mot+Phrase[i]; inc(i); end; if length(Mot) > 0 Then t[length(Mot)]:=t[length(Mot)]+1;
Il s'agit d'une trame, mais elle contient au moins une erreur : si le dernier mot de la phrase n'est pas suivi d'un espace, il ne sera jamais comptabilisé.
[J'aurais aussi initialisé les variables, car si elles sont locales (dans une routine), elles ne seront pas initialisées et provoqueront des erreurs erratiques.]
Mais le principe est bon ;)

26/11/2015, 15h01
anapurna
Citation:

Envoyé par gvasseur58

Il s'agit d'une trame, mais elle contient au moins une erreur : si le dernier mot de la phrase n'est pas suivi d'un espace, il ne sera jamais comptabilisé.
[J'aurais aussi initialisé les variables, car si elles sont locales (dans une routine), elles ne seront pas initialisées et provoqueront des erreurs erratiques.]
Mais le principe est bon ;)

pour le dernier mots
apres la boucle je fais
Code:

1 2 3 if length(Mot) > 0 Then t[length(Mot)]:=t[length(Mot)]+1;
tu pense que ce code est là pour faire jolie ;)

sinon pour les variables tu as raison il est préférable de les initialisé mais c’était sous entendu dans les ...
26/11/2015, 15h28
gvasseur58

Citation:

Envoyé par anapurna

tu pense que ce code est là pour faire jolie ;)

sinon pour les variables tu as raison il est préférable de les initialisé mais c’était sous entendu dans les ...

Oups, désolé, je n'avais pas vu que le listing défilait :calim2:
27/11/2015, 11h39
Roland Chastain

Par contre pas de raison d'ignorer le dernier caractère, on est d'accord ?

Code:

while i <= length(Phrase) do
27/11/2015, 12h35
anapurna

salut

effectivement, je me suis loupé sur le dernier caractère :aie:
mais bon c’était surtout pour montrer le principe ^^