注册 登录
赛跑网 返回首页

zhao-xiao的个人空间 https://www.91sap.com/?9442 [收藏] [复制] [分享] [RSS]

日志

ABAP面授班第二期,第一讲作业!

热度 1已有 1243 次阅读2012-4-16 19:34

赛跑网ABAP培训面授班课下作业!总结!

1,用ABAP语言实现99乘法表:


DATAleft(2)     TYPE n VALUE 1"定义左边2个字符,类型n,值是1.
      right(2)    TYPE n VALUE 1," 定义右边2个字符,类型n,值是1.
      counter     TYPE i VALUE 1"定义数的次数,类型是i,值是1.
      result(2)   TYPE n .         "定义结果2个字符,类型是n,
DO 9 TIMES.                 "第一个do循环,执行9次。
  DO counter TIMES.       "嵌套的do循环,执行counter(第一次的时候,第二个do执行一次,第二次的时候,第二个do执行2次)次数。
    result = left * right. "给结果赋值
    WRITEleft,'*',right, '=',result, ' '."输出结果。
    right = right + 1."右边数加1
  ENDDO."结束第一次循环
  right = 1."如果右边为1
  counter = counter + 1."数的次数就会加1
  WRITE:/."输出回车
  left = left + 1."z左边加1
ENDDO.

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

DATA sum TYPE i VALUE 0.
DATA num TYPE i VALUE 1.
DATA num2 TYPE i VALUE 2.

DO 50 TIMES.
  sum = sum + num - num2.
  num = num + 2.
  num2 = num2 + 2.

ENDDO.

WRITE:'1-2+3-4+...-100=' , sum.


望大家都多指点!

发表评论 评论 (1 个评论)

回复 自信2011 2012-4-16 19:38
不错!

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|联系我们|赛跑网 ( QQ:108519493QQfsq

GMT+8, 2024-5-19 09:37 , Processed in 0.119609 second(s), 19 queries .

Powered by 91SAP X3.4

© 2001-2023 91sap Team.

返回顶部