Fonction

Fermé
xman - 19 déc. 2012 à 19:05
00lina00 Messages postés 29347 Date d'inscription lundi 1 décembre 2008 Statut Modérateur Dernière intervention 5 août 2023 - 19 déc. 2012 à 19:06
c'est une fonction récursive pour compter le nombre de voyelles dans une chaine mais lors de l'exécution le résultat est 0 , je ne sais pas où est l'erreur
function nbv(i:integer;ch:string):integer;
var
n:integer;
begin
n:=0;
if(i<=length(ch)) then
if (upcase(ch[i])in['A','E','U','I','O','Y'])then
begin
n:=n+1;
n:=n+nbv(i+1,ch);
end;
nbv:=n;
end;
A voir également:

1 réponse

00lina00 Messages postés 29347 Date d'inscription lundi 1 décembre 2008 Statut Modérateur Dernière intervention 5 août 2023 1 099
19 déc. 2012 à 19:06
Bonjour,

Les intervenants du forum n'étant pas des robots, mais des êtres humains agissant bénévolement, quelques mots de politesse sont toujours les bienvenus.

Une phrase commençant par "bonjour" et se finissant pas "merci d'avance" a plus de chance d'avoir rapidement une réponse de qualité.

Merci de votre compréhension.

00lina00. Modératrice de CCM
0