|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
5 Q6 J* \. w/ [+ W) ^, U+ q0 b& ](number : integer)2 Q3 @( L3 |- Q1 C8 w
is7 D& c+ L0 k! G1 [- \
do. q" ?. `; C9 h2 |2 T
inspect number
8 U, G, G- ]( v. N when 1 then 4 b5 {6 n' X- k. O
print "not a prime number"
: Y2 o+ |3 J$ y$ _; b when 2,5,7,3 then
5 t- l& Z; B- z3 L8 [7 X print "prime number"
+ Z4 O3 ]* b2 s( x+ Y2 M when 9,4 then # `; v8 p3 n) ^: E4 p7 u6 B
print "square number") @, U6 M# K1 d% t/ S; N6 K
else1 R9 f3 {3 ?. \& @1 d
print "no special number";
" u3 D/ J$ V* W# l- K print "or number greater than 9";! f9 r+ d9 {8 k
end;
1 L; q2 N- c2 uend; |
|