Inspect 编程问题

jackchen

is
       Ci :integer; qi : integer
do
0 H9 e7 Y5 _) u- n3 E       inspect Ci
/ O9 s+ W8 J6 Y- K, bwhen Ci>0 and Ci <=150 then
; ?* M9 k8 P/ N% I7 _: C       print qi=1;
2 v; H6 a* A& R' e- bwhen Ci>151 and Ci<=500 then
       print qi=2;
9 }! ]# u, v0 M3 O7 |when Ci>501 and Ci<=700 then
       print qi=3;
when Ci>701 and Ci<=1000 then
       print qi=4;
% l- j2 ]2 c+ k/ Awhen Ci>1001 and Ci<=2000 then
       print qi=5;
% Z9 d( N% Y: {- f/ a' ]; bwhen Ci>2000 then
       print qi=6
* T! y8 x& k: d) z, \end;
# @% c, f  J3 _$ u# Eend;

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

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
$ T6 p6 ~- M# Z. j0 \6 z& t(number : integer)
is
do
6 y8 _' a- c& @+ p: i/ W   inspect number
6 \  g6 ]( w. V& _) {* g9 A/ H# r       when 1 then
          print "not a prime number"
& Q* ]' Y3 Q5 T0 Q       when 2,5,7,3 then
$ V. M1 D* w/ |* C  z* B          print "prime number"
       when 9,4 then
          print "square number"
       else
/ o* |, s. L7 r2 a* d* X          print "no special number";
8 V( P& a" W, m! D, E$ u          print "or number greater than 9";
0 `% c  A2 a1 O1 C) d) n$ R   end;
end;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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