Inspect 编程问题

jackchen

is
3 d5 T' x, U7 M  x$ l8 r       Ci :integer; qi : integer
# |) C$ ?4 c% g! A6 Xdo
9 K2 l3 q% C$ h       inspect Ci
7 x+ `: R2 g+ K1 u9 M5 k: @when Ci>0 and Ci <=150 then
       print qi=1;
+ z- E4 O9 F9 P" F4 |) R. Awhen Ci>151 and Ci<=500 then
% e% e- B/ ~1 \7 w2 r; o! x       print qi=2;
  U3 b+ q+ t4 \' ]! R, Y! Z) ^when Ci>501 and Ci<=700 then
       print qi=3;
when Ci>701 and Ci<=1000 then
& ~( o$ V. \* V       print qi=4;
when Ci>1001 and Ci<=2000 then
       print qi=5;
when Ci>2000 then
       print qi=6
end;
; U; l+ G& Q# ^2 ^) j0 Qend;

          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
+ t' [2 E; b; n* S  ~" j4 f          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
4 s3 H+ S1 z1 f  x(number : integer)
is
do
: p) ^7 I0 i2 {* p) ^   inspect number
       when 1 then
4 Z6 M2 L+ `) G& W' L; T  q# `          print "not a prime number"
; x2 |3 \: V/ v- m1 |2 [       when 2,5,7,3 then
/ I: l# u) o% F, o7 A6 k0 l4 C          print "prime number"
       when 9,4 then
          print "square number"
       else
          print "no special number";
+ k/ L& o2 h$ `6 V          print "or number greater than 9";
! V- m& \- e+ I/ k( }   end;
end;

jackchen

我在做一个集装箱码头泊位—岸桥分配的仿真优化模型，我是新手，有很多问题需要请教，高手liysunny能否帮忙，我的qq:540966007。谢谢！！！

pipilu

？

哭泣向日葵

楼主Ci没有赋值，应先赋值，再判断

pengyazhen

二楼说得很对啊，版主为啥没给加分呢？