日志

ABAP面授班第二期4月15日第一讲作业

热度 1已有 572 次阅读2012-4-18 00:21 | ABAP, 作业

1.运用ABAP语言实现 1-2+3···-100 = 结果的屏幕输出。

使用了do循环嵌套if判断语句实现

REPORT  zlxctest003.

DATA num TYPE i VALUE '1'.
DATA sum TYPE i VALUE '0'.
DATA num1 TYPE i.
DO 100 TIMES.
  num1 = num MOD 2.
  IF num1 = 0 .
    num = 0 - num.
  ENDIF.
  sum = sum + num.
  num = num + 1.
ENDDO.
WRITE:'1-2+3...-100 = ',sum. 运行结果如下

2,用ABAP语言实现99乘法表：

方法一：使用2次do循环嵌套实现

REPORT  zlxctest004.
DATA num1(2) TYPE n VALUE'1'.
DATA num2(2) TYPE n VALUE'1'.
DATA result(2) TYPE n .
DATA counter TYPE i VALUE'1'.

DO  9 TIMES.
  DO counter TIMES.
    result = num1 * num2.
    WRITE: num1,'*',num2 ,'=',result, ','.
    num1 = num1 + 1.
  ENDDO.
  num1 = 1.
  counter = counter + 1.
  WRITE:/.
  num2 = num2 + 1.
ENDDO. 运行结果如下：

方法二：使用了2次do循环，1次if判断

REPORT  zlxctest005.
DATA num1(2) TYPE n VALUE 1.
DATA num2(2) TYPE n VALUE 1.
DATA result(2) TYPE n.

DO  9 TIMES.
  IF num1 >= num2.
    DO NUM1 TIMES.
    result = num1 * num2.
    WRITE: num1,'*',num2,'=',result,','.
    num2 = num2 + 1.
    ENDDO.
  ENDIF.
  num2 = 1.
  WRITE:/.
  num1 = num1 + 1.

ENDDO. 运行结果如下