Il Linguaggio Fortran 90/95

114 Istruzioni di controllo
READ(*,*) x
w = x-mean
r = REAL(n-1)
s = REAL(n)
mean = (r*mean+x)/s
ssq = ssq+w*w*r/s
int: DO
WRITE(*,*) "Un altro valore?"
READ(*,*) risp
SELECT CASE(risp)
CASE("s","S")
EXIT int
CASE("n","N")
EXIT ext
CASE DEFAULT
CYCLE int
END SELECT
END DO int
END DO ext
sd = (ssq/r)**0.5
PRINT*, " Media Aritmetica: ", mean
PRINT*, " Deviazione Standard: ", sd
END PROGRAM MeansAndStandardDeviation
2.3.3 Cicli e istruzioni di diramazione innestati
I cicli DO con indice o condizionali e i costrutti di diramazione possono essere innestati tra loro
anche nella forme più disparate a formare strutture particolarmente complesse. In ogni caso,
però va ricordato che due costrutti risultano innestati correttamente se e solo se quello ”esterno”
giace completamente in quello ”interno”. Con gli esempi che seguono si vuole fornire solo un
piccolo campionario delle svariate possibilità che si possono realizzare:
INTEGER :: i
...
DO i = 1, 5
IF (i == 3) THEN
CYCLE
ELSE
WRITE(*,*) i
END IF
END DO