Série d'exercices: Récursivité

wahid a écrit:Salut,
et la correction ??

bac a écrit:la correction SVP
c'est une bonne série et mercie

methodiX a écrit:

bac a écrit:la correction SVP
c'est une bonne série et mercie

On ne donne pas des exercices corrigés.
Mais plutôt, si un des exercices t'a plu, propose le dans un nouveau sujet. Et tout le monde va t'aider en te donnant des indications...

Bonne chance

Exercice N°1: Suites récurrentes
Un = 0 + 1 + 2 + 3 +.........+ n

Code:


function somme (n : integer) : integer;
begin
    if (n=0) then somme := 0
    else somme := n + somme(n-1);
end;


Exercice N°3: Manipulation des nombres
Ecrire un module récursif qui calcule la somme des chiffres d'un nombre

Code:


function somme_chiffres (n : integer) : integer;
begin
    if (n div 10 = 0) then somme_chiffres := n;
    else somme_chiffres := n mod 10 + somme_chiffres(n div10);
end;


mosa a écrit:

Exercice N°1: Suites récurrentes
Un = 0 + 1 + 2 + 3 +.........+ n

Code:


function somme (n : integer) : integer;
begin
    if (n=0) then somme := 0
    else somme := n + somme(n-1);
end;


Code:

if (n<=0) then somme:=0