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

soso001

1 O' F+ {1 V9 v不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
2 Y# B7 o. V/ ]# L) H" C        j,k,nstep,c, scheduleteps,mincomptime:integer;
! V# K  h" `' E" k9 m9 I2 S3 b        M:string;
# \* H# G* ~- ^        selecTab:table[integer,integer,integer,string];
; d, `% z8 a/ T$ hdo
        initorders;
       
        scheduledorders.delete;
( M  N, o$ d* @7 O        seletTab.create;
       
+ t& y+ d- X% `9 n) @" I, Q        orders.initialize({2,1}..{2,*},0);
* G# b" O5 A- R6 W8 I        orders.initialize({4,1}..{4,*},0);
  H2 {3 j0 C! d% {. b0 ~7 }9 I        for j:=1 to numorders loop
                orders[5,j]:=orders[1,j][2,1];
        next;
        occres.initialize({1,1}..{1,*},0);
       
        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
: j2 A7 D, U1 B                selectab.delete;
                k:=1;
; I9 b& q, V, k: H) a3 _) N, k3 H6 z                for j:=1 to numorders loop
                       
                        nstep:=orders[2,j]+1;
2 j7 c7 {( n. c8 P( H6 ?9 f$ O                        if nstep<=orders[3,j] then
7 k' {, y+ M. A+ E& x- {+ b                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
; e2 E) L% r: r4 b5 l. `5 J& W                                       
                        end;
                next;
' F5 i* d) s% [8 p+ L5 G6 T                mincomptime:=selecttab.min({3,1}..{3,*});
               
                from j:=1 until j>selectab.ydim loop
* J. D: ]% ~- Z8 B                       
7 r9 R7 w6 p2 j                        if selectab[2,j]<mincomptime then
                                j:=j+1;
                        else
                                selecttab.cutrow(j);
                        end;
  k5 l8 t8 h. N0 A  G. Y, ?- m                end;
' y4 O% L( C8 a               
0 X2 R2 V. b" J) K. h5 W+ P4 v                j:=selectionrule(selecttab);
% o) F7 F1 J9 p6 Y8 H               
                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
                c:=orders[5,j]
, `" Z8 `' [! r0 T" D                occres[1,m]:=c;
) e7 S4 T; P% G: o               
                --jieguo:start,end,res,job,step
                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
, U+ s2 U3 S  a) ?                for k:=1 to numorders loop
                        nstep:=orders[2,k]+1;
                       
                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
                        then
                                orders[4,k]:=max(c,orders[4,k]);
                                --
                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
& w3 j& @% i7 m6 o                                --
                        end;
                next;
                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
                  
                then
                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
                end;
        next;
       
( d. S( j( O. r- l; f0 C        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
# }8 G9 o3 r' h  C! h        mygantt;
/ s8 v! D9 f5 ^; l        ens;