case、do、while循环语句

2019-04-18 本文已影响0人冰天雪地_6409

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

case、do、while循环语句

猜你喜欢

热点阅读