|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:- o( K! v) t. y& A2 B
(number : integer)
9 T4 F" h; R& \1 r4 a0 f; zis
2 W1 f, u( V# b2 O+ Xdo
/ I. x1 `3 I9 j& L$ q8 Z$ v inspect number' W- E) o/ u, T
when 1 then - V' w { F) d- A
print "not a prime number"
5 p! Z( ^1 a1 o) I' D0 C when 2,5,7,3 then ; m5 U0 G. l! Q4 Q6 x
print "prime number"+ K5 M2 z' L& f/ F
when 9,4 then % B1 G' ~* A" F' i3 z. @0 e
print "square number"
) r( ]2 H2 e. p- U) @ else
) h( g9 x/ d( e' u7 L4 [- M5 u print "no special number";2 M# n7 ~+ e& z& E
print "or number greater than 9";5 h1 o/ k6 p5 l+ l: {7 q- z
end;8 ]9 [ R: P! M8 \% Q
end; |
|