1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
real*4 Moyenne
open (1, file='valeurs.dat', status='old')
open (2,file='resultat.dat',status='unknown')
Somme =0.
do I=1,100000 ! si tu penses qu'il peut y avoir plus de 100000
! valeurs dans le fichier augmente le nombre
read(1,*,end=10) x
Somme= Somme + x
end do
10 N=I-1 ! correspond au nombre d'éléments lus dans le fichier
Moyenne = Somme/N ! calcul de la moyenne
write(2,*) ' Il y avait ', N, ' valeurs dans le fichier ' ! stockage des résultats
write(2,*) 'la moyenne vaut : ', Moyenne
end |
Partager