设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8583|回复: 5

[求助] Inspect 编程问题

  [复制链接]
发表于 2009-5-12 20:16:59 | 显示全部楼层 |阅读模式
5仿真币
is1 W5 P4 D  ~5 z6 Q
       Ci :integer; qi : integer( o7 O. v1 X2 R; L% J! S+ Y7 K4 [
do 3 z3 _/ r! R- K% u% c, ^& s
       inspect Ci- E: a6 }2 c" ]6 }
when Ci>0 and Ci <=150 then 4 |" I$ \7 t; f+ S9 c/ i+ D4 Z0 N0 ^$ _
       print qi=1;
' w& F1 W3 b: v0 y2 P' iwhen Ci>151 and Ci<=500 then* R+ s+ U5 ^2 `5 v
       print qi=2;. o2 y" O/ u3 d+ ?. f7 [4 z
when Ci>501 and Ci<=700 then
( @) h4 D3 \# `6 c: j9 r( p       print qi=3;
0 q# K6 _0 J0 ~3 D/ F! f! \% Zwhen Ci>701 and Ci<=1000 then7 f  J) N+ I$ C- g$ h
       print qi=4;
) B, {. g# f+ J' }) n( pwhen Ci>1001 and Ci<=2000 then
9 _, v7 V/ d8 _0 w& j       print qi=5;# c( m! Z- Z# |% g8 f
when Ci>2000 then
1 ~% H- K9 A# |       print qi=6
# I( |! P2 [# A% X$ I1 Gend;
! s% l, j+ j7 W" x* S4 E# Eend;
1 B& n4 t( |3 u% L. C6 m- l
/ i5 F5 L0 {8 P9 d& }7 y          运行提示line 5附近的Ci 句法错误,想请教一下各位高手!如何解决?
: @% S+ Q- s/ H9 {2 x          谢谢!

发表于 2009-5-12 23:36:09 | 显示全部楼层
inspect应该不是这么用的,不知道你要解决什么问题,如果是要本程序内判断ci的大小,用if-else就可以了。如果ci不是本程序的,需要调用此程序时,可以用inspect,用法如下:5 g* u* B. w8 L" z
(number : integer)
; D5 M4 m" c5 S+ o7 S0 Kis$ v/ U" L! o/ t" Q1 ~- X! k  f
do+ G" i7 |) q% C$ w
   inspect number& z6 C$ h2 f) E3 U4 G# w0 D
       when 1 then 2 H4 y: C) Q9 G! A
          print "not a prime number"& G4 j' g$ h: |
       when 2,5,7,3 then
+ `& X' j+ j% k0 N( \1 i# p          print "prime number"! Q" }- c- ~3 p5 \$ F% ^* m2 C
       when 9,4 then / I: W7 z$ M8 F6 i$ L% {
          print "square number"- x0 L7 p) W, Y& q! u& B
       else# n! T( S6 M0 \: r; m$ W1 U
          print "no special number";5 E( Q, w; s" y7 i& O
          print "or number greater than 9";
) X; N& D- R$ h- e4 n   end;3 v) a  v7 d6 d; m) x0 W9 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-5-14 15:13 , Processed in 0.012944 second(s), 11 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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