Il Linguaggio Fortran 90/95

2.3 Istruzioni di ripetizione 111
Il blocco di istruzioni interno al ciclo è eseguito secondo quest’ordine:
1. Viene valutato il valore di espressione_logica :
• se questo valore è .FALSE., nessuna istruzione del blocco viene eseguita e il controllo
passa alla prima istruzione che segue l’istruzione END DO;
• se questo valore è .TRUE., viene eseguito il blocco di istruzioni a partire dalla prima
istruzione che segue l’istruzione DO WHILE.
2. Quando viene raggiunta l’istruzione finale del ciclo, il controllo ritorna all’istruzione
DO WHILE, espressione_logica viene valutata di nuovo ed il ciclo riprende.
Naturalmente anche il loopDO WHILE può essere ”generalizzato” prevedendo una o più istruzioni
CYCLE e EXIT.
Un esempio di utilizzo del costrutto DO WHILE è il seguente:
CHARACTER(1) input
input = ’ ’
DO WHILE((input /= ’n’) .AND. (input /= ’y’))
WRITE(*,’(A)’) ’Enter y or n: ’
READ(*,’(A)’) input
END DO
ed ha lo scopo di sospendere l’esecuzione del programma in cui esso è inserito fino a che l’utente
non introduca da tastiera il carattere y oppure il carattere n.
Ciclo a condizione finale
Il ciclo a condizione iniziale (anche detto ciclo repeat-until) si caratterizza per la presenza
del test sulla condizione_logica in coda al blocco di istruzioni, subito prima dell’istruzione
END DO. In tal caso, ovviamente, le istruzioni del corpo del ciclo verranno sempre eseguite
almeno una volta. La forma generale di tale ciclo è la seguente:
[nome:] DO
blocco_di_istruzioni
IF (espressione_logica) EXIT
END DO [nome]
Un esempio di ciclo a condizione finale è rappresentato dal seguente frammento di programma:
INTEGER :: n
...
READ(*,*) n
DO
n = n**3