|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:4 t ?6 N2 A/ @! j: L
(number : integer)
X( x0 n# m: G* C$ l" wis" Q1 F3 J# U! W; K u. j- F
do
* P$ A1 ]( l9 n- T6 p8 \ inspect number
5 P" ^% F8 s$ N' q+ j( ] p ` when 1 then
. d- [! K+ Q. Z print "not a prime number"& m( T. A% g! D9 v6 T0 Z' M
when 2,5,7,3 then
# Y) L& |1 o: i% x: g2 m7 [, c print "prime number"8 S% g8 b( g6 S1 o0 k4 ?0 u2 R
when 9,4 then
, S( P4 }8 |& v, z: f print "square number"
( o, t9 M; S( }: K( a; b else
4 W- l) J. ~% j I) ?" {: ] print "no special number";6 n# x: |" b2 C0 p
print "or number greater than 9";- x1 w! J9 V* r: p% Z, G1 t
end;/ ~& b3 N# W8 E' X& x, \6 \
end; |
|