Inspect 编程问题

jackchen

is
9 F, s- G4 t8 T: ^. D       Ci :integer; qi : integer
0 `' B/ c1 R9 T/ m3 M3 ^$ ~do
       inspect Ci
4 a8 i/ @2 s+ k% ^, i& l* ?when Ci>0 and Ci <=150 then
       print qi=1;
& _; T5 K' a( n* _when Ci>151 and Ci<=500 then
* E  ~' A& `" O- Z4 X5 O3 R       print qi=2;
  i, j1 f1 U) {: x. S; o2 ^when Ci>501 and Ci<=700 then
% P, ~8 d" A/ F1 [5 v3 ]' R6 I       print qi=3;
when Ci>701 and Ci<=1000 then
* d4 x/ ^$ Y) q  B       print qi=4;
when Ci>1001 and Ci<=2000 then
! Z" p* h/ K' a! z& Z' c' _       print qi=5;
when Ci>2000 then
       print qi=6
$ R- K: i$ ]" V+ zend;
" l& C8 l5 j8 F/ O' @end;

          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
(number : integer)
# e5 x8 w1 B: t3 M) x2 xis
do
   inspect number
       when 1 then
          print "not a prime number"
       when 2,5,7,3 then
          print "prime number"
& G$ N5 s# L8 l       when 9,4 then
          print "square number"
       else
          print "no special number";
. I' ?! }. d7 s: [0 v) Y          print "or number greater than 9";
   end;
+ Y6 }/ o/ x7 r5 K) m( g* cend;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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