Inspect 编程问题

jackchen

is
       Ci :integer; qi : integer
  }9 y# R7 n, |9 L  {do
       inspect Ci
2 v0 z2 z9 T6 @5 ^6 ]5 P) kwhen Ci>0 and Ci <=150 then
) ^9 U9 F) C+ s* W, t) I       print qi=1;
when Ci>151 and Ci<=500 then
       print qi=2;
' `) E# ]8 v% q5 D% V: ywhen Ci>501 and Ci<=700 then
       print qi=3;
when Ci>701 and Ci<=1000 then
  m5 m- ^: w% X! v9 m; V       print qi=4;
2 Y' W' n+ F( o! _9 Ewhen Ci>1001 and Ci<=2000 then
- w6 C/ j& j5 Q; h2 F       print qi=5;
; C8 ^  I1 |: p. _) l8 ^3 vwhen Ci>2000 then
* y: x7 ^8 _' K       print qi=6
! Y2 @% c' C4 n; d  K. d0 t$ l8 Zend;
end;

" e+ ^6 `; \) g+ B$ C) |$ E5 i6 [6 a          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
% X  s. y* Z) `0 h# P( K          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
(number : integer)
: E4 z; _6 V" h9 M  b  Z  Yis
do
   inspect number
$ O+ x0 s0 e( ?       when 1 then
- a) b0 r7 B2 N          print "not a prime number"
; l  R+ ?$ {6 k% m' N2 d       when 2,5,7,3 then
0 A' o7 A2 a0 l4 y          print "prime number"
       when 9,4 then
          print "square number"
       else
          print "no special number";
5 B9 q' P" Z* v2 `/ ~0 p6 T6 g          print "or number greater than 9";
8 a/ L+ V0 @, T   end;
/ J+ o: T" n% ?* qend;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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