Il Linguaggio Fortran 90/95

2.3 Istruzioni di ripetizione 119
INTEGER :: n ! valore di input
INTEGER :: fib ! numero di Fibonacci
INTEGER :: a, b ! variabili di appoggio
PRINT*, " Inserisci n > 2: "
READ(*,*) n
a = 1
b = 1
DO i = 1,n/2-1
a = a+b
b = b + a
END DO
IF (MOD(n,2)==1) b = b+a
fib = b
PRINT*, fib
END PROGRAM fibonacci
In tal modo si è facilmente migliorata l’efficienza del codice. Si noti, a proposito del secondo
procedimento, che il valore finale dell’indice i del ciclo è stato dimezzato in quanto, come si
può facilmente verificare, a monte della prima istruzione di assegnazione, i valori di a e b sono,
rispettivamente, fib(2×i-1) e fib(2×i).
Un’ultima doverosa osservazione da fare riguarda i cicli a condizione. Si guardi il seguente
programmino:
PROGRAM prova_sum
IMPLICIT NONE
INTEGER :: n
REAL :: somma=0.0
REAL, PARAMETER :: base=2.0/3.0
n = 1
DO
somma = somma+(base)**n
PRINT*, i, somma
IF(somma>=5.0) EXIT
n = n+1
END DO
PRINT*, "Convergenza raggiunta dopo ",n," iterazioni"
STOP
END PROGRAM prova_sum
il cui scopo, come appare evidente, è quello di determinare la somma parziale della serie
numerica
∞
n 2
3
n=1
arrestando la somma quando il valore di quest’ultima raggiunge o supera il valore 5.0. Ebbene,
il problema grosso è che la serie in esame converge al valore 2.0 per cui il precedente ciclo