Il Linguaggio Fortran 90/95

2.3 Istruzioni di ripetizione 109
L’effetto di questo ciclo è quello di eseguire le istruzioni del blocco fintanto che il valore di diff
risulti minore di 0.001. Chiaramente se già il valore di partenza di diff risulta maggiore o
uguale di 0.001 le istruzioni del ciclo non verranno mai eseguite.
Il programma che segue, concepito per il calcolo del massimo comun divisore di due interi
con il metodo di Euclide, rappresenta un ulteriore esempio di ciclo a condizione iniziale:
! -------------------------------------------------------------
! Questo programma calcola il MCD di due numeri interi positivi
! usando il metodo di Euclide. Dati i1 e i2 con i1 >= i2, il
! metodo di Euclide lavora come segue:
! - si divide i1 per i2 valutando il resto intero tmp;
! - se tmp vale zero:
! il MCM e’ pari proprio a i2;
! - se tmp e’ diverso da zero:
! i2 diventa i1 e tmp diventa i2;
! si ripete il procedimento fino a che temp non e’ zero.
! -------------------------------------------------------------
PROGRAM MCD
IMPLICIT NONE
INTEGER :: i1, i2, tmp
WRITE(*,*) "Inserisci due interi positivi: "
READ(*,*) i1,i2
IF (i1 < i2) THEN ! poiche’ deve risultare i1 >= i2, i dati
tmp = i1 ! vengono sottoposti a swap se i1 < i2
i1 = i2
i2 = tmp
END IF
tmp = MOD(i1,i2) ! tmp adesso e’ il resto intero
DO ! ora certamente risulta i1