|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:2 P$ R# N5 i; U" X0 \3 ~: E
(number : integer)
* X) g# P0 r% p! S0 a( vis
4 z8 Z3 E4 G1 v: ]( wdo2 e- V! B2 n" l
inspect number3 C9 w: Z3 v1 D: x) \
when 1 then
+ B( p: `4 |1 b5 K print "not a prime number"
' Q8 r# d: T* y1 H+ q when 2,5,7,3 then
& a2 ?7 n2 p, f7 s" {8 f print "prime number"
+ o0 _4 t3 |4 Y3 O3 D when 9,4 then 6 B! T' X' a) r: M+ z
print "square number"" i' @1 M7 Q; |- V1 L
else
; ]% N5 q0 F9 Z6 g8 j/ C print "no special number";
5 ]% |( |( q6 n8 m' B print "or number greater than 9";
7 x c( }8 R- Y end;8 i" v7 j$ t, K: l$ k e
end; |
|