设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 6796|回复: 2

[求助] 程序问题

  [复制链接]
发表于 2015-11-3 14:58:43 | 显示全部楼层 |阅读模式
以下程序运行时显示有语法错误,我是新手,求帮忙看看哪里有语法错误6 l( d; j6 B' a
is
; B2 M/ Z8 E9 N0 ]9 m6 G. y        i,j,Rows,Lines:integer;
( Y" k" D' E7 w1 }, S  v3 t        MachineName,BufName:string;
+ N' ?! F% X" D2 e. l8 ^. J        Machine,Buf:object;
/ X* j" N8 c/ {+ X6 ~+ Pdo
, A0 H3 y, y, Z+ L        if Number_Of_Machine/=D_From_To_Chart.YDim then
2 h( h$ p1 `! ~( G; z" r5 ?' u                inspect messageBox("Number Wrong...,",50,13)
/ ^* j0 f" v; c- x- k1 _6 N9 Q                when 16 then
+ V1 v1 U9 L' B/ r                        print "Yes";
6 Z1 C7 X% h/ ]2 T. }( c                when 32 then
7 R% H  }: X( D2 ?$ d' [. Y6 c                        print "No";
* W0 i& U' B7 p8 ?/ d) G) e8 P7 y3 G                else
' g' J+ Z: B  n5 O                        print "Cancel";' }( |; A5 {1 R# X
                end;
5 W( ^9 N( l$ ?        EventController.stop;
3 O9 m' s6 O) @0 ?end;
0 v1 y, A/ }2 k+ w) C5 v! u# e9 L6 GPartsTable.delete;
* r/ C, t  p' y) X; ufor i:=1 to Number_Of_Machine loop
; f. N" R* @4 E. X. ]! O, x9 P        for j:=1 to Number_Of_Machine loop) V6 E6 ?# ?/ z. a& @; T1 v5 P0 V2 O
                if j<i then8 ~" d/ j' L+ J& Z( y+ c4 ~
                        if D_From_To_Chart[j,i]<=0 then
, y: D% _8 G( u6 {$ U                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
" X6 C" g4 Z* ^! g8 S- i                        end;
, L- I1 Y) N! s                else4 k; W# ~, P. G- K
                        if j=i then
$ g9 d: l2 x2 e' _, J$ M                                D_From_To_Chart[j,i]:=0;* L* T! t8 `' u8 U2 c
                        else9 @6 I- \: F: D' Q
                                if D_From_To_Chart[j,i]<=0 then
8 M/ Y8 r, S% E. K3 x! q' F) F: w  f2 e                                        messageBox("distence<=0...,",50,13);
: B7 X! t; j/ B; r* ]                                        EventController.stop;
7 ?9 b# V- D1 P* E9 m+ I* P, i                                end;
9 {$ d' Y7 O  \7 I2 r                        end;
6 F! m4 f6 [5 j1 C9 T- n6 F1 ?                end;
3 w6 v$ X  \5 E! J; [) @: N3 {        next;
- l( p/ F' D* g% `0 x% ^# ~next;
2 Z+ V7 `9 _# S' |% n% q4 {2 p+ P9 B
end;
) Q5 p9 F9 D+ n: m7 I; i  b3 X# E3 \/ B0 g
    Lines :=0;
, C  Y3 q# ~0 C% {        for i:1 to Number_Of_Machine loop
" z. R5 P& W8 X1 l; d. j        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));8 a0 j4 P' J. x  j5 K- B  H& j: D
        MachineSequence[2,i]:=Rows;2 K% K# t) R; ?8 M2 j7 I* _5 s
            for j:1 to Number_Of_Machine loop
" {0 c1 J, a6 c+ B- |1 k- M                    if W_From_To_Chart[j,Rows]>0 then
$ P+ M6 n+ g, `4 U% C/ X( H                            Lines :=Lines+1;& ^' n; ^  C/ L
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));, R0 h( h1 l  L
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];4 E$ C+ k4 ?7 A2 l1 Q7 \
                        PartsTable[3,Lines]:=sprint("Parts");5 G" B8 I! A( U5 E" Z2 ]
                        PartsTable[5,Lines]:=Rows;' R% Q& M% l& l: ^2 a5 n- X% v: c
                        PartsTable[6,Lines]:=j;# k( v  N, x9 @
                end;
) j/ J( i% H- D& W        next;
6 r* t4 N. n/ h3 `! R# s: |        MachineName :=sprint("M",Rows);$ p9 f; i" s, q# ?
        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]);) T7 ^" P9 j" p% S# s' L0 i! }7 |4 l
        Machine.Name :=MachineName;
/ y7 Z; d8 J8 g8 E        Machine.ProcTime :=5;
! q# N: K$ x4 p  O3 k        Machine.label :=sprint("machine_",Rows);
, W2 h9 \* x# N% x& m, }        Machine.ExitCtrl :=ref(Leave);
1 M+ c" G  `/ d9 L5 L       
0 n7 v) I; [; N# E        BufName :=sprint("BF",Rows);7 P6 \  R  u7 P
        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]);3 b+ {8 H* V. `2 j8 b, F/ [' O% I4 @* W
                Buf.Name :=BufName;
! u& e2 J( b9 Z, z" |7 s1 X! r4 g' }3 A        Buf.Capacity :=5000;
! ^& F9 w3 J( \- W4 I- E& I        Buf.ProcTime :=0;
8 A7 z. M  X7 l8 y7 y4 }        .MaterialFlow.Connector.connect(Buf,Machine);4 V4 V, n' a7 J8 p4 G& j: _7 X) z" J
next;
: {  M+ u; ]2 r$ ~end;
4 j: [: K3 B; X: g& M
发表于 2015-11-3 18:23:57 | 显示全部楼层

回帖奖励 +1 金仿真币

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

本版积分规则

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

GMT+8, 2026-4-2 21:12 , Processed in 0.034366 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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