ABAP-99乘法表

DATA:gf_i TYPE n VALUE 1,
     gf_j TYPE n VALUE 1,
     gf_k(2) TYPE N.
DO 9 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.


关键词: ABAP

网友评论

发表评论