|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:% F: w' Y% l) ?) N3 E$ I- [
(number : integer)- ]) T3 }3 f) ?( R1 @
is& r8 Z" f5 b) y0 E: M W
do
1 i U! j0 x1 d+ o6 c6 X9 d& \- q0 X inspect number' F$ `& s9 ?" W9 H" L
when 1 then
# o2 `' J# W& w1 V print "not a prime number": Z( {5 \: x- _: N5 b/ x
when 2,5,7,3 then ( C0 x1 r7 l& F! k5 M* e
print "prime number", r/ I9 Y1 t3 p, Y0 g4 O
when 9,4 then 1 x T' ~, [0 |! Y! J3 l
print "square number"
' A5 b1 z/ E6 n, ?3 c else
1 f2 `- e- Z2 J$ f9 w9 e9 ~: l print "no special number";
8 i3 g6 C: h! c* j; t) T print "or number greater than 9";# D3 X% M) a: u7 Z
end;
( l% r; k, l7 fend; |
|