Il Linguaggio Fortran 90/95

2.2 Istruzioni di diramazione 93
ENDIF
luna= 44-epact
IF (luna31) THEN
luna = luna - 31
WRITE(*,’(A11,I4)’) " Nell’anno ", year
WRITE(*,’(A27,/,1X,I2,A7)’) &
" la Pasqua cade il giorno: ",luna, " Aprile"
ELSE
WRITE(*,’(A11,I4)’) " Nell’anno ", year
WRITE(*,’(A27,/,1X,I2,A7)’) &
" la Pasqua cade il giorno: ",luna, " Marzo"
ENDIF
STOP
END PROGRAM Pasqua
Un esempio di impiego di questo programma può servire a testare la bontà del codice:
Inserire l’anno (successivo al 1582):
2002
Nell’anno 2002
la Pasqua cade il giorno:
31 Marzo
Con il prossimo programma, infine, si vuole fornire un ultimo esempio di costrutto IF THEN
ELSE, questa volta, però, caratterizzato da diverse clausole ELSE. Esso rappresenta una generalizzazione
dell’esempio già proposto in precedenza e concepito per il calcolo delle radici di una
equazione di secondo grado. In questo caso, in aggiunta, viene gestita anche la possibilità di
trovare radici complesse e coniugate:
PROGRAM eq_2
IMPLICIT NONE
REAL :: a, b, c, d ! coefficienti dell’equazione e discriminante
COMPLEX :: x1, x2 ! radici complesse dell’equazione
! lettura dei coefficienti
PRINT*, "Coefficiente a: "
READ(*,*) a
PRINT*, "Coefficiente b: "
READ(*,*) b
PRINT*, "Coefficiente c: "
READ(*,*) c
! calcolo del discriminante