Inspect 编程问题

jackchen

is
- ?9 ~0 k: g8 K# M+ }% v5 Z       Ci :integer; qi : integer
do
8 m8 J# T+ ^; M! F       inspect Ci
6 I9 h/ t) O  |  A: pwhen Ci>0 and Ci <=150 then
       print qi=1;
when Ci>151 and Ci<=500 then
       print qi=2;
! z& }/ t. g+ V) u1 f& x8 l# {when Ci>501 and Ci<=700 then
7 d2 `& J& b/ y1 y/ H8 Q       print qi=3;
: {& T& L# X0 \7 J& @when Ci>701 and Ci<=1000 then
       print qi=4;
when Ci>1001 and Ci<=2000 then
       print qi=5;
7 l' j' l* M& A. J/ @when Ci>2000 then
6 M& l0 T6 W( i4 A! w) N2 w       print qi=6
end;
end;

          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
2 d1 e8 D6 k0 L/ r/ f6 Y' U          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
(number : integer)
is
do
' A; S) ?# w+ a8 }+ K, e  K& @   inspect number
7 T) U6 V! `6 e! u       when 1 then
          print "not a prime number"
# C$ [  ]5 |, G' c% c8 C7 Z       when 2,5,7,3 then
          print "prime number"
, }0 Q- _- ~. [6 c8 t       when 9,4 then
          print "square number"
       else
          print "no special number";
          print "or number greater than 9";
6 Q: A) H$ y1 m/ \# N   end;
% Y8 B1 ^3 y1 V, E. w8 i, Q- i- Pend;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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