Discussion :

[aminebenkraiem]

Bonjour !

J'ai rencontré un problème.

Voici le sujet :



Et voici mon propre essai :

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
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

[Basile le disciple]

bonjour à tous,

à part un petit point virgule qui manque, je ne vois pas d'erreurs :

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
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 ) 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.

[anapurna]

salut

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

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
 
...
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;

[gvasseur58]

salut

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

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
 
...
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

[anapurna]

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 :

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

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 ...

[gvasseur58]

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

[Roland Chastain]

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

Code :

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

while i <= length(Phrase) do

[anapurna]

salut

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