• 1. 判断回文

*一个5位数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。
PARAMETERS: num TYPE i.
DATA: g_mod TYPE i,
      s_mod TYPE i,
      b_mod TYPE i,
      q_mod TYPE i,
      w_mod TYPE i.       "12345
w_mod = num mod 10000.    "2345
q_mod = w_mod mod 1000.   "345
b_mod =  q_mod mod 100.   "45
s_mod = b_mod mod 10.     "4
IF num > 9999 AND num < 100000.
  IF s_mod mod 10 = num div 10000 and s_mod div 10 = q_mod div 1000.
    WRITE:/ '是回文数子！'.
  ELSE.
    WRITE:/ '不是回文数子！'.
  ENDIF.
ELSE.
  WRITE:/ '请输入一个5位数！'.
ENDIF.

• 2. 判断天数

*
*4、判断天数。
*输入某年某月某日，判断这一天是这一年的第几天？
*
PARAMETERS: years(15) TYPE c.
DATA: year(5) TYPE c,
      month(5) TYPE c,
      day(5) TYPE c,
      days TYPE i,
      seg(1) TYPE c VALUE '/',
      month_a TYPE i VALUE 31,
      month_b TYPE i VALUE 30.
SPLIT years AT seg INTO year month day.

IF month = 1.
    days = day.
  ELSEIF month = 3.
    days = month_a +  day.
  ELSEIF month = 4.
    days = month_a * 2 +  day.
  ELSEIF month = 5.
    days = month_a * 2 + month_b + day.
  ELSEIF month = 6.
    days = month_a * 3 +  month_b + day.
  ELSEIF month = 7.
    days = month_a * 3 +  month_b * 2 + day.
  ELSEIF month = 8.
    days = month_a * 4 +  month_b * 2 + day.
  ELSEIF month = 9.
    days = month_a * 5 +  month_b * 2 + day.
  ELSEIF month = 10.
    days = month_a * 5 +  month_b * 3 + day.
  ELSEIF month = 11.
    days = month_a * 6 +  month_b * 3 + day.
  ELSEIF month = 12.
    days = month_a * 6 +  month_b * 4 + day.
ENDIF.
*WRITE:/ days.

IF month = 1.
  days = day.
ELSEIF month = 2.
  days = day + month_a.
ELSEIF month > 2 and month <= 12.
  IF year mod 4 = 0 and year mod 100 <> 0 or year mod 400 = 0 .
    days = days + 29.
  ELSE.
  days = days + 28.
  ENDIF.
ELSE.
  WRITE:/ '输入月份有误'.
ENDIF.


  IF month = 1 or month = 3 or month = 5 or month = 7 or month = 8 or month = 10 or month = 12.
    IF day > 31.
      WRITE:/ '请输入正确日期!'.
    ELSE.
      WRITE:/ days.
    ENDIF.
  ELSEIF month = 4 or month = 6 or month = 9 or month = 11.
    IF day > 30.
      WRITE:/ '请输入正确日期!'.
     ELSE.
       WRITE:/ days.
    ENDIF.
  ELSEIF month = 2.
    IF year mod 4 = 0 and year mod 100 <> 0 or year mod 400 = 0.
        IF day > 29.
          WRITE:/ '请输入正确日期!'.
         ELSE.
           WRITE:/ days.
        ENDIF.
    ELSE.
      IF day > 28.
         WRITE:/ '请输入正确日期!'.
      ELSE.
        WRITE:/ days.
      ENDIF.
    ENDIF.
  ENDIF.

• 3. 身高预测

身高预测
*设faHeight为父亲身高，moHeight为母亲身高，身高预测公式为：
*男性成人时身高=(faHeight + moHeight)×0.54cm
*女性成人时身高=(faHeight×0.923 + moHeight)/2cm
*此外，如果喜爱体育锻炼，那么可增加身高2%；如果有良好的卫生饮食习惯，那么可增加身高1.5%。
*编程：从键盘输入用户的性别、父母身高、是否喜爱体育锻炼、是否有良好的饮食习惯等条件，利用给定公式和身高预测方法对身高进行预测。
PARAMETERS: faHeight(5) TYPE p DECIMALS 3 OBLIGATORY,
            moHeight(5) TYPE p DECIMALS 3 OBLIGATORY.

* OBLIGATORY必填项。
*  "X" 或 " " ,"x" 选中的，" "没选的。
SELECTION-SCREEN: BEGIN OF BLOCK s_screen WITH FRAME TITLE TEXT-001.
  PARAMETERS: nan RADIOBUTTON GROUP 0.
  PARAMETERS: nv RADIOBUTTON GROUP 0.
SELECTION-SCREEN: END OF BLOCK s_screen.

SELECTION-SCREEN: BEGIN OF BLOCK o_screen WITH FRAME TITLE TEXT-002.
  PARAMETERS: y RADIOBUTTON GROUP 1.
  PARAMETERS: n RADIOBUTTON GROUP 1.
SELECTION-SCREEN: END OF BLOCK o_screen.

SELECTION-SCREEN: BEGIN OF BLOCK t_screen WITH FRAME TITLE TEXT-003.
  PARAMETERS: w RADIOBUTTON GROUP 2.
  PARAMETERS: m RADIOBUTTON GROUP 2.
SELECTION-SCREEN: END OF BLOCK t_screen.

DATA: height(5) TYPE p DECIMALS 2.
IF nv = 'X'.
  height = ( faHeight * '0.923' + moHeight ) / 2.
ELSE.
  height = ( faHeight + moHeight ) * '0.54'.
ENDIF.
IF y = 'X'.
  height = ( 1 + '0.02' ) * height.
ENDIF.
IF w = 'X'.                                       "X必须大写
  height = ( 1 + '0.015' ) * height.
ENDIF.
WRITE:/ height.