Il Linguaggio Fortran 90/95

112 Istruzioni di controllo
PRINT*, n
IF (n > 1000) EXIT
END DO
PRINT*, n
la cui funzione è quella di elevare al cubo ciascun numero introdotto fino a che il cubo del valore
inserito non superi il valore 1000, nel qual caso il ciclo si arresta e viene stampato il risultato.
Un ulteriore esempio di ciclo a condizione finale è rappresentato dal programma che segue il
cui scopo è quello di costruire una tabella di conversione della temperatura dalla scala Celsius
alle scale Kelvin, Fahrenheit e Réaumur, rispettivamente. L’intervallo di temperatura prescelto
varia da 0 ◦ C e 100 ◦ C essendo queste le temperature standard del ghiaccio fondente e dell’acqua
bollente; la ripartizione dT dell’intervallo è, invece, scelto dall’utente in fase di esecuzione. Al
fine di favorire la comprensione del codice che segue, si ricordano le formule di conversione dalla
scala Celsius alle altre tre:
T[K] = T[ ◦ C] + 273.15
T[ ◦ F] = 9
5 T[◦ C] + 32
T[ ◦ R] = 0.8 × T[ ◦ C]
PROGRAM temperatura
! Scopo: convertire temperature da gradi Celsius a gradi Fahrenheit,
! Reaumur e nella scala Kelvin
IMPLICIT NONE
REAL :: T_c ! temperatura in gradi Celsius
REAL :: T_k ! temperatura in Kelvin
REAL :: T_f ! temperatura in gradi Fahrenheit
REAL :: T_r ! temperatura in gradi Reaumur
REAL :: dT ! incremento nella temperatura
REAL, PARAMETER :: Tmin_c=0.0 ! temperatura di congelamento dell’acqua
REAL, PARAMETER :: Tmax_c=100. ! temperatura di ebollizione dell’acqua
REAL, PARAMETER :: cost=1.8 ! fattore 9/5 della convers. Cels->Fahr
WRITE(*,*) "Incremento nella T: "; READ(*,*) dT
WRITE(*,*) " Celsius Kelvin Fahrenheit Reaumur "
WRITE(*,*) " ========== ========== =========== ========== "
T_c = Tmin_c
DO
T_f = cost*T_c + 32.
T_k = 273.15 + T_c
T_r = 0.8*T_c
WRITE(*,*) T_c, T_k, T_f, T_r
T_c = T_c+dT
IF (T_c > Tmax_c) EXIT
END DO
END PROGRAM temperatura