Προγραμματισμός FORTRAN > Παραδείγματα > Αριθμοί Fibonacci

Να γραφεί πρόγραμμα που να βρίσκει τους πρώτους Ν όρους της ακολουθίας αριθμών Fibonacci. Κάθε όρος είναι ίσος με το άθροισμα των δύο προηγουμένων όρων. Οι δύο πρώτοι όροι είναι οι (0 & 1). Οι τύποι υπολογισμού είναι:

Κώδικας:

PROGRAM fibonacci
IMPLICIT NONE
 INTEGER:: N, i, F, Fpro, Fpropro
 WRITE(*,*) 'Dwse To Plithos twn Arithmwn Fibonacci (N):'
 READ(*,*) N
!
 Fpropro = 0
 Fpro = 1
 WRITE(*,'(I4\ I4)') Fpropro, Fpro
 DO i = 3, N
  F = Fpro + Fpropro
  WRITE(*,'(I4\)') F
  Fpropro = Fpro
  Fpro = F
 END DO
!
END

Εκτέλεση:

 Dwse To Plithos twn Arithmwn Fibonacci (N):
12

 0 1 1 2 3 5 8 13 21 34 55 89