求助-生产系统仿真-第六章例子 运行错误

soso001

9 @8 Y. o# D* g, ?  Y+ H( G
# p5 ]: ~6 P0 J5 f* m不好意思，打错了个字母，呵呵呵！
+ K- Y% @% V' I$ D$ L5 h, U2 ?大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
1 q/ |0 j# U8 @5 C5 x/ B“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
        j,k,nstep,c, scheduleteps,mincomptime:integer;
" B! F. A/ O) v        M:string;
. x5 ?0 {3 _+ q2 l; e+ ~        selecTab:table[integer,integer,integer,string];
9 _1 N* X0 @- Cdo
        initorders;
, ^0 \! u- G" T! K& W       
        scheduledorders.delete;
        seletTab.create;
       
1 H) N  S6 T  w- |7 x        orders.initialize({2,1}..{2,*},0);
        orders.initialize({4,1}..{4,*},0);
        for j:=1 to numorders loop
                orders[5,j]:=orders[1,j][2,1];
+ Q# H2 s7 u% ?, P  }        next;
        occres.initialize({1,1}..{1,*},0);
& h7 ]9 E3 ~' \: ~7 `$ w* i       
        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
3 _* j: p9 ]; r1 V                k:=1;
( A. [) t/ A9 R+ a! C                for j:=1 to numorders loop
                       
+ c, j* y. z! R* U' m. o                        nstep:=orders[2,j]+1;
7 D; _' x9 v3 d% _* P0 |) Y( ^                        if nstep<=orders[3,j] then
                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
                                       
' R( \& N7 t; p$ J) p                        end;
9 _+ p  `2 l& H" D                next;
+ K8 l& M1 o) @; H* X                mincomptime:=selecttab.min({3,1}..{3,*});
               
                from j:=1 until j>selectab.ydim loop
                       
% H, r7 z" ]: `+ A# _; S                        if selectab[2,j]<mincomptime then
: J) ]8 P; {5 X; [                                j:=j+1;
                        else
                                selecttab.cutrow(j);
                        end;
                end;
               
                j:=selectionrule(selecttab);
               
                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
                c:=orders[5,j]
                occres[1,m]:=c;
% i, D1 L/ k1 @4 Z) _               
                --jieguo:start,end,res,job,step
                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
                for k:=1 to numorders loop
4 Z/ w1 C# R5 ~, i                        nstep:=orders[2,k]+1;
" f& P( E/ v& H8 _$ H6 f                       
                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
1 n# m, f3 r% ^2 t3 ?5 L- N                           --
                        then
                                orders[4,k]:=max(c,orders[4,k]);
0 e6 h1 N6 e+ }2 c7 i! u                                --
' }2 p# ?5 }1 `                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
                        end;
                next;
                nstep:=orders[2,j]+1:
+ b2 K1 L+ d) M9 `$ |  b( d3 g                if nstep<=orders[3,j]
                  
                then
$ ]! I' z+ N3 V: }( ]                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
# ]' h  p) \. t2 u4 X                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
                end;
        next;
( p: Z. D2 d6 F       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
" O9 h) [5 m) c        mygantt;
* a: J; W3 K, L" c7 W        ens;