设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 6485|回复: 5

[求助] Inspect 编程问题

  [复制链接]
发表于 2009-5-12 20:16:59 | 显示全部楼层 |阅读模式
5仿真币
is# W- M- v+ e0 x: {; Z* D
       Ci :integer; qi : integer6 A) s" m9 r  Y6 h
do 4 }0 u- I, Q8 ~: Y
       inspect Ci
1 W% |; R; D9 }( `; h$ m3 Xwhen Ci>0 and Ci <=150 then
5 D6 x" E( ]. O* s: b$ q; K7 ?3 P0 [, D       print qi=1;+ G1 y2 D; |: p6 f
when Ci>151 and Ci<=500 then
1 `; D. }& P; @2 e5 x$ _       print qi=2;/ i- O9 N1 P# _
when Ci>501 and Ci<=700 then8 T) F6 Y3 z1 P% D3 ^  r
       print qi=3;
' Q) u$ Z$ B% C) qwhen Ci>701 and Ci<=1000 then
$ q" A& Q8 s( P% x       print qi=4;4 x9 J" W, o4 z9 V, Q' l
when Ci>1001 and Ci<=2000 then
* i2 D) V  Q% x/ e* K1 S       print qi=5;2 c7 F  \1 l" g( e3 v
when Ci>2000 then: j4 t, J2 U# o) o1 O! K6 z( v
       print qi=6- x' A6 z* c# t2 q  U
end;
5 b8 [3 j* ?' ~8 e7 [) [# T6 hend;6 E3 F5 G/ c2 {' Q9 w

4 ]$ b$ y6 D$ r6 s, @' T' B- `$ M          运行提示line 5附近的Ci 句法错误,想请教一下各位高手!如何解决?2 g/ \/ C6 E4 P6 w
          谢谢!

发表于 2009-5-12 23:36:09 | 显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
2 K6 m3 F3 Q! O- R7 F1 E(number : integer). r( I/ ]) B$ ]5 t
is
" ~, T' q- Q* w( D2 @do9 Z: u9 R# m8 v. c" `" O
   inspect number/ U. J) {$ q" a4 j4 B. ^+ A. O5 x
       when 1 then 5 `% a7 L6 x5 A, I5 D
          print "not a prime number"
4 O9 U# J7 Y6 P       when 2,5,7,3 then
$ _( V% I/ Y/ l+ a          print "prime number"
8 U; t0 ]2 P: E# ~% D+ \       when 9,4 then 7 z/ G- Z! `, [( o! ^/ Y" p
          print "square number"( r: b) Q% r. W# v( F2 {
       else
# J. R9 ^+ w# G9 G; d+ V          print "no special number";
8 `  c' d# a% o9 C- A          print "or number greater than 9";
; T& G$ ]: x' x$ N) p8 u   end;
, f4 c; Y. `( s& E+ [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, 2025-7-3 08:28 , Processed in 0.013751 second(s), 11 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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