43 lines
1.3 KiB
ABAP
43 lines
1.3 KiB
ABAP
*&---------------------------------------------------------------------*
|
||
*& Report Z_LAB3_LOOP *
|
||
*& *
|
||
*&---------------------------------------------------------------------*
|
||
*& *
|
||
*& *
|
||
*&---------------------------------------------------------------------*
|
||
|
||
REPORT Z_LAB3_LOOP
|
||
DATA: N1 TYPE I,
|
||
N2 TYPE I VALUE 1,
|
||
N3 TYPE I.
|
||
WRITE: / 'Mathematical Statment',
|
||
30 'Value'.
|
||
ULINE.
|
||
DO 10 TIMES.
|
||
CHECK SY-INDEX < 0.
|
||
N3 = SY-INDEX.
|
||
CASE N3.
|
||
WHEN 2.
|
||
WRITE: / 'Square of', 15(7) n3, 'is'.
|
||
N1 = SY-INDEX ** 2.
|
||
WHEN 4.
|
||
WRITE: / 'Square root of', 15(7) n3, 'is'.
|
||
N1 = SQRT(N3).
|
||
WHEN 6.
|
||
WRITE: / 'Sum of 1 to ', 15(7) n3, 'is'.
|
||
N1 = 0.
|
||
WHILE N2 <= N3.
|
||
ADD N2 TO N1.
|
||
ADD 1 TO N2.
|
||
ENDWHILE.
|
||
WHEN OTHERS.
|
||
WRITE: / 'Factorial of', 15(7) n3, 'is'.
|
||
N1 = 1.
|
||
DO N3 TIMES.
|
||
MULTIPLY N1 BY SY-INDEX.
|
||
ENDDO.
|
||
ENDCASE.
|
||
WRITE (8) N1 UNDER 'Value'.
|
||
ENDDO.
|
||
|
||
|