Inspect 编程问题

jackchen

is
       Ci :integer; qi : integer
do
! d: S6 p9 c2 I6 K4 O  H       inspect Ci
when Ci>0 and Ci <=150 then
7 B; C5 p9 z, p; t( i3 _       print qi=1;
  e. D4 A8 D% M: c* t4 w4 gwhen Ci>151 and Ci<=500 then
. P5 v) ]- x/ a$ c( k       print qi=2;
when Ci>501 and Ci<=700 then
       print qi=3;
when Ci>701 and Ci<=1000 then
: F- Y/ L( g$ i9 \1 K       print qi=4;
when Ci>1001 and Ci<=2000 then
$ H% e; d# x* d* \7 h       print qi=5;
, e3 D2 {  J/ _5 K3 S+ D& X% ?when Ci>2000 then
       print qi=6
end;
: m# o+ L& K& F5 a0 S1 L7 Z4 aend;

          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
) C4 ^! h! X2 @. Q: b          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
(number : integer)
8 S' U% c5 p! v! `is
3 ~1 w' X- n8 n0 T& r  Edo
5 m( ]( K- X2 ]0 `- G/ L   inspect number
  m- w1 J0 q6 Z1 N/ r       when 1 then
4 b1 d4 w0 ~5 q$ i4 G; I6 x* k$ B' |          print "not a prime number"
       when 2,5,7,3 then
7 ~6 J8 s( S8 d4 z          print "prime number"
       when 9,4 then
$ F" W2 b1 L' `, r          print "square number"
       else
6 \8 r0 O0 w! K7 S2 ^          print "no special number";
          print "or number greater than 9";
1 ^$ ^% ~& r, x! v  y6 g4 N   end;
end;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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