SAP Program to Implement Fibonacci Series

Program:

REPORT z_fibonacci_series.

DATA: lv_n     TYPE i VALUE 10,   "Number of terms

      lv_first TYPE i VALUE 0,

      lv_second TYPE i VALUE 1,

      lv_next  TYPE i,

      lv_count TYPE i.

WRITE: / 'Fibonacci Series:'.

DO lv_n TIMES.

  IF sy-index = 1.

    WRITE: / lv_first.

  ELSEIF sy-index = 2.

    WRITE: / lv_second.

  ELSE.

    lv_next = lv_first + lv_second.

    WRITE: / lv_next.

    lv_first = lv_second.

    lv_second = lv_next.

  ENDIF.

ENDDO.