设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7750|回复: 5

[求助] Inspect 编程问题

  [复制链接]
发表于 2009-5-12 20:16:59 | 显示全部楼层 |阅读模式
5仿真币
is
! E. s- V; |5 A       Ci :integer; qi : integer
* H; y% Z! y; Q, _do ) Y- m9 l1 f* Z( o2 u
       inspect Ci
; v" b, U% e, Y1 i2 \0 Qwhen Ci>0 and Ci <=150 then 9 A3 n! Y  J/ a& A
       print qi=1;9 Z5 x% x+ E% r0 C8 g
when Ci>151 and Ci<=500 then! ]: ^' y! ~1 W8 _' i
       print qi=2;7 d3 E% w) b& |; Q' B* n  {
when Ci>501 and Ci<=700 then
3 V+ b& m1 c; @  O. k8 }! R. b3 H       print qi=3;
6 @$ E- o. b3 ]" ]6 Kwhen Ci>701 and Ci<=1000 then9 ?! A, `; @+ l2 D4 x& }
       print qi=4;
( o1 K( |* r9 W  s, j3 Rwhen Ci>1001 and Ci<=2000 then* K! L1 A! [9 W1 ?
       print qi=5;  E" ^4 J* d% V" n* p
when Ci>2000 then
9 r: x) K' |6 B5 X' E       print qi=6" p3 v8 H+ a9 Y
end;
: L' K, ]- }* y, M0 s9 @end;
# y) E  i  t# o9 m. t3 D# B; d1 Z/ ?( v; d
          运行提示line 5附近的Ci 句法错误,想请教一下各位高手!如何解决?3 y; ~3 c4 _" x0 ?% h2 ^
          谢谢!

发表于 2009-5-12 23:36:09 | 显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:( j- _) J4 H) ]/ z
(number : integer)8 Q/ B; H" b( w- L, F0 b
is- {2 e$ s* s7 B+ u1 v# l& D
do, @, a! C% V& F# K% i
   inspect number
0 O6 Q' z* L! J" w9 P, W       when 1 then
' d9 k0 m- Q3 s          print "not a prime number"
7 k6 u( j  F: X2 m; Q& [       when 2,5,7,3 then
( U$ N5 }& e7 b. U# S0 y+ x          print "prime number"* Q7 t# L& ?1 r% n; f
       when 9,4 then
- x) E0 a# C  X* U          print "square number", l) c. W. m( H" o& |0 Y7 k( a
       else
, M6 j0 |$ f2 f* ?6 |          print "no special number";
# d+ P+ Q7 H# `          print "or number greater than 9";% n. ?9 q; M- ~
   end;
6 D& H5 ?9 V/ ?: Y7 ~+ Gend;
 楼主| 发表于 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-1-19 16:53 , Processed in 0.019230 second(s), 11 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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