Inspect 编程问题

jackchen

is
       Ci :integer; qi : integer
do
' L/ U$ A' Y" k! r. s0 J# H0 l       inspect Ci
when Ci>0 and Ci <=150 then
       print qi=1;
when Ci>151 and Ci<=500 then
       print qi=2;
when Ci>501 and Ci<=700 then
  |4 Z) [4 {3 d' l6 l       print qi=3;
  c3 D* Y8 w, l1 Ewhen Ci>701 and Ci<=1000 then
4 ]: H! |# F2 O' f& ]       print qi=4;
) l- i8 S( g% R& c9 S0 r/ U5 K1 Xwhen Ci>1001 and Ci<=2000 then
       print qi=5;
( M2 k6 s" Z3 uwhen Ci>2000 then
       print qi=6
end;
end;

          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
' }% G: Z2 h+ _- K) f5 I          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
. ?" E6 m; y3 J, o(number : integer)
3 N% ]% Y: ~% Uis
, K& v% p. g2 M: ^# ^+ `do
, j$ c7 X% e) N- q+ U5 D+ ], h   inspect number
       when 1 then
& A& S" R7 l1 j) P$ j' N3 V& r& N4 i          print "not a prime number"
" x7 b8 y8 U2 g) v& h9 P$ s, h# u. R       when 2,5,7,3 then
, ~2 W; Q6 A7 ]- I8 f7 E7 ^          print "prime number"
       when 9,4 then
          print "square number"
       else
          print "no special number";
3 I3 o! |! _) @% ?) D. c          print "or number greater than 9";
   end;
$ a- H, m* M9 V% H% Z% ?0 v6 [& Oend;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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