Il Linguaggio Fortran 90/95

2.3 Istruzioni di ripetizione 113
Si riporta, per motivi di completezza, anche un esempio di impiego del programma:
Intervallo di temperatura:
10
Celsius Kelvin Fahrenheit Reaumur
========== ========== =========== ==========
0.000000E+00 273.1500 32.00000 0.000000E+00
10.00000 283.1500 50.00000 8.000000
20.00000 293.1500 68.00000 16.00000
30.00000 303.1500 86.00000 24.00000
40.00000 313.1500 104.0000 32.00000
50.00000 323.1500 122.0000 40.00000
60.00000 333.1500 140.0000 48.00000
70.00000 343.1500 158.0000 56.00000
80.00000 353.1500 176.0000 64.00000
90.00000 363.1500 194.0000 72.00000
100.0000 373.1500 212.0000 80.00000
Un altro ineressante esempio di ciclo a condizione finale è rappresentato dal programma
che segue il quale valuta la media aritmetica e la deviazione standard di un insieme di valori
reali introdotti da tastiera. Il numero di questi valori non è noto a priori per cui al termine
di ogni passaggio del ciclo viene chiesto all’utente se il computo deve continuare oppure se si è
introdotto l’ultimo campione. Si ricordano, brevemente, le definizioni di media e di deviazione
standard:
n
xi
i=1
¯x =
n
σ = 1 n
n
(xi − ¯x) 2
PROGRAM MeansAndStandardDeviation
! Variabili usate:
! mean - media aritmetica
! sd - deviazione standard
! ssq - somma quadratica
! x - generico valore di input
! w,r,s - variabili di lavoro
IMPLICIT NONE
REAL :: mean=0.0, ssq=0.0, x, w, sd, r, s
INTEGER :: n=0
CHARACTER(LEN=1) :: risp
ext: DO
n = n+1
WRITE(*,*) "Introduci il valore: "
i=1