ABAP小学乘法表

最新推荐文章于 2024-04-30 16:27:46 发布

SunTanLei

最新推荐文章于 2024-04-30 16:27:46 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP代码之源文章标签： ABAP小学乘法表

本文链接：https://blog.csdn.net/tanlei2013/article/details/8568014

ABAP代码之源专栏收录该内容

10 篇文章

订阅专栏

这篇博客展示了如何利用ABAP编程语言来生成小学乘法表，通过简单的代码实现数学教育工具。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DATA:
      GCF_1(2)        TYPE n ,
      GCF_2(2)        TYPE n,
      GCF_N(2)        TYPE n ,
      GCF_Z(10)       TYPE C VALUE '小学乘法表',
      GCF_L           TYPE I ,
      GCF_INDEX       TYPE I.

  WRITE 60 GCF_Z CENTERED.
  WRITE: /.
  GCF_2 = 1.
  DO 9 TIMES.
        NEW-LINE.
    GCF_1 = 1.
    GCF_L = 16 * SY-INDEX.
    WRITE AT 0(GCF_L) SY-ULINE.
    NEW-LINE.
    CLEAR GCF_INDEX.
    DO GCF_2 TIMES.
      GCF_N = GCF_1 * GCF_2.
      GCF_L = GCF_INDEX * 16.
      GCF_INDEX = GCF_INDEX + 1.
      WRITE  AT GCF_L SY-VLINE.
      WRITE: GCF_1,'*',GCF_2,'=',GCF_N, ' '.
      GCF_1 = GCF_1 + 1.
    ENDDO.
    GCF_2 = GCF_2 + 1.
    GCF_L = GCF_L + 16.
    WRITE  AT GCF_L SY-VLINE.
    NEW-LINE.
  ENDDO.

WRITE AT 0(GCF_L) SY-ULINE.