Inspect 编程问题

jackchen

is
/ M! ~' [1 r  ]: i5 h* x       Ci :integer; qi : integer
' V, [. r8 S* ?3 A  wdo
       inspect Ci
when Ci>0 and Ci <=150 then
       print qi=1;
# b7 c0 |0 W: B  f5 |when Ci>151 and Ci<=500 then
       print qi=2;
* B& ]% J2 W) \2 B8 B0 |when Ci>501 and Ci<=700 then
       print qi=3;
when Ci>701 and Ci<=1000 then
# N# ~/ Y- J( T9 p$ r0 y       print qi=4;
when Ci>1001 and Ci<=2000 then
# |4 w# z6 \# P       print qi=5;
when Ci>2000 then
       print qi=6
+ T0 \% U, J6 d- d3 m3 Q) Tend;
end;

  _0 D* f( L  A) D" H          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
) a' W! V$ k' C. J( b# |  N# s7 }          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
6 [9 ^) }$ _# s  w0 c) |' s2 r& ^(number : integer)
" Z- t# z/ ]% |5 ]/ tis
do
   inspect number
+ f8 m. ?% @. a" O$ Q: X2 s  k       when 1 then
          print "not a prime number"
0 A2 F3 `, @3 e       when 2,5,7,3 then
- y% p. E2 u3 i* P: Y/ X          print "prime number"
       when 9,4 then
+ b/ \0 D- A' ~' C0 p          print "square number"
$ |* a& Y9 A( F' J/ w       else
          print "no special number";
$ F/ W  e: F( ~. s9 r- C          print "or number greater than 9";
5 Q( J. [7 ]7 S# W6 N) g2 e% _4 R) N; o   end;
. i7 E, N5 R5 `9 m% Y9 m' @* I' Xend;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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