|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
! A* k& I: r) @% i" f' w; |(number : integer)
! ?7 ? c; J5 t( d. e! s% S! {7 }) wis4 N7 z. \( D& S$ B- n3 B
do1 H( B6 P! \9 [6 J3 R8 N
inspect number8 Z( Y1 d4 _& @5 |8 @& D, B
when 1 then
A1 [) H. U4 l: [9 K" B2 A7 k" D print "not a prime number"
' I0 }& h# p* `; ?. d' ? when 2,5,7,3 then 6 W: ~$ u2 v3 g3 M3 }9 [
print "prime number"# Y' h$ i7 {$ N# d
when 9,4 then # p: y6 d& V1 m! I8 {0 L- U1 I; Y
print "square number"
- u1 d/ b! b0 J( H else/ f' }( j2 W: a+ S! C% L
print "no special number";
* B9 s: A" m* Y9 S2 g print "or number greater than 9";
: F( S4 O0 q1 }$ F- e! L/ y9 @ end;
" R; y! q" ~! c/ \, W9 P8 N& \. Y* }0 Aend; |
|