设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8686|回复: 5

[求助] Inspect 编程问题

  [复制链接]
发表于 2009-5-12 20:16:59 | 显示全部楼层 |阅读模式
5仿真币
is7 T0 t/ T5 B1 B3 s0 d7 z- ?0 N' L
       Ci :integer; qi : integer
9 |% p7 Y9 V9 S/ W1 t6 v- w* Udo ! @# g5 i* N$ `* `, [  k6 m# i# }
       inspect Ci% u' V/ J! T* }$ i, x" ~: Z
when Ci>0 and Ci <=150 then % R. y; S) o! L  A! \
       print qi=1;9 f/ ?! P* i8 L9 M
when Ci>151 and Ci<=500 then
0 m4 R9 P) z7 C* q       print qi=2;
7 F3 [1 E/ p& n* V$ twhen Ci>501 and Ci<=700 then$ y% g+ a3 g, v* ~
       print qi=3;
( A/ ~, n0 D& e; ~8 N' \when Ci>701 and Ci<=1000 then
1 U) C, w: |. h8 Y       print qi=4;
( T) u! k8 d, j- g" P! C( t3 Uwhen Ci>1001 and Ci<=2000 then6 Z5 \2 H# u5 a
       print qi=5;0 N: _5 ~: d' E5 ?3 V
when Ci>2000 then! f) u' x9 A; \+ _8 c
       print qi=6
7 x# _& t( S8 n8 |: G" nend;& A; ?, d4 t: C) U. {
end;
% N' O1 u0 `, [6 c7 V# b( c& K) s$ z; H- d4 `9 a) K* D* x. J
          运行提示line 5附近的Ci 句法错误,想请教一下各位高手!如何解决?
4 }+ f7 d+ g7 ]5 q6 j: T; \          谢谢!

发表于 2009-5-12 23:36:09 | 显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
8 u1 g0 [$ G' h(number : integer); d, v& d2 J1 I  C
is
  a* _; K4 y9 `, W. J+ Z9 q: M0 Gdo" J6 ]) u. @) O
   inspect number1 U! z/ Q! y2 I, P
       when 1 then
6 l( w7 K/ Y% B% N/ a  z; l          print "not a prime number"
3 ]# B  g: `  R       when 2,5,7,3 then
( C- _) ~1 g5 w6 D2 ]          print "prime number") x5 L" j+ Z9 |, D
       when 9,4 then / S1 c) k) ]; U; J" T
          print "square number"
, g5 a, f; D. M! d7 B       else
/ f3 n3 ]" T$ A  ^% ]! e" I7 A          print "no special number";. T. @+ i4 f: H' g# O$ c
          print "or number greater than 9";
. m6 V, W- P5 ~! g1 W   end;8 T' v8 W& a6 f4 L! U3 b7 V1 X
end;
 楼主| 发表于 2009-5-13 10:00:51 | 显示全部楼层
我在做一个集装箱码头泊位—岸桥分配的仿真优化模型,我是新手,有很多问题需要请教,高手liysunny能否帮忙,我的qq:540966007。谢谢!!!
发表于 2009-5-13 17:55:54 | 显示全部楼层
发表于 2009-9-15 10:16:40 | 显示全部楼层
楼主Ci没有赋值,应先赋值,再判断
发表于 2010-10-19 09:44:36 | 显示全部楼层
二楼说得很对啊,版主为啥没给加分呢?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2026-6-7 05:26 , Processed in 0.017517 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表