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:
Modération : Ajout des balises [ CODE] par NoisetteProd
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;
Partager