Les Fonctions récursives

Bonsoir à tous,

J'ai un petit problème avec les fonctions récursives pour lesquelles je dois faire un exercice :

Citation:

---

Ecrire une fonction Fortran 90, récursive, qui calcule la factorielle d'un nombre entier N passé comme argument.

---

Pour cela j'ai écrit une fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

recursive function factorielle(n) result (facto) implicit none integer, intent (in) :: n integer :: facto   IF(n.eq.0 .OR. n.eq.1) then facto=1 ELSE DO facto=n*factorielle(n-1) END DO ENDIF END FUNCTION

---

Et lorsque je veux la tester avec un programme, ça foire rien ne se passe, j'ai l'impression que le problème vient de programme appelant que voici :

Code:

---

1 2 3 4 5 6 7 8 9 10

program factotest implicit none integer::n,factorielle,facto   n=6 facto=factorielle(n)   print *, facto   end program

---

Quelqu'un pourrait-il éclairer ma lanterne ? ^^

Merci d'avance !

Citation:

---

Envoyé par RondoudouBooleen

...

Code:

---

1 2 3 4 5

... DO facto=n*factorielle(n-1) END DO ...

---

...

---

C'est une boucle infinie. Une boucle DO / ENDDO sans compteur ni clause while doit normalement contenir une condition de sortie (if (...) exit, read(...end=),...).

Dans ton cas, tu n'as simplement pas besoin de boucle. Tu n'as qu'un calcul simple à faire : facto=n*factorielle(n-1). Tu dois donc enlever le DO et le ENDDO. La boucle (parce qu'il en faut une pour calculer un factoriel) vient de l'appel récursif à factorielle().

Super, c'est bien ça, merci beaucoup :D

Par contre ce qui m'étonne un peu, c'est que c'est le prof qui m'avait dit d'écrire ça, ça ne marchait déjà pas en cours et limite il m'inventait des fautes ...

Enfin bref ça marche maintenant c'est tout ce qui compte :ccool: