设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9226|回复: 5

[求助] Inspect 编程问题

  [复制链接]
发表于 2009-5-12 20:16:59 | 显示全部楼层 |阅读模式
5仿真币
is- J4 B/ ?9 e5 m3 w, @( d
       Ci :integer; qi : integer- h1 H! [# S( H3 @0 X- u9 r
do
1 ^7 B2 [" g% E0 f7 L* [5 E       inspect Ci
# b6 J8 Y  y! @when Ci>0 and Ci <=150 then 8 P* j2 s9 h7 y- L8 i
       print qi=1;
5 O/ ?2 [1 c1 N# {# i  Twhen Ci>151 and Ci<=500 then" n! Q. S7 h# U- ?, P
       print qi=2;4 B6 @, w% k7 [! j8 h$ `
when Ci>501 and Ci<=700 then
/ P) |7 l: `6 X, ~, @; S       print qi=3;* |/ h1 q: _4 U7 D' u# U
when Ci>701 and Ci<=1000 then+ }8 I5 ^( g7 Q3 y) }1 }; q
       print qi=4;
7 i) C  o/ K' g( ]- uwhen Ci>1001 and Ci<=2000 then2 u/ p- D7 A. z4 B3 p. @
       print qi=5;
; e5 m7 m" {8 `8 l  Y* P5 B0 iwhen Ci>2000 then
, g2 U, d# E: D4 d6 ~  V       print qi=6# O: }9 b5 f& r3 s0 ^! y
end;
! s+ O( U- q. T0 D9 h1 G: a4 |0 |# D5 ]end;
, l( h$ _3 `7 h
1 K- n/ a$ s: X% _" {          运行提示line 5附近的Ci 句法错误,想请教一下各位高手!如何解决?. E# f1 N. D1 n/ s
          谢谢!

发表于 2009-5-12 23:36:09 | 显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
/ N0 C- r  c9 ^; O: z) k% Q! p" x  T(number : integer)
1 r( N- D( Z: x! r7 Sis
2 o8 |% p3 [" k* Hdo
: p+ s3 g# i: F# k2 s5 P' h   inspect number/ T4 E' G4 H/ u& l
       when 1 then
& {6 w2 c5 K) r' N3 i          print "not a prime number"
- @8 {1 y* E8 l9 c9 d$ G4 [       when 2,5,7,3 then
6 V7 j8 h: ~% x& ~3 H  k          print "prime number"8 D4 v" H$ x' ]. g& w  O: ^
       when 9,4 then   @3 ~9 d) k7 g  t' x
          print "square number"
, @7 {. l( N- r6 J+ v  t, W       else
6 _6 K) F% L$ D          print "no special number";9 p: z2 ]& }0 h& u$ @
          print "or number greater than 9";
* A. x& X6 H5 e- G" `2 y   end;5 L5 N# 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, 2026-8-14 07:42 , Processed in 0.015778 second(s), 11 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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