Probléme de Récursivité

salut
postes ton essaye meme si incomplé ou bien
ce que tu a pensé
cdlt

Hey mec, si j'avais une simple idée je ne poste pas ce sujet, mais je ss vraiment incapable de trouver la solution sauf en l'algorithme classique (sans récursivité). On plus les professeurs nous disent que pour trouver une solution récursive il faut chercher l'élément récursif (qui diminue ou augmente), exprimer la solution dans le cas général qui contient des appels récursifs et aprés trouver les conditions d'arrêt pour que le programme ne tourne pas dans une boucle fermée

Je ne connais pas le Pascal, mais voici un code en Python que tu pourrais adapter qui fait ce que tu demandes :

chn=raw_input("Chaine : ") #Demande a l'utilisateur d'entrer la chaine a analyser et l'enregistre dans chn
ca=" " #Defini de caractere a compter (ici un espace)
n=0 #Initialise le compteur
nn=0 #Initialise la variable de recursivite
while nn<=len(chn)-1: #Tant que nn<(nombre de caracteres de la chaine)-1 (Le premier caractere etant le numero 0)
	if chn[nn]==ca: #Si le caractere nn est celui enregistre dans ca
		n=n+1 #On ajoute 1 au compteur
	nn=nn+1 #On ajoute 1 au compteur de recursivite
print n #On affiche le nombre de fois que le caractere apparait dans la chaine

Oui, récursivité, j'ai pensé boucle.
Désolé, je me suis rendu compte de mon erreur en lisant le message de Droopy_.

bonjour GKA
je pense que ce programme repend à ta question

  program recurs;
  uses Strings,crt;
  var
    chaine:string;
    c:char;
    x,a:integer;
      function app_car(c:char;var chaine:string):integer;
      var  car:char;
           long:integer;
      begin
        long:=length(chaine);
        car:=chaine[long];
        chaine:=copy(chaine,1,length(chaine)-1);

        if long=0 then
         begin
            app_car:=a;
            exit;
         end;
        if car=c then
          a:=a+1;
     app_car:=app_car(c,chaine);
end;
begin
clrscr;
write('entrez la chaine: ');
readln(chaine);
write('entrez le caractere que vous voulez: ');
readln(c);
a:=0;
x:=app_car(c,chaine);
write('le nombre d"apparition du caractere ',c,' dans votre chaine est: ',x);
readkey;
end.

cordialement