Inspect 编程问题

jackchen

is
( E9 y8 L5 z' _2 y. A$ n       Ci :integer; qi : integer
. n* K  ^7 v- Ldo
# y# E% J+ j' g- g4 }. l& b# x       inspect Ci
4 A/ S# _+ @2 q6 M1 r# Ywhen Ci>0 and Ci <=150 then
6 l* x; \) O, O1 o       print qi=1;
2 q7 ~6 K) ~+ `$ y# awhen Ci>151 and Ci<=500 then
$ ?6 o- s: ]# }: a8 o: ^+ N# @       print qi=2;
when Ci>501 and Ci<=700 then
$ X9 i# Q: t5 ]3 ^% [$ _       print qi=3;
when Ci>701 and Ci<=1000 then
$ y0 D5 T7 _7 F  _) H) X       print qi=4;
  g2 r8 c2 J% M  S! B. c) p( c, gwhen Ci>1001 and Ci<=2000 then
4 f: C8 U' k9 U% G& |- j) l       print qi=5;
when Ci>2000 then
8 u0 J* e- T7 p       print qi=6
5 b5 q% Q& {) s2 T0 y4 \2 Rend;
end;
- m) N! V. T, N( `' @
          运行提示line 5附近的Ci 句法错误，想请教一下各位高手！如何解决？
$ q) t3 P6 ^6 S3 g) u5 C          谢谢！

liysunny

inspect应该不是这么用的，不知道你要解决什么问题，如果是要本程序内判断ci的大小，用if-else就可以了。如果ci不是本程序的，需要调用此程序时，可以用inspect，用法如下：
(number : integer)
is
) k, ^, f: N+ [do
3 l  q" V  S( ], ]2 D# b   inspect number
  e" c* M3 i9 T2 _! G# o2 R6 P       when 1 then
          print "not a prime number"
       when 2,5,7,3 then
          print "prime number"
* _* I4 V7 T' {2 l  E       when 9,4 then
# m4 w6 _7 m' Z  V0 [! B( S) W$ l          print "square number"
2 y. k, x& T6 W0 ~  j9 w       else
          print "no special number";
          print "or number greater than 9";
   end;
- }& ?' Q# k* Wend;

jackchen

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

pipilu

？

哭泣向日葵

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

pengyazhen

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