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

soso001

) C& O# M2 o5 i9 P9 z$ B* h不好意思，打错了个字母，呵呵呵！
# g% w2 k6 P3 _, H8 v0 U大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
        j,k,nstep,c, scheduleteps,mincomptime:integer;
' n5 Z% |" f8 p        M:string;
        selecTab:table[integer,integer,integer,string];
do
        initorders;
       
; N) j4 J1 @$ y        scheduledorders.delete;
        seletTab.create;
/ |3 w/ X( a' r1 f       
0 }% t( d6 M+ Z& O( G8 b/ q; I        orders.initialize({2,1}..{2,*},0);
; |; A) q7 b' T5 z% Z        orders.initialize({4,1}..{4,*},0);
. o% Q4 O* m' l. l        for j:=1 to numorders loop
                orders[5,j]:=orders[1,j][2,1];
, ~& L3 c! P5 ^" t3 L! Q6 t        next;
6 ^& ~) F8 y1 X        occres.initialize({1,1}..{1,*},0);
       
        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
                k:=1;
4 k( I4 w1 d3 h/ x' H                for j:=1 to numorders loop
                       
" E" s3 Z$ Z( b                        nstep:=orders[2,j]+1;
. [7 B) t5 j/ B9 @2 t  p9 _                        if nstep<=orders[3,j] then
+ Z7 t6 ?; y: h4 x5 P& R# L                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
                                       
5 O$ `( e& `. P5 |8 u* }) N; w                        end;
* s- M7 s& _  m! s. w                next;
; ]6 l2 i7 x9 U$ p/ I# X2 u/ Y                mincomptime:=selecttab.min({3,1}..{3,*});
               
                from j:=1 until j>selectab.ydim loop
                       
' ^  h! a" f3 \, J% \8 H4 y                        if selectab[2,j]<mincomptime then
) H5 f# H! p5 U* b; q5 l$ p5 N                                j:=j+1;
                        else
                                selecttab.cutrow(j);
                        end;
: U  g* [( S0 r3 W5 l  q5 U: E                end;
               
: B2 j0 d" i, V- d9 o) ]                j:=selectionrule(selecttab);
5 j  ?  o* J: N/ s: l" G! w( M$ U& ?               
                nstep;+orders[2.j]+1;
* U. z+ h& @- e) H. g                orders[2,j]:=nstep;
4 s& ~5 [5 g) i2 ]                m:=orders[1,j][1,nstep];
3 ^1 g! c3 G9 }$ ~. y; J                c:=orders[5,j]
7 v/ y" N$ l8 P& x8 Q                occres[1,m]:=c;
- t1 K# _- r+ q7 b. O+ W               
                --jieguo:start,end,res,job,step
                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
9 n- |1 B8 D9 A! o( x; o                for k:=1 to numorders loop
0 y! `# C/ y" [  E7 d. }                        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]);
& T3 i4 F" |& d' t; L4 ~                                --
9 V5 |0 a- i6 o& H0 H9 B) B                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
, W) s+ v/ m0 I                        end;
4 ]4 `3 k. ~3 p6 |8 ~, o. G  _                next;
                nstep:=orders[2,j]+1:
$ d9 y, c; @  G+ a+ N: W% _4 a                if nstep<=orders[3,j]
: u# @8 }. z' ?% V- M' H0 Q, f                  
; X7 n! N" I3 C$ i/ ]) d                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;
# L/ w. }; _: F2 `. F9 m2 I  g4 l- u0 `       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
, l8 m0 F+ m) A# j6 p' b1 V        mygantt;
        ens;
- W6 q. I' [" g4 h8 e! ~1 O