|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
0 u: G) b. z' u% G; R(number : integer) A7 n& O% W" k1 { _
is6 H- z. Y: r8 v9 V
do- I5 E0 x- V* P9 R: ]9 d
inspect number8 b5 `7 y4 ]: N- E- R# {' m7 L; X/ Q
when 1 then & ]" s( k: w1 h' v8 y) l* i! O
print "not a prime number"2 c" f k7 d6 y8 K: E% j
when 2,5,7,3 then
9 N, f: z* g+ C0 p print "prime number"
+ y4 H8 C9 ?4 t% ?3 q5 k when 9,4 then
: z) d4 U; D- ]0 e, ?: ] print "square number"3 k+ M8 K2 L$ g' G. D5 d. ]- h
else) Y' M$ H* l5 s& K5 Q L
print "no special number";
/ U# t" }/ ~9 w {9 R$ s print "or number greater than 9";
( F, u [+ x' o% f; T4 B end;
4 p+ \6 j% X8 ~- p+ G8 Eend; |
|