|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
) {& w1 o) G1 Q4 a4 K( ](number : integer)7 K/ `( @ m% {
is
9 a; o8 ~$ q; o' v) a, qdo8 y3 d* R. f, D. f& X2 e. g2 ?4 @
inspect number
- p% D$ }5 ]1 N$ P1 i6 A8 B when 1 then
t5 o* j. B; I+ w print "not a prime number"
* ?1 @. ^7 m: Y, G2 ^ when 2,5,7,3 then
* H* j/ S1 ?6 k- O* @) S print "prime number"3 k; Y1 x+ D% _# B. X' b! m9 h
when 9,4 then " p, z# O) L8 a4 j/ C2 o9 [
print "square number"
( L. i3 O" V9 Y2 R4 r7 K* m, g else7 b; ^; }1 N8 t: Q* }2 ?
print "no special number";
$ H6 M1 X7 ~0 Z4 \: G2 h print "or number greater than 9";! K) ^: o1 k1 X
end;
* E0 V* Y* a# f+ \ e" l/ Bend; |
|