case、do、while循环语句

"case实现日期
*PARAMETERS: week_7 type i.
*case week_7.

• when 1.
• write:/ '周一'.
• when 2.
• write:/ '周二'.
• when 3.
• write:/ '周三'.
• when 4.
• write:/ '周四'.
• when 5.
• write:/ '周五'.
• when 6.
• write:/ '周六'.
• when 7.
• write:/ '周日'.
• endcase.

"case实现查询日历
*PARAMETERS: year type i,

•        month type i.
  

*case month.

• when 1 or 3.
• write:/ '31'.
  ** when 3.
  ** write:/ '31'.
• when 5.
• write:/ '31'.
• when 7.
• write:/ '31'.
• when 8.
• write:/ '31'.
• when 10.
• write:/ '31'.
• when 12.
• write:/ '31'.
• when 4.
• write:/ '30'.
• when 6.
• write:/ '30'.
• when 9.
• write:/ '30'.
• when 11.
• write:/ '30'.
• when 2.
• if year mod 4 = 0 and year mod 100 <> 0 or year mod 400 = 0.

•    write:/ '29'.
  

•   else.
  

•     write:/ '28'.
  

• endif.
  

• endcase.

"计算100以内的累加和

• data: sum type i,

•   s type i value 1.
  

• do 100 times.
• sum = sum + s.
• s = s + 1.
• enddo.
• write:/ sum.

"计算100以内的累加和并输出字段值

• data: sum type i,

•   s type i value 1.
  

• do 100 times.
• sum = sum + s.
• s = s + 1.
• enddo.
• write:/ sum.
• clear sum.
• do 8 times.
• sum = sum + sy-index.
• enddo.
  *write:/ sum , sy-index.

*clear s.“清空s
*while s <= 15.

• s = s + 1.

• write:/ s,'sy-index',sy-index.

• endwhile.

• "求出【m，n】的累加求和
  *PARAMETERS: m type i,

•       n type i.
  

*data:sum type i value 0.
*while m <= n .

• sum = sum + m.
• m = m + 1.
  *ENDWHILE.
  *write:/ sum.
  *else.
• WRITE:/ '范围有限'.

"1000以内的水仙花数
data:n type i,
g type i,
s type i,
b type i.
n = 100.
while n < 1000 and n >= 100.
b = n div 100.
s = ( n - b * 100 ) div 10.
g = n mod 10.
if n = b ** 3 + s ** 3 + g ** 3.
write:/ n.
else.
endif.
n = n + 1.
endwhile.

"简单计算器的实现
*PARAMETERS: m1 type i,

•       m2 type i,
  

•       f type c.
  

*data: s type i.

if f = '+' or f = '-' or f = '' or f = '/'.

• case f.
• when '+'.

•  s = m1 + m2.
  

•  write:/ s.
  

• when '-'.

•  s = m1 - m2.
  

•  write:/ s.
  

• when '*'.

•  s = m1 * m2.
  

•  write:/ s.
  

• when '/'.

•  s = m1 div m2.
  

•  write:/ s.
  

• ENDCASE.
  *else.
• write:/ '输入字符错误'.
  *endif.