Inspect 编程问题

jackchen

is
       Ci :integer; qi : integer
do
# f5 L5 p. s8 T! x. y       inspect Ci
+ s7 N5 Y$ f! h& G# |* pwhen Ci>0 and Ci <=150 then
6 u. O# }! i8 A9 N+ P( s       print qi=1;
when Ci>151 and Ci<=500 then
( r- m) x! ^9 q, z: I6 i$ N       print qi=2;
, x. k; `" X* t) h& Vwhen Ci>501 and Ci<=700 then
       print qi=3;
when Ci>701 and Ci<=1000 then
( [* `, A6 P8 t% S$ r, L8 r& F2 Q       print qi=4;
8 h. u2 }2 T+ T) \4 B1 ?when Ci>1001 and Ci<=2000 then
" a' [% q7 l# U$ Z       print qi=5;
8 z" ]8 V% H' F+ @0 bwhen Ci>2000 then
. @: y* [- j5 D       print qi=6
: j) }' m& L; F/ l0 T+ bend;
end;
* A: v( I) }+ S" F9 {) ]' z- ?
          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
" I' z2 G2 A" t' k; N(number : integer)
is
- d; o, x0 b' H6 i* s1 w2 b( Vdo
   inspect number
       when 1 then
& e: U1 L) L8 c9 `' Z! w7 e2 e          print "not a prime number"
       when 2,5,7,3 then
          print "prime number"
       when 9,4 then
          print "square number"
       else
          print "no special number";
. H% Y) n- H1 ^1 v7 T+ J+ n# t0 l          print "or number greater than 9";
   end;
end;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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