Calcul récursif de la somme des chiffres d'un entier

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

Merci

Bonsoir,

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

Code:

---

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

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:P

Cordialement

Citation:

---

Envoyé par 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.

---

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

Citation:

---

Envoyé par krachik

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:P

---

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

--
Wachter

Bonjour

Citation:

---

Envoyé par Wachter

C'est faux ! Prenons un exemple :
n = 123
s1 = 1 + 2 :fleche: s1 = 3
s2 = 2 + 3 :fleche: s2 = 5
s = s1 + s2 :fleche: 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 :

Citation:

---

Envoyé par krachik

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.

Citation:

---

À 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

Citation:

---

Envoyé par krachik

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

Citation:

---

Envoyé par krachik

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:

---

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

Essaye:

Code:

---

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+ ;)