Il Linguaggio Fortran 90/95

116 Istruzioni di controllo
Armstrong number 1: 0
Armstrong number 2: 1
Armstrong number 3: 153
Armstrong number 4: 370
Armstrong number 5: 371
Armstrong number 6: 407
Può insorgere confusione quando le istruzioni EXIT e CYCLE vengono utilizzate all’interno
di cicli innestati. In tali casi è altamente raccomandato attribuire un nome a ciascun ciclo. A
titolo di esempio si possono considerare i seguenti programmi:
! Esempio n. 1
PROGRAM media_voti
IMPLICIT NONE
REAL :: voto, media
INTEGER :: stid, loop
INTEGER, PARAMETER :: n_esami=5
mainloop: DO
WRITE(*,*) ’Inserisci la matricola:’
READ(*,*) stid
IF (stid==0) EXIT mainloop
media=0
innerloop: DO loop=1,n_esami
WRITE(*,*) ’Inserisci il voto:’
READ(*,*) voto
IF (voto==0) CYCLE innerloop
flag: IF (voto