|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
+ M. ]( y! d4 `) W! S(number : integer)
m, k+ T& V4 z- i* Vis/ I& w- c$ J1 j( \
do
3 g7 q2 O* U6 V6 j- p inspect number: f9 J; M* [6 n% h5 h
when 1 then M1 S' L: D4 R2 h9 o3 J
print "not a prime number"! q8 E- J) M( B7 Q( y
when 2,5,7,3 then / w, O* X0 ]9 h5 p. L6 C7 n C
print "prime number"
" O' J7 l: s1 q6 l# O when 9,4 then
! a; l n5 d T; K, U print "square number"
& ?3 o* K6 k1 S else
- p$ q" ~2 A" b, ^ print "no special number"; L* ~6 N$ O" K5 [: P: ~" o6 ~
print "or number greater than 9";
, C$ |+ Q; C0 d, s end;0 \# h' t6 o8 R, {9 N/ D
end; |
|