Discussion :

[RondoudouBooleen]

Bonsoir à tous,

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

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 :

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

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 :

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

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 !

[Sylvain Bergeron]

...

Code :

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

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().

[RondoudouBooleen]

Super, c'est bien ça, merci beaucoup

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