Discussion :

[zido_dz]

j'ai se program et je sais pas ou est mon erreur !!
je doi ecrire un program qui fait la moyenne de 3 nombre en utilisant la notion des function !!

program moyenne
implicit none

!Declaration
real::a,b,c

write(*,*)'Donner la valeur de :',a
read*,a
write(*,*)'Donner la valeur de :',b
read*,b
write(*,*)'Donner la valeur de :',c
read*,c

contains
!nom de la fonction
real function moy(x,y,z)
implicit none
!Declaration de la finction
real,intent(in):,y,z
moy=(x+y+z)/3;
return
!fin de la function
end function moy

!affichage

write(*,*)'la moyenne =',moy(a,b,c)

end program moyenne

[Sylvain Bergeron]

Je n'aime pas donner la réponse pour un TP, mais comme tu es très près de la solution et que l'effort est là...

Dans un programme, la section « contains » doit être à la fin du programme, et non insérée n'importe où :

Code :

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

1
2
3
4
5
6
7
 
program
use
déclaration
instruction
contains
end

Tu dois donc simplement remonter la ligne « write » de la moyenne entre les « read » et le « contains ».