|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
, v' p5 ?8 n" I(number : integer)* v0 H T% H' h5 `0 B
is
/ d+ n8 Z6 T C c' }9 pdo
) z# K/ E, ^1 l/ I- B inspect number
' v2 l5 U0 Q0 D! V, n when 1 then + M0 G- u0 G- g6 q4 t& k0 A
print "not a prime number"
: j7 V2 j# Z7 `' N when 2,5,7,3 then
* s, C6 D# `5 A4 m. @# w( F1 o print "prime number"
+ x$ m5 ^7 J% O" C. B when 9,4 then 6 [% G0 V5 r. m6 m
print "square number"% W2 W+ F& ]) y
else+ c! c% Q( Y- a
print "no special number";- }3 f5 O) J8 x L' j& g1 Y
print "or number greater than 9";( u+ w: K3 U9 r) z
end;. r2 V) R1 X1 d$ J
end; |
|