设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8324|回复: 5

[求助] Inspect 编程问题

  [复制链接]
发表于 2009-5-12 20:16:59 | 显示全部楼层 |阅读模式
5仿真币
is
; `1 W) F. G/ {0 }, y       Ci :integer; qi : integer
8 o" L7 y2 R3 @5 }5 Tdo $ ]4 y* Z1 V/ q) ?5 F% A
       inspect Ci1 E9 q$ o2 ?6 H5 ^" @0 C
when Ci>0 and Ci <=150 then
3 Z* A% P% j* b% p# ~( t  L0 [       print qi=1;
$ @, h6 I, I" J' W. [2 }' ?when Ci>151 and Ci<=500 then8 k+ Y. Q0 v/ @  }
       print qi=2;
, G* S8 N4 M8 H" r  l, iwhen Ci>501 and Ci<=700 then
$ c3 O# \$ H+ w$ s9 ?! q       print qi=3;( R8 R! {& C% p4 W2 g( d1 x
when Ci>701 and Ci<=1000 then- ~3 {1 d0 m, N. s5 H; H
       print qi=4;: {) `7 u# @( V
when Ci>1001 and Ci<=2000 then
5 Q4 N! o  b, l& q/ G, z7 M       print qi=5;1 I. A1 N8 C+ J3 q/ M- z& J$ @# r
when Ci>2000 then2 u2 V9 u$ \, ^
       print qi=6
2 ~- t9 P5 Q! [) X# t5 qend;
- [) e+ J8 `/ g9 @end;! @4 F: n; k3 ]) _& K9 d

1 n. e! ?# \' C          运行提示line 5附近的Ci 句法错误,想请教一下各位高手!如何解决?) e1 {! h! g6 h$ J1 d) v2 [3 r+ [
          谢谢!

发表于 2009-5-12 23:36:09 | 显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:
9 l% S6 |" ?* A6 @4 z  F(number : integer)
, {. A* c6 U8 Y$ v* o0 ]4 |' Fis
- y) Z' T& z* S5 N: T  Ddo
# o5 t2 ~/ W% a$ b   inspect number$ \# R% @) w; f, ~7 o
       when 1 then ) g: y7 g* B- p6 `" G
          print "not a prime number"6 C2 t/ G4 @4 y4 }2 v) Z
       when 2,5,7,3 then ; s- j+ b3 n. a' w
          print "prime number"3 _2 Z5 z3 q; L2 I: ~% ?" j' i
       when 9,4 then
* O3 I1 p+ g, ^          print "square number"# h8 I. ^1 X: y/ A
       else* l! p2 D/ x/ k2 N7 n
          print "no special number";
# u8 u- ^/ ~8 l# E- G, q          print "or number greater than 9";' w+ K- e4 K- ~
   end;
1 Z+ A0 Z* D! h, Wend;
 楼主| 发表于 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-4-17 09:00 , Processed in 0.017886 second(s), 12 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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