Inspect 编程问题

jackchen

is
+ a" n, _: `" o- \+ z       Ci :integer; qi : integer
4 ^2 }/ ~: _! {. Hdo
0 d6 V$ z. ~- y2 `2 p1 t4 F; \       inspect Ci
when Ci>0 and Ci <=150 then
! K6 v: ]0 }) v  Q       print qi=1;
when Ci>151 and Ci<=500 then
9 `0 E. S8 H6 ]0 |       print qi=2;
when Ci>501 and Ci<=700 then
       print qi=3;
when Ci>701 and Ci<=1000 then
       print qi=4;
when Ci>1001 and Ci<=2000 then
( f# u  G! n4 s1 o1 ^2 B       print qi=5;
when Ci>2000 then
       print qi=6
* L0 ~5 w; v$ s2 Aend;
end;

          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
, S. m% i3 ^  F- ]) i          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
9 C8 {& {5 |+ {6 I8 G(number : integer)
is
do
   inspect number
- \5 e. V% n& E2 q: @& `8 Y1 m' @2 f       when 1 then
2 Y8 c9 Z* W! w- a          print "not a prime number"
       when 2,5,7,3 then
: B+ p2 g$ D# `" T" S* U          print "prime number"
* _4 k( R6 P8 `% ?/ Y+ z1 X( p/ [       when 9,4 then
8 H( h( B  m- i1 _          print "square number"
! Q5 T8 d" F2 }9 V$ Y4 X) l/ k* t       else
          print "no special number";
( B* M$ Q5 P7 S1 J, \          print "or number greater than 9";
$ M- y! b% P+ @0 B$ Y, a* f3 h   end;
end;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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