设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8674|回复: 5

[求助] Inspect 编程问题

  [复制链接]
发表于 2009-5-12 20:16:59 | 显示全部楼层 |阅读模式
5仿真币
is
0 a5 B' l/ X, }       Ci :integer; qi : integer: G1 [* b! F; |6 e- z
do
% G- w# m2 V, l8 Q6 R       inspect Ci( D1 B7 h: Z& z! J" I
when Ci>0 and Ci <=150 then
8 A! p# Y0 h( N2 g. R% R* M" a       print qi=1;# L% N* S& x1 x* O8 d( A% w
when Ci>151 and Ci<=500 then$ R* }4 _- T8 [8 J
       print qi=2;% g6 c( e1 U/ p  A
when Ci>501 and Ci<=700 then
3 G. k9 F5 o* y: x       print qi=3;
7 _: N% ^2 T0 F. I) d$ _- cwhen Ci>701 and Ci<=1000 then
0 E; T% ~: `" ]0 Q9 |( _6 i% p       print qi=4;
5 t; @+ h% O$ L! twhen Ci>1001 and Ci<=2000 then7 p2 I7 m; X+ ^
       print qi=5;* C% [/ g! ~# R8 Q1 a* J
when Ci>2000 then! S+ \7 j3 |$ N; f1 Q
       print qi=63 v) c+ Q) I6 e: c; U3 ~* _
end;
  c7 p  w: L1 V+ xend;0 g( O% c7 _- @

$ ?" X. z! U( I9 D5 @3 M6 d& c          运行提示line 5附近的Ci 句法错误,想请教一下各位高手!如何解决?
3 f6 d/ v3 L9 I          谢谢!

发表于 2009-5-12 23:36:09 | 显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:6 r! m9 B$ v) e" N, ~& p
(number : integer)
. N7 n9 A" i7 ^( M" {$ `* {is
9 B  W, E# _9 Kdo6 I) e# t6 T$ [  `: b  J
   inspect number6 z3 C& X  P/ ^3 r( D
       when 1 then ' ]% o! i: H! S5 E* j5 @' r! A4 p
          print "not a prime number"
( c0 a: {2 u& M       when 2,5,7,3 then 6 d- `5 n6 C5 d" ?3 w  P( g
          print "prime number"
5 e, r2 G& A2 f' h- Y- J       when 9,4 then , W; U% G+ J" x: [6 v7 Z
          print "square number"$ E3 D. e, J- K
       else
0 F- ~7 {; Z- K( Z- G          print "no special number";( X6 @" F$ t+ b- E3 i4 C1 A
          print "or number greater than 9";% Z( Q1 J0 r. m
   end;, C9 B6 b9 d8 r$ u% H- D) p
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-3 22:27 , Processed in 0.011801 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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