Discussion :

[petit programmeur]

Salut;
je voudrais une solution à l'énoncé suivant :

Déterminer si le nombre d'apparitions d'un caractère (C) donné dans un mot (MOT) est pair ou impair (Récursivement) à l'aide d'une fonction booléenne bien sûr.

Je veux seulement la fonction ? Et merci d'avance

[droggo]

Dio,

salut ;
je veut une solution à l'énoncée suivante :
déterminer est ce que le nombre d'apparition d'un caractère (C) donnée dans un mot (MOT) est paire ou impaire ( Récursivement ) à l'aide d'une fonction booléenne bien sur ?
je veut seulement la fonction ? et merci d'avance

Si tu avais un peu regardé quelques sujets du forum, tu saurais qu'on ne donne pas du code comme ça.

On est là pour t'aider à faire ton travail, pas pour le faire à ta place.

Et en plus en utilisant "je veut" (Je laisse volontairement la faute ), ce qui n'est pas vraiment une bonne manière de demander.

[darrylsite]

Montre nous où tu en est avec cet exercice. Où tu bloques comme ça on pourra t' aider. Presente nous d' abord un peu de code.

[petit programmeur]

La récursivité, comme vous savez bien est un domaine qui demande de la part du programmeur un peu de concentration , car si ce dernier ne trouve pas l'un de deux ponts de passage au récusive (qui sont la condition d'arret et les nouvelles parametres) donc il ne peut pas arriver à la solution désirée.
pour moi, j'ai commencé par la solution itérative, et par la suite je vient de determiner les deux éléments necessaires (condition d'arret et nouvelles parametres) pour la solution recursive ; mais j'arrive pas ? Et voilà la solution itérative :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function Pair_C (mot: string ; c:char ):boolean ; 
var 
  nb,i : integer;
begin 
  nb:=0;
  for i:=1 to long(mot) do 
    if c=mot[i] then  
       nb:=nb+1;
 
  if nb mod 2 = 0 then 
    Pair_c:= true 
  else 
     Pair_c:=false ;
end;

A partir de cette solution et après plusieurs essais , ; j'arrive pas même à compléter les valeurs de retour lors de nouveau appel ?

La solution finale est que la condition d'arret est d'apres moi : tester est ce que long(mot) = 1 mais dans ce cas la je n'arrive pas à completer les nouvelle parametres ? et meme cette condition d'arret n'est pas suffisante !


Merci .

[darrylsite]

Pour moi la meilleure solution est de compter d'abord le nombre d'apparitions de ce caractère dans la chaîne et ensuite déterminer si ce nombre est pair ou impair.
Tu peux donc faire une fonction récursive (dont je ne vois pas l'intérêt de la récursivité) pour compter le nombre de ce caractère, ensuite une autre qui détermine si ce nombre est pair ou pas.

[petit programmeur]

(dont je ne vois pas l'intérêt de la récursivité)

Oui je suis avec vous dans ce point ,
Mais, cela c'est un exercice dans le livre scolaire (4 ieme science info.) donc je suis obligé de le resoudre !

[darrylsite]

Regarde un peu ce 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
 
program compte;
uses crt;
 
type str30=string[30];
 
var n:integer;
    ch:str30;
function cpt(ch:str30;i:integer;car:char):boolean;
begin
 if i<=length(ch) then
  begin
   if ch[i]=car then
    inc(n);
    cpt:= cpt(ch,i+1,car);
   end
 else
  if (n mod 2)=0  then
    cpt:=true
  else
    cpt:=false;
end;
begin
n:=0;
ch:='je suis darrylsite menbre de developpez';
writeln(ch);
writeln(cpt(ch,1,'e'),'   ',n);
readln
end.

Comme quelqu' un l' a dit sur ce forum

Un exemple vaut mieux que ...

[petit programmeur]

Regarde un peu ce 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
 
program compte;
uses crt;
 
type str30=string[30];
 
var n:integer;
    ch:str30;
function cpt(ch:str30;i:integer;car:char):boolean;
begin
 if i<=length(ch) then
  begin
   if ch[i]=car then
    inc(n);
    cpt:= cpt(ch,i+1,car);
   end
 else
  if (n mod 2)=0  then
    cpt:=true
  else
    cpt:=false;
end;
begin
n:=0;
ch:='je suis darrylsite menbre de developpez';
writeln(ch);
writeln(cpt(ch,1,'e'),'   ',n);
readln
end.

Comme quelqu' un l' a dit sur ce forum

je vous remerci Mr Darrylsite pour votre attention à mon sujet. et aussi tous les membres.