Inspect 编程问题

jackchen

is
9 H/ [- `7 J6 R: I       Ci :integer; qi : integer
do
; c) M' ~, C" Q3 K) U       inspect Ci
% H* T4 D' ^0 uwhen Ci>0 and Ci <=150 then
& j8 J, T8 k: ^+ ^1 O& a* Q( _       print qi=1;
when Ci>151 and Ci<=500 then
6 d9 T" e3 ?& k' t# U% q- D       print qi=2;
% a, J- O. C* m, H3 pwhen Ci>501 and Ci<=700 then
/ f, O% Q5 ~# ~2 s       print qi=3;
when Ci>701 and Ci<=1000 then
       print qi=4;
when Ci>1001 and Ci<=2000 then
$ `# L8 e* O9 t4 P: E8 e; D) o       print qi=5;
when Ci>2000 then
" y# \8 C5 F' l       print qi=6
end;
end;
% a7 h/ z( V. g3 l# F
  W6 [7 {" C" ~( d. o% {          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
7 e" I% h$ d- y+ n' F4 N(number : integer)
. b6 t) D9 H# tis
' L3 h  _" v: {( ?2 E5 ddo
$ ?' |, r/ S1 c% L$ m) X   inspect number
6 y) s5 n; G0 y       when 1 then
          print "not a prime number"
( E+ m  [. ~6 R4 P$ p. i+ S5 ~       when 2,5,7,3 then
          print "prime number"
; V/ U* f3 a" X5 E2 d       when 9,4 then
. u; M. ]$ U9 i% Q          print "square number"
       else
( ~( U/ ~" ~' ^' M          print "no special number";
* D+ L' T  f8 I2 U          print "or number greater than 9";
1 H8 R8 B( C$ g   end;
end;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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