ABAP选择结构自己做的练习题

最新推荐文章于 2024-06-28 11:14:16 发布

努力写代码的ysy

最新推荐文章于 2024-06-28 11:14:16 发布

阅读量977

点赞数

分类专栏： ABAP 文章标签： ABAP 选择结构

本文链接：https://blog.csdn.net/qq_42448803/article/details/89308306

版权

本文通过五个ABAP编程实例展示了选择结构的应用，包括身高预测、出租车计费计算、BMI指数求解、判断日期天数及回文数检测。每个案例详细解释了代码逻辑，并提供了实现代码。

摘要由CSDN通过智能技术生成

ABAP选择结构自己做的练习题

身高预测
出租车计费问题
BMI指数
判断天数
判断回文数

身高预测

每个人的身高与遗传、饮食习惯与体育锻炼等因素密切相关。设faHeight为父亲身高，moHeight为母亲身高，身高预测公式为：男性成人时身高=(faHeight + moHeight)×0.54；女性成人时身高=(faHeight×0.923 + moHeight)/2。
此外，如果喜爱体育锻炼，那么可增加身高2%；如果有良好的卫生饮食习惯，那么可增加身高1.5%。
从键盘输入用户的性别、父母身高、是否喜爱体育锻炼、是否有良好的饮食习惯等条件，利用给定公式和身高预测方法对身高进行预测。

代码如下：

PARAMETERS: sex TYPE c,
            faHeight TYPE p DECIMALS 2,
            moHeight TYPE p DECIMALS 2,
            isPhysic TYPE c,
            isGodiet TYPE c.

DATA: height TYPE p DECIMALS 2.

IF sex = 'M'.
  IF isPhysic = 'Y' AND isGodiet = 'Y'.
    height = ( faHeight + moHeight ) * '0.54' * '1.02' * '1.015'.
    WRITE:/ height.
  ELSEIF isPhysic = 'Y' AND isGodiet = 'N'.
    height = ( faHeight + moHeight ) * '0.54' * '1.02'.
    WRITE:/ height.
  ELSEIF isPhysic = 'N' AND isGodiet = 'Y'.
    height = ( faHeight + moHeight ) * '0.54' * '1.015'.
    WRITE:/ height.
  ELSE.
    height = ( faHeight + moHeight ) * '0.54'.
    WRITE:/ height.
  ENDIF.
ELSEIF sex = 'F'.
  IF isPhysic = 'Y' AND isGodiet = 'Y'.
    height = ( faHeight * '0.923' + moHeight ) / 2 * '1.02' * '1.015'.
    WRITE:/ height.
  ELSEIF isPhysic = 'Y' AND isGodiet = 'N'.
    height = ( faHeight * '0.923' + moHeight ) / 2 * '1.02'.
    WRITE:/ height.
  ELSEIF isPhysic = 'N' AND isGodiet = 'Y'.
    height = ( faHeight * '0.923' + moHeight ) / 2 * '1.015'.
    WRITE:/