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