设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9289|回复: 5

[求助] Inspect 编程问题

  [复制链接]
发表于 2009-5-12 20:16:59 | 显示全部楼层 |阅读模式
5仿真币
is# }% E5 I- u8 U
       Ci :integer; qi : integer; z  P9 g5 n6 h- v, L4 Y
do
( |. l  c/ M+ a  b& V$ ]       inspect Ci
- W: r# H% I. p7 Fwhen Ci>0 and Ci <=150 then + m' E; y$ F$ A0 \1 v2 J
       print qi=1;
4 d0 u+ ~$ t; d  k9 mwhen Ci>151 and Ci<=500 then
3 S3 Q- U$ q5 u# ~7 W' [       print qi=2;
9 v' D, R  H6 C* o) twhen Ci>501 and Ci<=700 then
# g9 ]8 f$ `& S' \8 [3 M7 k       print qi=3;
% h- j5 n, g' y- [3 Ywhen Ci>701 and Ci<=1000 then* V- E8 B/ z( h
       print qi=4;
  t' g) F7 i1 [when Ci>1001 and Ci<=2000 then
$ W8 D7 l6 F% f       print qi=5;
* m; X( l1 h! P, S! @- ?. lwhen Ci>2000 then2 P5 S2 R1 Y: k) w2 m# [
       print qi=6
/ ^' S3 o; H! w4 h/ i6 tend;# H3 I! Q# Z$ m; C8 K. `% K
end;6 N! l# S6 m. {0 m2 M* p! s. h

0 B" `. T8 p, F0 V" S5 c2 E          运行提示line 5附近的Ci 句法错误,想请教一下各位高手!如何解决?! f5 k/ k& V' O8 k/ C& T
          谢谢!

发表于 2009-5-12 23:36:09 | 显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
( k# p1 k2 w0 h# e0 h(number : integer)
2 U1 ^+ |7 _4 z! vis; Q2 V; ]# H( l$ V
do2 [8 E3 L3 s4 R7 U
   inspect number$ J! [6 i, E; `4 }8 s6 B# b3 T5 Z0 \
       when 1 then ! U" M" Q7 E$ y( d: b/ A: v+ B
          print "not a prime number"2 D5 U& w$ K+ j  t2 S
       when 2,5,7,3 then : V2 K  N5 J8 d6 J
          print "prime number"
* L+ p  _- }  P- }       when 9,4 then
4 T+ M8 r' u$ y          print "square number"& i, }- u7 C9 U3 M
       else( j; f' f0 Y$ ]) c6 m
          print "no special number";: Q" @1 A+ f) Z; S) N
          print "or number greater than 9";  C( H6 M* X8 [  V. g
   end;% S9 x/ N! n  V# {9 h
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-8-24 18:32 , Processed in 0.014246 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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