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

soso001

0 S5 N, s+ p5 K5 V- D" V$ B3 ^; T* K0 f
: V5 [+ h$ y! E2 Y& h2 ]不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
! E, R2 _! J3 \“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
% Z/ W) \. Y5 x0 ]" X/ z, tis
        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
! R4 [; L9 D- C; F, p$ i& X        selecTab:table[integer,integer,integer,string];
do
        initorders;
       
7 r% E" b  ?' O9 o4 R# K+ x* c# o        scheduledorders.delete;
        seletTab.create;
       
        orders.initialize({2,1}..{2,*},0);
: m- R) B0 u7 Q: [* ^, B        orders.initialize({4,1}..{4,*},0);
        for j:=1 to numorders loop
                orders[5,j]:=orders[1,j][2,1];
# _0 ?& p9 U3 p- ]$ X" x, ]        next;
. ?0 P; j' z, A  U  ?! D  u1 [$ Q        occres.initialize({1,1}..{1,*},0);
       
, i) |) o" A& B$ {' j: h' K4 ]        --XUNHUAN
& g* w6 u" j3 A8 {        for scheduledsteps:=1 to numsteps loop --
& W8 B/ {  e9 I& r! [% _4 H" I& b                selectab.delete;
                k:=1;
2 {: [. O  _% v9 f* ?                for j:=1 to numorders loop
4 m8 |# P0 b/ |2 ?                       
                        nstep:=orders[2,j]+1;
5 g: s8 b! g* V$ {) r! o4 ~                        if nstep<=orders[3,j] then
0 ^" O) ]& T# M$ {                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
. f$ }3 u. j( \) \# Z1 T9 ]" f) T0 I                                k:=k+1;
/ o/ x8 r+ a. b& m: T0 n                                       
                        end;
                next;
6 C( I7 x& k5 W9 s0 H( |3 U                mincomptime:=selecttab.min({3,1}..{3,*});
9 o% O( X+ I; W5 w               
                from j:=1 until j>selectab.ydim loop
                       
- f9 U! [) G( R                        if selectab[2,j]<mincomptime then
                                j:=j+1;
1 o+ i3 s8 }1 j7 j; Y                        else
( y. Z& h1 h; d4 G                                selecttab.cutrow(j);
' c% V7 y4 m( e; {4 B- R# k                        end;
                end;
               
                j:=selectionrule(selecttab);
3 T: ^# ^( o0 [/ v; P$ a) p               
                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
( d- M* S* }- p/ k/ A                c:=orders[5,j]
7 D1 B: {$ R1 Z' d8 E                occres[1,m]:=c;
               
                --jieguo:start,end,res,job,step
0 U$ h& D$ T& G                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
                for k:=1 to numorders loop
                        nstep:=orders[2,k]+1;
                       
                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
4 l# r! j. s+ M, C$ v( @! q                        then
$ K- {( ^' T6 P                                orders[4,k]:=max(c,orders[4,k]);
                                --
                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
                        end;
. [; V' s+ N* w; [* B, V) h                next;
                nstep:=orders[2,j]+1:
1 j4 T: {7 S2 x+ p- f7 R: M; B                if nstep<=orders[3,j]
" q$ G" R' @! b. I                  
0 C# {0 ]% R4 H) X3 S; B4 p0 G                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;
       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
) l, z( Q0 {/ F* P: K        mygantt;
        ens;