设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8643|回复: 5

[求助] Inspect 编程问题

  [复制链接]
发表于 2009-5-12 20:16:59 | 显示全部楼层 |阅读模式
5仿真币
is
! r$ }& B0 c; o/ h& j% C6 I       Ci :integer; qi : integer5 l% T5 B8 t# [6 U( t9 W
do
6 d" @6 _- j9 s       inspect Ci1 X1 F4 M! r' r
when Ci>0 and Ci <=150 then
" I# [) g  H$ Q       print qi=1;
* {2 @2 v4 ?. L, z+ s: j+ awhen Ci>151 and Ci<=500 then$ ]% m: Q3 m( b
       print qi=2;
, y" P/ v4 ^3 O6 z- h8 C/ G7 R0 pwhen Ci>501 and Ci<=700 then
4 ?" u/ @* W' `  [3 `+ W       print qi=3;
3 V! ^5 f- h4 X# c$ Q! ^# Q$ |# R; bwhen Ci>701 and Ci<=1000 then
9 E6 l( W5 H. v4 f$ G; |+ Y! t       print qi=4;
" |$ w: E5 y. {# y8 M5 s3 Jwhen Ci>1001 and Ci<=2000 then$ B. ]9 Y3 W! w! k- p5 _7 ~1 x5 e- l4 v% m
       print qi=5;: \  u8 v! c- C
when Ci>2000 then1 |/ _# {9 F( y; E& @7 s7 E$ k2 ~% A* V
       print qi=6
- q! o! V" g  z8 n* S- L  rend;
. b+ e$ R( `" dend;" }1 `" v. B+ x1 ?) ~
. z( w+ w& g1 C5 p
          运行提示line 5附近的Ci 句法错误,想请教一下各位高手!如何解决?* y' d9 j* \8 w& Y/ m4 {6 _% S( x
          谢谢!

发表于 2009-5-12 23:36:09 | 显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:1 O1 t0 i9 R$ ?
(number : integer)- i8 Q+ @, t+ ?9 ]; ~: y
is
& L2 l: ^  w' _/ Bdo6 x2 }: Z' d# w
   inspect number' M1 g1 h# ]; E7 O( N# y
       when 1 then
0 e5 T* ~; F6 A7 o          print "not a prime number"
; _# M/ k, ]8 A- e' M( o" i$ ?       when 2,5,7,3 then 8 B* T* W1 ?' m- g3 K1 V
          print "prime number"
# x% h0 D# ~3 X9 B9 w3 L! U& a       when 9,4 then 6 j8 }3 o+ ]5 ]9 Z# O
          print "square number"
, Z7 J  Z- d& B) {       else# C' t5 L. n  M) y& D
          print "no special number";
- G- `3 r4 ], F# J          print "or number greater than 9";7 I+ T! E/ O2 D+ L' K/ Y5 Z
   end;# f; N" A, P. o: @5 o
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-5-28 07:48 , Processed in 0.014871 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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