Fibonacci Series program in ABAP

Former Member — Thu, 07 Jun 2007 09:20:03 GMT

Hi experts,

Plz send me the code for Fibonacci Series.

Re: Fibonacci Series program in ABAP

Former Member — Thu, 07 Jun 2007 09:22:24 GMT

Hi,

Take a look :

DATA: output TYPE i.
PARAMETERS: p_num TYPE i.
START-OF-SELECTION.
PERFORM fibo USING p_num
CHANGING output.
WRITE:/ output.
*&---------------------------------------------------------------------*
*& Form fibo
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM fibo USING num
CHANGING out.
DATA: lv_num1 TYPE i,
lv_num2 TYPE i,
out1 TYPE i,
out2 TYPE i.
IF num > 2.
lv_num1 = num - 1.
PERFORM fibonacci USING lv_num1
CHANGING out1.
lv_num2 = num - 2.
PERFORM fibonacci USING lv_num2
CHANGING out2.
out = out1 + out2.
ELSE.
out = num.
ENDIF.
ENDFORM.

Hope this helps,

Erwan

topic Re: Fibonacci Series program in ABAP in Application Development and Automation Discussions

Fibonacci Series program in ABAP

Re: Fibonacci Series program in ABAP