Inspect 编程问题

jackchen

is
7 X0 ?' f# a) X) r+ O, m3 p4 x       Ci :integer; qi : integer
do
       inspect Ci
6 t) T6 f$ z0 A$ P7 ^when Ci>0 and Ci <=150 then
0 t$ K) E3 Z0 `       print qi=1;
when Ci>151 and Ci<=500 then
  V# Z$ Q6 Z# d       print qi=2;
when Ci>501 and Ci<=700 then
6 o1 l5 ~0 o, A; X$ s2 A; {( F! T0 Q       print qi=3;
when Ci>701 and Ci<=1000 then
       print qi=4;
when Ci>1001 and Ci<=2000 then
       print qi=5;
when Ci>2000 then
       print qi=6
0 y$ B/ ~) p. ]- Eend;
end;

' T2 G5 B: m. F  H2 p  ~          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
/ q2 |. T: |- J" v          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
(number : integer)
9 f: L8 G& V; |1 c7 ois
$ X- d- D( |' ?0 F3 C" }' Y9 d3 L' Ado
( h6 r: z% \8 m; _2 `  X   inspect number
       when 1 then
          print "not a prime number"
       when 2,5,7,3 then
          print "prime number"
& t* g' c1 H) V& V) H: [       when 9,4 then
          print "square number"
1 A4 F$ R2 h6 T* G       else
- x/ @5 z8 U" }1 a          print "no special number";
          print "or number greater than 9";
4 \  u% n6 Q8 Z  v+ k, c: I   end;
- E% W. ^7 |( Lend;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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