Il Linguaggio Fortran 90/95

110 Istruzioni di controllo
!
IMPLICIT NONE
INTEGER :: Input
INTEGER :: Divisore
INTEGER :: Count
WRITE(*,*) "Inserire l’intero da scomporre"
READ(*,*) Input
Count = 0
DO
IF ((MOD(Input,2)/=0).OR.(Input==1)) EXIT
Count = Count+1
WRITE(*,*) "Fattore n. ", Count , ": ", 2
Input = Input / 2
END DO
Divisore = 3
DO
IF (Divisore>Input) EXIT
DO
IF ((MOD(Input,Divisore)/=0).OR.(Input==1)) EXIT
Count = Count + 1
WRITE(*,*) "Fattore n. ", Count,": ", Divisore
Input = Input/Divisore
END DO
Divisore = Divisore+2
END DO
END PROGRAM Factorize
Un esempio di utilizzo del programma è il seguente:
C:\MYPROG>factorize
Inserire l’intero da scomporre
60
Fattore n. 1 : 2
Fattore n. 2 : 2
Fattore n. 3 : 3
Fattore n. 4 : 5
Il ciclo a condizione iniziale può essere costruito anche a mezzo del costrutto DO WHILE la
cui sintassi è:
[nome:] DO WHILE(espressione_logica)
blocco_di_istruzioni
END DO [nome]
e la cui funzione è quella di eseguire ripetutamente le istruzioni del blocco fintanto che il valore
di espressione_logica rimane .TRUE.