|
|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:: q8 o! B8 i: c& d& V7 k' Y$ x
(number : integer)
$ P( T# v/ z; z. c% Z8 i His
& V( U/ b, O1 V7 l6 l! }3 rdo9 e4 A% B% d9 K+ S8 _' k
inspect number( R8 c1 I8 }) S7 v$ t& v
when 1 then ( g9 d' O. E2 G# D+ x& Z5 P) g
print "not a prime number"" y) M$ ?# h3 l6 ]
when 2,5,7,3 then
, L) p! l$ B; A& B8 b1 ` print "prime number"# X8 a& e% `' T* @) h7 l
when 9,4 then 2 X- V: G' H# \2 e( k3 H& C/ u4 a
print "square number"
5 w) u2 H7 A. V3 }+ J) d `" H else" ?5 H0 T$ m1 y/ D9 G' V
print "no special number";
, x! o" D9 x* W print "or number greater than 9";
4 A2 h7 E; b$ O- k. y& G5 C. \$ B end;8 T3 y) c; z8 D: D- a& L& j
end; |
|