Discussion :

[momo_17]

Bonjour,

je gal(re sur un truc tout bête...
j'ai écris un programme sous fortran qui fait appelle a un sous programme.quand j'essaye de compiler j'obtiens des messages d'erreurs , que j'essaye de résoudre bien évidemment mais qui me redonne d'autre message d'erreurs...
je suis un peu a bout et j'aurai besoin d'un avis extérieur merci d'avance


voici mon programme principal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program mainfactorialf
 
implicit none
 
real kmn,p,q,t
 
write(*,*) "rentrer les coefficients m puis n dont on veut calculer le cmn"
 
read(*,*) p,q
 
t=p-q
 
kmn=factorialf(p)/(factorialf(q)*factorialf(t))
 
end program

et le sous programme
! cette fonction est sensée pouvoir calculer le produit factoriel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
integer function factorialf(n)
 
implicit none
integer, intent (in) :: n
integer :: i, ans
 
ans=1
 
do i=1,n
ans=ans*i
end do
 
factorialf=ans
 
 
end function factorialf

cordialement

[Sylvain Bergeron]

Erreurs :

• Dans le programme principal, la fonction factorialf doit avoir un type
• Les arguments de factorialf sont entiers alors que tu passes des real
• Il faudrait afficher le résultat kmn pour que ce soit utile...

Pour donner un type à la fonction factorialf, tu peux :

• ajouter integer factorialf dans le programme principal
• placer la fonction dans une section contains du programme (elle sera alors visible)
• Placer la fonction dans un module