|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
/ z V j2 O- G& \3 t F(number : integer)
( @& l* H* s9 |% w3 |& k' {. Zis/ _6 V7 M# ?& d& x9 q
do6 s2 t( b7 d( x- D4 d
inspect number
$ m) I! l, N o! p" G$ o when 1 then
" }5 p7 e# X) t- M1 W print "not a prime number"
9 I; @' K: s- Y4 N, A when 2,5,7,3 then
( a9 R/ Z& }* `+ u print "prime number"# I' C6 f* _2 ?0 F$ Q9 _! q
when 9,4 then
3 P' |6 K+ c" Z% | print "square number"
4 ^4 u4 o D6 x, J9 s else% g) h. {! j9 W3 f, @
print "no special number";
- n' [ G* M9 M8 @9 a print "or number greater than 9";% i2 f, V5 p! I7 b Z
end; H+ B7 s; O9 e# v+ h! c' Z+ ]
end; |
|