*1、体型判断
*某体检中心按照“体重指数”对客户的体形进行判断，体重指数计算如下：体重指数t=体重w/ (身高h^2)（w单位：公斤；h单位：米）
*判断依据：当t < 18 时，体型为“偏瘦”；
*当t介于18和25之间时，体型为“正常”；
*当t介于25和27之间时，体型为“超重”；
*当t >=27时，体型为“肥胖”。
*要求：编程从键盘输入你的身高h和体重w，根据给定公式计算体重指数t，然后判断你的体重属于何种类型。
*计算体重指数
*PARAMETERS:w type p DECIMALS 2,
h TYPE p DECIMALS 2.
*data:t type p DECIMALS 2,
m(20) TYPE c.
*t = w / ( h ** 2 ).
*if t < 18.
- write:/ '您的体型为偏瘦'.
*elseif t > 18 and t < 25. - write:/ '您的体型为正常'.
*elseif t > 25 and t < 27 . - write:/ '您的体型为超重'.
*else . - write:/ '您的体型为肥胖'.
*endif.
*2、身高预测
*每个人的身高与遗传、饮食习惯与体育锻炼等因素密切相关。设faHeight为父亲身高，moHeight为母亲身高，身高预测公式为：
*男性成人时身高=(faHeight + moHeight)×0.54cm
*女性成人时身高=(faHeight×0.923 + moHeight)/2cm
*此外，如果喜爱体育锻炼，那么可增加身高2%；如果有良好的卫生饮食习惯，那么可增加身高1.5%。
*编程：从键盘输入用户的性别、父母身高、是否喜爱体育锻炼、是否有良好的饮食习惯等条件，利用给定公式和身高预测方法对身高进行预测。
*PARAMETERS:sex(2) type c,
faheight type p DECIMALS 3,moheight TYPE p DECIMALS 3,exercise(2) type c,diet(2) type c.
*data:height type p DECIMALS 3,
t type p DECIMALS 3.
*if sex = 'F'.
- if exercise = 'Y' AND diet = 'Y'.
height = ( faheight * '0.923' + moheight ) / 2 .t = height + height * '0.02' + height * '0.015'.WRITE:/ '预测身高是：' , t.elseif exercise = 'Y' and diet = 'N'.height = ( faheight * '0.923' + moheight ) / 2 .t = height + height * '0.02'.WRITE:/ '预测身高是：' , t.elseif exercise = 'N' and diet = 'Y'.height = ( faheight * '0.923' + moheight ) / 2 .t = height + height * '0.015'.WRITE:/ '预测身高是：' , t.- else.
height = ( faheight * '0.923' + moheight ) / 2 .t = height .WRITE:/ '预测身高是：' , t.endif.
*elseif sex = 'M'.
- if exercise = 'Y' AND diet = 'Y'.
height = ( faheight + moheight ) * '0.54' .t = height + height * '0.02' + height * '0.015'.WRITE:/ '预测身高是：' , t.elseif exercise = 'Y' and diet = 'N'.height = ( faheight + moheight ) * '0.54' .t = height + height * '0.02'.WRITE:/ '预测身高是：' , t.elseif exercise = 'N' and diet = 'Y'.height = ( faheight + moheight ) * '0.54' .t = height + height * '0.015'.WRITE:/ '预测身高是：' , t.- else.
height = ( faheight + moheight ) * '0.54' .t = height .WRITE:/ '预测身高是：' , t.endif.
*ENDIF.
*3、出租车计费问题。
*计费标准如下：起步价为5元，前2公里不计费；超过2公里但不超过10公里，按单程1.6元/公里计费；
*10公里以上，一律按单程1元/公里计费。实际行驶里程四舍五入取整后作为计算里程。请为出租车司
*机编写程序，当输入实际里程时，立即输出乘客应付的车费。
PARAMETERS: length(5) TYPE n.
data:money TYPE p DECIMALS 2,
t type c.
if length <= 2 .
money = 5.
elseif length > 2 and length <= 10.
money = '1.6' * length.
else.
money = length * 1.
ENDIF.
WRITE:/ '应付', money.
*4、判断天数。
*输入某年某月某日，判断这一天是这一年的第几天？
PARAMETERS: year type i,
month TYPE i,
day TYPE i.
data: count TYPE i .
if month = 1.
count = day.
elseif month = 2.
count = 31 + day.
elseif month >= 3 and year mod 4 = 0 and year mod 100 <> 0 or year mod 400 = 0 .
case month.
when 3.
count = 31 + 29 + day.
when 4.
count = 31 + 29 + 31 + day.
when 5.
count = 31 + 29 + 31 + 30 + day.
when 6.
count = 31 + 29 + 31 + 30 + 31 + day.
when 7.
count = 31 + 29 + 31 + 30 + 31 + 30 + day.
when 8.
count = 31 + 29 + 31 + 30 + 31 + 30 + 31 + day.
when 9.
count = 31 + 29 + 31 + 30 + 31 + 30 + 31 + 31 + day.
when 10.
count = 31 + 29 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + day.
when 11.
count = 31 + 29 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + day.
when 12.
count = 31 + 29 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30 + day.
ENDCASE.
else.
case month.
when 3.
count = 31 + 28 + day.
when 4.
count = 31 + 28 + 31 + day.
when 5.
count = 31 + 28 + 31 + 30 + day.
when 6.
count = 31 + 28 + 31 + 30 + 31 + day.
when 7.
count = 31 + 28 + 31 + 30 + 31 + 30 + day.
when 8.
count = 31 + 28 + 31 + 30 + 31 + 30 + 31 + day.
when 9.
count = 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + day.
when 10.
count = 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + day.
when 11.
count = 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + day.
when 12.
count = 31 + 28 + 31 + 30 + 31 + 30 + 31 + 31 + 30 + 31 + 30 + day.
ENDCASE.
ENDIF.
WRITE:/ count.
*5、判断回文
*一个5位数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。
*PARAMETERS: m(5) type n.
*data: g type i,
s type i,q TYPE i,w TYPE i.
*g = m mod 10.
*s = ( m mod 100 ) div 10.
*q = ( m mod 10000 ) div 1000.
*w = m div 10000.
*if m > 99999 and m < 10000.
- WRITE:/ '您输入的不是五位数'.
- elseif g = w and s = q.
WRITE:/ 'm是回文数'.else.WRITE:/ 'm不是回文数'.- ENDIF.
