Discussion :

[moi2009]

Bonjour
Comment puis-je programmer en Pascal une procédure récursive qui calcule la somme des chiffres d'un entier?

Merci

[Wachter]

Bonsoir,

Principe : a + b = a + (b - 1) + 1.

Code :

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

1
2
3
4
5
6
7
8
9
 
Somme(a, b : entier) : entier
Début
  Si b = 0 alors 
    Retourner a;
  Sinon 
    Retourner 1 + Somme(a, b - 1);
  FinSi
Fin

--
Wachter

[krachik]

Bonjour

Surtout qu'il faut faire la somme des chiffres d'un entier, il faut d'abord penser a extraire ces chiffres avant de les sommer entre eux
Avec cette fonction, extraction deux par deux et sommer avec une somme globale chaque somme.

Mais je crois que ce que demande l'énoncé est une fonction qui prend en paramètre l'entier et qui renvoie la somme des chiffres

Cordialement

[Wachter]

Bonjour

Surtout qu'il faut faire la somme des chiffres d'un entier, il faut d'abord penser a extraire ces chiffres avant de les sommer entre eux
Avec cette fonction, extraction deux par deux et sommer avec une somme globale chaque somme.

C'est faux ! Prenons un exemple :
n = 123
s1 = 1 + 2 s1 = 3
s2 = 2 + 3 s2 = 5
s = s1 + s2 s = 8 au lieu de 6 !

Mais je crois que ce que demande l'énoncé est une fonction qui prend en paramètre l'entier et qui renvoie la somme des chiffres

À mon avis, une fonction récursive est censée faire une seule chose, pas plus !

--
Wachter

[krachik]

Bonjour

C'est faux ! Prenons un exemple :
n = 123
s1 = 1 + 2 s1 = 3
s2 = 2 + 3 s2 = 5
s = s1 + s2 s = 8 au lieu de 6 !

Si on a bien compris ta fonction a savoir faire la somme de deux entiers en voyant ce que j'ai dit :

Avec cette fonction, extraction deux par deux et sommer avec une somme globale chaque somme.

On comprendrait que quand je dis 'extraction deux par deux' que je dis par exemple si on a 123 comme tu dis l'extraction doit être 1 et 2 et ensuite 3 et 0 (a moins que ce j'ai dit n'était pas très clair ) ou si on a 1234 ça serait plutôt 1 et 2 et 3 et 4.

À mon avis, une fonction récursive est censée faire une seule chose, pas plus !
--
Wachter

D'accord avec toi
La encore excuses moi de jouer sur les mots

Mais je crois que ce que demande l'énoncé est une fonction qui prend en paramètre l'entier et qui renvoie la somme des chiffres

je n'ai pas écrit une fonction récursive sachant qu'il y a extraction et calcul de somme, pour être plus claire une fonction qui prend un entier et retourne un autre entier(somme des chiffres de l'entier passé en paramètre) et c'est dans cette fonction qu'on calculera la somme des chiffres après extraction.

Cordialement

[Wachter]

je n'ai pas écrit une fonction récursive sachant qu'il y a extraction et calcul de somme, pour être plus claire une fonction qui prend un entier et retourne un autre entier(somme des chiffres de l'entier passé en paramètre) et c'est dans cette fonction qu'on calculera la somme des chiffres après extraction.

Bien que tu n'as pas écrit fonction récursive, je sous-entendais cela, sinon on sort complètement du sujet !

Bref, voici la version itérative de l'algorithme de résolution de cet exercice, et je laisse le soin au posteur du message d'écrire sa version récursive, quoique ce n'est pas toujours évident de passer de l'itératif vers le récursif :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Lire (nombre);
 
somme = 0;
Tant que (nombre > 0)
  i = nombre % 10;
  somme = somme + i;
  nombre = nombre / 10;
Fin Tant que
 
Afficher(somme);

--
Wachter

[bs.box]

Essaye:

Code :

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

1
2
3
4
5
6
7
 
    function _SommeChiffres_(Const nbr :Integer) :Integer;
    begin
      if nbr>0
         then _SommeChiffres_ := ( nbr mod 10 ) + _SommeChiffres_( nbr div 10 )
         else _SommeChiffres_ := 0
    end;

a+