Programme calcul de valeur moyenne

Version imprimable

07/06/2011, 15h53
PhyRen

Programme calcul de valeur moyenne

Bonjour,

J'essaye de créer un programme qui me permettrait de calculer la valeur moyenne d'une variable.
J'ai un fichier avec une seule colonne ou chaque ligne represente une valeur de la variable et je voudrai que mon programme ouvre se fichier, lise la colonne et calcul la valeur moyenne tout en l'écrivant sur un nouveau fichier.

Le truc c'est que je sais meme pas comment faire la somme des lignes de mon fichier ... peut-être une boucle avec compteur ... je sais pas trop.

Ps : mon fichier d'entrée a un nombre de ligne variable mais toujours une seule colonne.

Merci d'avance
07/06/2011, 16h10
Sylvain Bergeron

Ça sent le travail de classe à plein nez... Je ne vais donc pas tout te cuire...

La stratégie la plus simple (et classique) consiste à lire les données une à la fois (par une boucle tant qu'il y a des données) en accumulant la somme et le nombre de données à chaque itération.
07/06/2011, 16h23
PhyRen

Merci pour la réponse rapide :)

Ce n'est pas un travail de classe même si c'est vrai que ca peux y ressembler ;)
J'ai bien fait une lecture avec une boucle mais je ne vois pas comment accumuler la somme et le nombre d'iteration. Je vais y réflechir mais je suis un débutant en programmation.
07/06/2011, 16h38
Sylvain Bergeron

Tu dois avoir des accumulateurs (mettons Somme et Nombre) que tu mets à 0 avant la boucle. Dans la boucle, tu accumules (mettons Somme = Somme + Valeur)...

Salut Phyren,

bon j'espère pour toi que depuis le temps tu as résolu ton problème sinon voila la solution en f77.

Code:

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