Inspect 编程问题

jackchen

is
       Ci :integer; qi : integer
1 y3 Z0 H2 s1 g/ ~do
       inspect Ci
! t& R* l. ?+ Q& p9 ^' E0 Qwhen Ci>0 and Ci <=150 then
0 N6 s- V+ Y4 A4 J( T* ^       print qi=1;
9 q+ V. J) t' D/ y9 rwhen Ci>151 and Ci<=500 then
* b8 K  }/ ~# Q5 V9 d7 k9 e       print qi=2;
when Ci>501 and Ci<=700 then
  f- q' c0 d% n6 v& s1 J       print qi=3;
" D8 S. P& Y1 X. D  Z- }# a/ Rwhen Ci>701 and Ci<=1000 then
7 S4 ]6 {9 l3 |$ _7 Y6 q! \       print qi=4;
* Y/ z: }- ^- fwhen Ci>1001 and Ci<=2000 then
1 W1 E& v& {. c) s" d% z& E/ I       print qi=5;
when Ci>2000 then
: ~7 K# Z: W% W+ N, ?1 n8 g. \       print qi=6
end;
0 U2 h5 R( ^' i- Mend;

2 F$ }% d  v9 r; ]9 _/ j& \          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
6 ?/ M# P. ^9 u          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
(number : integer)
2 C; _, ^- A  g- N/ J# His
do
   inspect number
2 L0 u! h4 |( F1 S       when 1 then
$ d) Y9 u' j" j; Z' j          print "not a prime number"
       when 2,5,7,3 then
          print "prime number"
       when 9,4 then
3 j% b% D+ ^; c4 e8 T3 A% \) K          print "square number"
       else
          print "no special number";
          print "or number greater than 9";
/ b) S5 @( o/ V) H0 w   end;
* W1 j- L/ i1 n! S; i4 l& Mend;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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