设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 6986|回复: 2

[求助] 程序问题

  [复制链接]
发表于 2015-11-3 14:58:43 | 显示全部楼层 |阅读模式
以下程序运行时显示有语法错误,我是新手,求帮忙看看哪里有语法错误1 P) R( `) \9 v
is
3 y/ D% m/ Z! b/ I9 b        i,j,Rows,Lines:integer;4 ?' S! f/ p4 n- _% h
        MachineName,BufName:string;7 o$ e+ C1 N3 V! J# V5 o
        Machine,Buf:object;' K6 c) F8 o2 I0 l
do% i$ M9 `! K2 h1 M4 S" y6 q
        if Number_Of_Machine/=D_From_To_Chart.YDim then( [$ R& Y$ ]5 }' c" W
                inspect messageBox("Number Wrong...,",50,13)! h; j% v# {1 `5 k+ W- N3 I" ^
                when 16 then/ A$ M2 c; t# @  I+ L& @
                        print "Yes";
. c. S; B' E5 |                when 32 then  {( U) a4 Q: V8 C9 G3 Z
                        print "No";3 G! S0 [) m9 d  x/ ]! Q2 E; P
                else  c1 t0 t% G7 o& `- d5 p" P. w" V
                        print "Cancel";
" B9 [  S: U( _# w* O! T+ V                end;
3 w' y: T3 h8 V; g2 N  |/ l" f        EventController.stop;
( {5 J, }0 M7 v2 O/ ^end;
- b8 ~. ]3 g9 a2 a4 p" QPartsTable.delete;4 R3 x' w5 O9 }( N/ s
for i:=1 to Number_Of_Machine loop: y" _1 d& m% J8 U: f
        for j:=1 to Number_Of_Machine loop
% B9 m0 h2 N; b! h- M( {                if j<i then9 o3 ?) o$ \) H, ~* }
                        if D_From_To_Chart[j,i]<=0 then
- w$ Z; b2 @$ I& @# u( o: o: p                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
" j! b- l  W  U% j( [5 w$ p                        end;
( @8 C! |  c( w0 b, j) N1 o                else- j) E1 b8 u7 Z6 q; h5 G: |, L
                        if j=i then
8 `/ ]  P; N" M7 s                                D_From_To_Chart[j,i]:=0;
* j! c. S/ A3 L1 a$ F/ l* y6 ^5 H                        else
, p: j: m& U$ N9 v                                if D_From_To_Chart[j,i]<=0 then
# q2 U9 j6 ^+ V& l' H. x3 @! A4 c                                        messageBox("distence<=0...,",50,13);: o* G+ {% d+ h# e! G' `; E( u9 f) m
                                        EventController.stop;
" p4 W3 [% p3 ^) ]                                end;
/ A9 U& I. \- V- }5 V+ C                        end;
' F8 Q9 M6 C6 N                end;
7 l+ y5 |. n% [1 {  e        next;+ y" F- N0 ^5 ~5 w; ]; U$ C
next;
( I" V" m) M# ^. {4 P0 L
4 p/ P& l, I7 c9 B7 Mend;
2 p( ~5 n# o. |% h. m3 b: A+ R3 W+ A. G& L- O
    Lines :=0;( f# T- ?. h8 a8 {# Z1 `4 t% ^
        for i:1 to Number_Of_Machine loop% s: z, I8 ?5 v8 @! m' D/ }
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));- S* T( P/ U( s3 M- W3 Z2 `& K* s( l* Y
        MachineSequence[2,i]:=Rows;
! v3 ]7 a& q$ v$ C/ H            for j:1 to Number_Of_Machine loop& Z9 U( j* V$ C# p
                    if W_From_To_Chart[j,Rows]>0 then
. h( L3 d8 y2 ]$ K3 |" E) N                            Lines :=Lines+1;" |$ k5 G: G$ `' _# w& n
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));( W" z8 Z" |5 {* ~8 Z
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];; U8 |' ?8 k  b. z8 B+ |, y
                        PartsTable[3,Lines]:=sprint("Parts");
! [0 n8 O4 L" M  b. k$ T                        PartsTable[5,Lines]:=Rows;
/ ~0 r2 L( u' m6 u0 \" K                        PartsTable[6,Lines]:=j;
& d+ x7 m" o% E. M8 ~; `: W                end;4 C% h0 h9 u( w) k
        next;8 M8 n5 [: w- b/ O$ L, Q
        MachineName :=sprint("M",Rows);5 i) |4 R2 q8 G. k
        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
5 X* ^, I; m: }- \        Machine.Name :=MachineName;
7 o: x# p# ^- f$ U        Machine.ProcTime :=5;
1 e/ u# E0 t- J) }        Machine.label :=sprint("machine_",Rows);* m9 X1 ], W5 `) u! L
        Machine.ExitCtrl :=ref(Leave);% s3 }6 V6 a& }0 E
        " I. ?* M2 y+ ]! t! ^
        BufName :=sprint("BF",Rows);8 }% h% E+ w* H: M
        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);7 j. p% S$ E( K! y: o( h
                Buf.Name :=BufName;
7 ]" [* b) ?: z% N8 h1 D% R6 B        Buf.Capacity :=5000;* V) K# l6 z$ e* K  K: I: J
        Buf.ProcTime :=0;
7 m7 x* t! G; `( C; K9 l% I        .MaterialFlow.Connector.connect(Buf,Machine);# W3 S+ o8 y0 ^$ X9 K% G0 k
next;. @* }% a; \! \8 S8 t" S. {
end;* Q) \& g) W4 C# R* X/ n+ Q; ^' J/ |
发表于 2015-11-3 18:23:57 | 显示全部楼层

回帖奖励 +1 金仿真币

end 数量不对 且后面两个for循环 赋值没有等号。。。
 楼主| 发表于 2015-11-4 09:06:13 | 显示全部楼层
老师,我再问一下,哪里的end数量不对啊,我是新手
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2026-4-18 14:10 , Processed in 0.023887 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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