abap编写九九乘法表

DATA:gf_i TYPE n VALUE 1,
     gf_j TYPE n VALUE 1,
     gf_k(2TYPE N.
DO TIMES.
  gf_j 1.
  DO gf_i TIMES.
    gf_k = gf_i * gf_j.
    WRITE:gf_j NO-GAP,'*' NO-GAP,gf_i NO-GAP,'=' NO-GAP,gf_k.
    IF gf_i = gf_j.
      WRITE: /.
      EXIT.
    ELSE.
      gf_j = gf_j + 1.
    ENDIF.
  ENDDO.
  gf_i = gf_i + 1.
ENDDO.

 

 

posted @ 2017-08-18 15:53  独吊东南枝  阅读(1783)  评论(0编辑  收藏  举报