Compter les occurences d'un mot dans une chaîne

Version imprimable

mon prgramme ne s'execute pas; il consiste a compter les occurences du mot (mot) dans la chaine de caractères(ch) ,le voici:

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
 
function occ_mot(ch: string;var mot: string):integer;
 var l,cpt:integer;
     m:string;
     begin
      l:=1;
      cpt:=0;
      while l<=length(ch) do
         begin
              while (ch[l] in sep) do
                  begin
                      l:=l+1;
                  end;
              if ch[l]= mot[1] then
                 begin
                     while not (ch[l] in sep) do
                         l:=l+1;
                     if l= length(mot)-1 then
                        begin
                              m:=copy(ch,l-length(mot)+1,length(mot));
                              if m=mot then
                                 cpt:=cpt+1;
                       end;
                 end;
         end;
     occ_mot:=cpt;
   end;

aidez moi svp.

20/04/2008, 20h55
Alcatîz

Bonjour !

Lorsque tu écris

Code:

while (ch[l] in sep) do

qu'est-ce exactement que sep ?
20/04/2008, 20h58
mimi2311
sep: set of char
Code:

1 2 sep :=[' ',';','!','?','.'];

:oops: Ben oui, sep = séparateur, comment n'y ai-je pas pensé. :roll:

Il y a quelques problèmes dans ton code, je pense que ces quelques corrections devraient fonctionner :

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
Function occ_mot (ch : String; var Mot : String) : Integer;
Var l, cpt, Debut : Integer;
    m : String;
Begin
  l :=1 ;
  cpt := 0;
  while l <= Length(ch) do
    begin
      while (ch[l] in sep) do
        begin
          l := l + 1;
        end;
      if ch[l]= mot[1]
         then
           begin
             Debut := l;
             while not (ch[l] in sep) do
               l := l + 1;
             m := Copy(ch,Debut,l - Debut);
             if m = mot
                then
                  cpt := cpt + 1;
           end
         else
           l := l + 1;
    end;
  occ_mot := cpt;
End;

Il faut garder trace de l'indice du début du mot, lorsque ch[l] est identique à la 1ère lettre du mot à chercher. D'où une nouvelle variable Début.

20/04/2008, 22h37
mimi2311

merci pour votre aide ça marche mnant :D