Inspect 编程问题

jackchen

is
9 B$ ?8 A7 ^( B  P) d       Ci :integer; qi : integer
do
       inspect Ci
) F! t" E) l* l+ L$ owhen Ci>0 and Ci <=150 then
       print qi=1;
when Ci>151 and Ci<=500 then
       print qi=2;
. k& R7 Z/ ^; e& ^; pwhen Ci>501 and Ci<=700 then
       print qi=3;
% _) z0 m0 c$ b( \* S/ awhen Ci>701 and Ci<=1000 then
       print qi=4;
0 h* f8 R/ @# j' X2 ]/ Dwhen Ci>1001 and Ci<=2000 then
- g+ V. y+ Z5 K: i" Y1 Q       print qi=5;
when Ci>2000 then
. I0 N0 t' D# @+ X' r, i! M( F+ l       print qi=6
end;
end;

' Q( Q& e. S- o0 s( e; a          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
8 l& p0 j! J2 @- h          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
(number : integer)
' t5 E1 N# v9 z2 K9 m4 E* _' z0 xis
do
; H- ~$ ]: L) `2 B/ y8 }3 C9 h& n   inspect number
       when 1 then
) w$ k# }: K9 N$ Q* Y) b3 q; p' I          print "not a prime number"
       when 2,5,7,3 then
- F6 l, Q8 p3 j$ ]+ R/ ]( c5 N          print "prime number"
       when 9,4 then
- b) A" l8 G+ P) t' u9 F  U          print "square number"
4 X2 |# Y7 h6 g" F9 s* S       else
          print "no special number";
          print "or number greater than 9";
   end;
1 x" }; Q8 ^- R" tend;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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