Inspect 编程问题

jackchen

is
+ e4 ~+ p  K3 m- O8 B7 k6 v       Ci :integer; qi : integer
do
: O( j+ {0 Y2 k- y5 n       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
! X8 q4 L3 U# P# r$ \) C7 e# o* j- R       print qi=3;
when Ci>701 and Ci<=1000 then
       print qi=4;
( n- D- Q: A# w4 g( @, W. C, owhen Ci>1001 and Ci<=2000 then
       print qi=5;
9 L- }2 Q8 k' m- B/ C6 g& uwhen Ci>2000 then
% y7 \' S4 ?6 ]$ j* c- Z       print qi=6
end;
7 ^/ f. k1 T# A. J6 o1 ?end;

* k+ W8 g9 l+ x          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
5 y- d" Z& M2 |: [) @/ I" R          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
, Q. L4 X) [# W& a& p(number : integer)
is
do
   inspect number
       when 1 then
; G+ }  y" o3 Q+ v) J, Q, S          print "not a prime number"
5 N6 E  h, Z7 Z3 N       when 2,5,7,3 then
          print "prime number"
       when 9,4 then
' E8 z" I# n; N/ @' z+ ^1 n          print "square number"
       else
          print "no special number";
          print "or number greater than 9";
! \8 e! }) `: L6 Y7 G5 k   end;
end;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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