Discussion :

[imeys]

bonsoir, je dois compter le nombre de voyelles présentes dans une chaine de caractère.
je ne comprend pas pourquoi il affiche le nombre totale de caractère dans le mot et non le nombre totale de voyelle

merci

voici mon code:

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
function compte(c:char;st:string):integer;
var i,cpt:integer;
begin
cpt:=0;
       for i:= 1 to length(st) do
       cpt:=cpt+1;
 
        CASE st[i] of
        'a':cpt:=cpt+1;
        'e':cpt:=cpt+1;
        'i':cpt:=cpt+1;
        'o':cpt:=cpt+1;
        'u':cpt:=cpt+1;
        'y':cpt:=cpt+1;
       end;
       compte:=cpt;
      end;
 
 
procedure TForm1.BTNcalculeClick(Sender: TObject);
var s:string;
    car:char;
    n:integer;
    begin
      s:=editentree.text;
      car:=editcar.text[1];
      n:=compte(car,s);
      showmessage(IntToStr(n));
end;

Modération : Ajout des balises [ CODE] par NoisetteProd

[Okaryn]

1/ Il te faut encadrer ta boucle for par un Begin/End
2/ Tu augmentes ton compteur cpt à chaque lettre à cause de la ligne située juste en dessous du For (cpt:=cpt+1;). Il faut donc supprimer aussier cette ligne.

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
function compte(c:char;st:string):integer; 
var i,cpt:integer; 
begin 
cpt:=0; 
for i:= 1 to length(st) do 
begin                             // Ligne à ajouter
// Ligne à supprimer : cpt:=cpt+1; 
CASE st[i] of 
'a':cpt:=cpt+1; 
'e':cpt:=cpt+1; 
'i':cpt:=cpt+1; 
'o':cpt:=cpt+1; 
'u':cpt:=cpt+1; 
'y':cpt:=cpt+1; 
end; 
end;                             // Ligne à ajouter
compte:=cpt; 
end;

Autres conseils :

- Le 1er argument de ta fonction n'est jamais utilisé, autant la supprimer.
- Tu devrais convertir ta chaîne en minuscules avant de la traiter, car sinon la lettre A ne sera pas comptée car il est en majuscule.
- Il te manque la gestion des caractères accentués.
- Tu devrais indenter tes blocs begin/end pour qu'ils soient plus lisibles

[imeys]

merci, fallais juste supprimer la ligne: cpt:=cpt+1; et ca fonctionne

[sjrd]

Tu peux faire plus simple et plus efficace comme ceci :

Code :

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

1
2
3
4
5
6
function Compte(C : Char; St : string) : integer;
var I : integer;
begin
  Result := 0;
  for I := 1 to Length(St) do if St[I] in ['a', 'e', 'i', 'o', 'u', 'y'] then inc(Result);
end;

Et si tu dois traiter des chaînes interminables, tu peux vouloir miser plus sur l'efficacité que sur la lisibilité, alors ça donne qqch comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
function Compte(C : Char; St : string) : integer;
var I : integer;
const
  Voyelles : array[0..25] of integer =
    [1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0];
begin
  Result := 0;
  for I := Length(St) downto 0 do inc(Result, Voyelles[Ord(St[I])-Ord('a')]);
end;

Oui je sais c'est pas vraiment très joli...

[imeys]

oui c sur que c plus court mais bon il fonctionne donc je garde celui que j'ai fait,
merci

[e-ric]

Salut

Petite remarque : le paramètre c de type Char ne sert pas à grand chose.

cdlt

e-ric

[delphichem]

Et binsûr pour généraliser, tu peux faire:

Code :

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

for I := 1 to Length(St) do if UpCase(St[I]) in ['A', 'E', 'I', 'O', 'U', 'Y'] then

[e-ric]

Salut

Je vois que tout le monde s'amuse alors je contribue ...

Code :

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

1
2
3
4
5
6
7
8
9
 
function Compte(const st : string) : integer; 
var 
  I : integer; 
begin 
  Result := 0; 
  for I := 1 to Length(St) do 
    Inc(Result,Ord(LowerCase(st[I])[1] in ['a', 'e', 'i', 'o', 'u', 'y'] ));
end;

Amusant, non?

cdlt

e-ric

[sjrd]

Amusant, non?

Tiens c'est joli ça Chapeau bas

PS : j'arrive pas à croire que j'avais pas vu pour le C : Char

[e-ric]

C'est un métier ;-)

Bonne soirée à tous !

e-ric