|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
& m4 Y6 l! {; F( T(number : integer)
7 c' K) B9 f% `. n2 t' uis* O1 d* Q3 |+ t, k5 R
do
4 v9 ~2 X" z: n/ C inspect number
7 R/ U* l7 e0 P2 _ when 1 then 8 p S+ x5 O/ I' D
print "not a prime number"7 D: X3 N4 \/ T9 p' h6 @3 A) w
when 2,5,7,3 then
4 s y5 N3 o* z print "prime number", ^* n/ l- L2 Z( T/ C' A: R! j
when 9,4 then ' P8 l4 Y3 `$ j5 m: S- B) |% T
print "square number"# v! K/ x @! F8 p, a: O: U% b
else) {6 D3 s: n$ c* o& Y! G! ?2 X
print "no special number";
8 \4 c9 \( R7 E, M" J: C' p7 ?5 c+ g- D print "or number greater than 9";1 t8 [7 b9 j+ a: M1 \( }# i( }/ n; q- l
end;
1 T& M" F6 |7 j* b2 uend; |
|