Inspect 编程问题

jackchen

is
       Ci :integer; qi : integer
+ Z/ V& Z  k! ~4 cdo
6 L( o8 A, p8 S( I       inspect Ci
* \/ d  F% Y+ pwhen Ci>0 and Ci <=150 then
  F2 K# m9 ~$ i& F2 I- r       print qi=1;
* A, T3 L- r! F, U' Pwhen Ci>151 and Ci<=500 then
       print qi=2;
when Ci>501 and Ci<=700 then
$ Z" I+ h% |$ p. x' a       print qi=3;
) E9 a4 r" k9 l* A( Rwhen Ci>701 and Ci<=1000 then
       print qi=4;
when Ci>1001 and Ci<=2000 then
& p  d( O; K' F+ p# E       print qi=5;
when Ci>2000 then
; ]. h, I- C2 p5 q% ~       print qi=6
end;
end;

2 w) s, Q  v9 ^$ ~) s# g          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
(number : integer)
is
do
   inspect number
       when 1 then
          print "not a prime number"
       when 2,5,7,3 then
/ T: T& A" f, Q  d2 S2 f1 \- g          print "prime number"
7 j/ n) }7 M0 K: w       when 9,4 then
          print "square number"
- B( X; C. t; W1 b$ r/ ^- G       else
, c8 R* Y4 p: x% k+ B          print "no special number";
/ g$ [3 M# L, R: e4 h. q  p          print "or number greater than 9";
& z9 R3 i6 \1 ^$ i" C. V  f   end;
/ `8 o/ W" ~$ e) {$ a! O7 r" f0 |end;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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