选择结构编程练习

*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.

image.png
image.png

*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.