Προγραμματισμός FORTRAN > Παραδείγματα > Στατιστικά Αριθμών

Να γραφεί πρόγραμμα που να υπολογίζει το μέσο όρο (ΜΟ), τη διασπορά (Var) και τη Τυπική Απόκλιση (Std) ενός πλήθους Ν αριθμών (xi). Οι αριθμοί βρίσκονται σε ένα αρχείο data.txt και τα αποτελέσματα θα σταλούν στο αρχείο apotel.txt. Οι τύποι υπολογισμού είναι:

Κώδικας:

PROGRAM statistic2
IMPLICIT NONE
 REAL:: x, S1, S2, MO, Var, Std
 INTEGER:: N, i
 OPEN(10, FILE='data.txt')
 OPEN(20, FILE='apotel.txt')
 READ(10,*) N
!
 S1 = 0.0 ; S2 = 0.0
 DO i = 1, N
  READ(10,*) x
  S1 = S1 + x
  S2 = S2 + x**2
 END DO
 MO = S1 / N
 Var = S2 / N - MO**2
 Std = SQRT(Var)
!
 WRITE(20,*) 'Plithos Arithmwn:', N
 WRITE(20,*) 'O Mesos Oros tous einai:', MO
 WRITE(20,*) 'H Diaspora tous einai :', Var
 WRITE(20,*) 'H Typiki Apoklisi einai:', Std
END

Αρχείο Δεδομένων (data.txt):

20
0.3
1
45.6
23.
... (20 αριθμοί) ...

Εκτέλεση:

Αρχείο Αποτελεσμάτων (apotel.txt):

 Plithos Arithmwn: 20
 O Mesos Oros tous einai: 55.46520
 H Diaspora tous einai : 11474.54
 H Typiki Apoklisi einai: 107.1193