|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:# X2 q$ [& h' n
(number : integer)
( K9 x3 ^, b/ r0 His4 B: p6 C( j1 d' A8 i' ?
do% w) n" u' h$ [ U2 ]5 Z
inspect number5 T& i8 e4 {1 X/ J
when 1 then
/ p2 q1 x' e7 `/ l print "not a prime number"6 U. m. a9 T- d+ A
when 2,5,7,3 then
7 t3 D4 \8 Q$ \# C2 Z/ u1 j print "prime number"
3 _+ f3 F( G' K5 e6 U V; \1 m+ k when 9,4 then 9 W8 @$ G" b, A
print "square number"
" j1 Q/ Z T( E/ x( b8 j3 M. _ else7 }, d6 w7 n: n$ l# ? h8 k& B
print "no special number";
& L. c$ m3 s2 ^' N2 ~' M. g print "or number greater than 9";
; n) V! w' ?# G' c end;9 j4 t. }. I4 s- V$ Z1 |3 u
end; |
|