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