|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
9 \0 ^' H! L0 z5 O3 S(number : integer)
4 ^) W+ q, b% m7 v# F$ gis, e/ y. _& u: B! J! T$ b) y
do" D/ h( I( E1 ?! W% K+ e) J
inspect number
) f: F& | H0 U; B7 Z when 1 then
( V% \. x; M! O4 y! ]% V print "not a prime number"% W, k2 _" M8 g; ]
when 2,5,7,3 then E/ K* U+ f8 x% M
print "prime number"
1 Y9 G7 A0 _$ L$ H( o& T# ` when 9,4 then
* M% K( \9 y6 c3 y print "square number"
2 _# |7 @% L) C) N else; |% y# R* c* U: B+ ]
print "no special number";9 a* T" W$ Z$ U) y
print "or number greater than 9";
4 s1 \) R* C1 I4 k# @ end;
6 A* J' J! R; _( V3 x6 Q6 Yend; |
|