Inspect 编程问题

jackchen

is
& g. j6 y7 d# ?7 ~       Ci :integer; qi : integer
) _5 M5 F( D" x$ ]4 e) @do
       inspect Ci
4 p- s6 R& L, U8 wwhen Ci>0 and Ci <=150 then
- Y- _8 l" ?  v8 {- R) V5 R' @, F8 N       print qi=1;
when Ci>151 and Ci<=500 then
1 e/ e9 u; W) |* L4 a       print qi=2;
9 c# g/ F3 i; S/ S- \7 mwhen Ci>501 and Ci<=700 then
       print qi=3;
- @. [& f4 B  q* ~9 Vwhen Ci>701 and Ci<=1000 then
/ T3 x0 o6 t' g! ?$ R4 o       print qi=4;
$ V. k# C% A0 r# Dwhen Ci>1001 and Ci<=2000 then
       print qi=5;
when Ci>2000 then
" f# s* ?% x7 {; u; J' Z+ M       print qi=6
end;
' O7 O- d+ T5 `, r' Jend;
. t# G% C! C5 F, N: r
0 }4 X. h0 q$ d          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
8 r" q! z' ^" y6 z          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
- j7 [; d' I7 ~7 \- D3 r9 a(number : integer)
is
- f8 q3 C$ h- }1 I; ]do
   inspect number
       when 1 then
  ]! W; l9 ^. V; M% C2 @          print "not a prime number"
9 W1 u9 @5 K3 b! P9 Z       when 2,5,7,3 then
          print "prime number"
       when 9,4 then
  p. ]9 R/ {4 J* V; L          print "square number"
       else
          print "no special number";
          print "or number greater than 9";
   end;
end;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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