Abap Fibonacci Örneği

&———————————————————————
& Report ZMK_FIB
*&———————————————————————
&
*&———————————————————————
REPORT ZMK_FIB.

DATA: a type i VALUE 0,
b TYPE i value 1,
c type i,
sayac type i value 1.

PARAMETERS: d type i.

WHILE sayac < d.

IF sayac EQ 1.

WRITE: a, b.

ENDIF.

c = a + b.

a = b.
b = c.

WRITE: c.

sayac = sayac + 1.

ENDWHILE.