Gemerarea unui termen din șirul FIBONACCI

Gemerarea unui termen din șirul FIBONACCI presupune scrierea unui subprogram care calculează totți termenii care preced termenul ce tyrebuie căutat și returnează valoarea termenului cerut. Formula de calcul a termenului Fn din șirul FIBONACCI este Fn =  Fn-1 + Fn-2. Subprogramul este:

         SUBROUTINE ELEFIB(N,ISIRK,IK)

         IK=0

         IF((N.GT.46).OR.(N.LE.2)) GO TO 20

         ISIRI1=0

         ISIRI2=1

         DO  10 I=3,N

         ISIRK=ISIRI1 + ISIRI2

         ISIRI1=ISIRK

         ISIRI2=ISIRI1

10     CONTINUE

         IK=1

         RETURN

         END

Subprogramul returnează IK egal cu zero dacă termenul cerut este eronat, respectiv IK=1 dacă rezultatul returnat este corect. Variabila ISIRK va arăta care este valoarea termenul din șirul FIBONACCI care a fost cerut să fie generat.

(04 ianuarie 2018)