|
发表于 2009-5-12 23:36:09
|
显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:0 T B9 q- B8 }
(number : integer)7 ^/ R% s) i1 ^! I9 a& M
is
5 z% E/ H/ f2 d% kdo
" p+ T& p, h: _5 }) p( {+ @0 P inspect number
5 b. D! I: S" t; X, J% Q when 1 then & o- R) L" S4 v3 |2 p G; p" `" f# r
print "not a prime number"
" n" I" L, X. b5 _$ w when 2,5,7,3 then
# Y) n. k1 S$ u; x print "prime number"
4 `3 | G* D3 }- o+ g3 ] when 9,4 then
2 J" i( i6 K% X* Z- T5 F print "square number"
6 x* C& }. m8 t) P9 x9 j7 ? else5 h- b( G" B. _& |- K: q
print "no special number";
+ b4 l4 J- Q3 i! t+ X2 b6 a print "or number greater than 9";
* l% v4 ^0 R9 J$ l" S" z; H8 ` end;- C/ |5 @. H0 T8 |+ v4 n$ H: B0 I1 s
end; |
|