Fonction
Fermé
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;
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;
1 réponse
-
ModérateurBonjour,
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
