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

soso001

. ]- Y3 h0 z+ z; N' p
不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
7 O0 f4 l$ x5 P. Ois
; H) X9 q  W8 r6 U+ d        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
        selecTab:table[integer,integer,integer,string];
' Y8 I- \# h" Q) c* p! ]$ Wdo
        initorders;
       
        scheduledorders.delete;
        seletTab.create;
% _* i! |/ ~$ {5 f% Y       
/ f( Q+ p% P0 W1 t        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];
        next;
: g- s- ?( Z, Q6 \6 c" z' \3 `        occres.initialize({1,1}..{1,*},0);
       
        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
7 {6 N& k6 g6 Y                k:=1;
                for j:=1 to numorders loop
                       
8 \7 h: |2 J$ y& X3 g                        nstep:=orders[2,j]+1;
                        if nstep<=orders[3,j] then
                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
' L3 }- K( q9 k3 `5 J                                k:=k+1;
; }9 R7 I8 T8 \- b6 D+ M" B" X0 J                                       
* Q  u8 Y$ c7 U  Q) i/ X                        end;
6 [( v( a  \* G5 k0 R2 _; }% {$ x                next;
5 r$ w$ _, e8 M7 R                mincomptime:=selecttab.min({3,1}..{3,*});
0 q- e5 H2 n2 t2 |1 ~) Y5 t               
                from j:=1 until j>selectab.ydim loop
$ X3 w) y  O# u+ u6 O1 e                       
" r" r9 M) w& ~. d                        if selectab[2,j]<mincomptime then
                                j:=j+1;
                        else
                                selecttab.cutrow(j);
7 G& q  Y7 Z& B1 }; Q+ |                        end;
2 m8 ~5 V* d" J& e/ Q                end;
               
+ N7 g. W/ p; k                j:=selectionrule(selecttab);
- D+ ~) k5 p( o' t               
/ D) ]4 r6 C; b                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
                c:=orders[5,j]
                occres[1,m]:=c;
+ q( m! O! Y, j2 Y$ g3 u3 u  }3 D6 O               
                --jieguo:start,end,res,job,step
# p( N4 ~* J, i  S2 g                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
: L- O9 J, U3 P' T: z                for k:=1 to numorders loop
* j8 Z' }+ R, d                        nstep:=orders[2,k]+1;
                       
% @! ^) c0 b( p7 B( P/ C                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
) E+ h! S- b1 ~0 g; H( ?7 v                        then
                                orders[4,k]:=max(c,orders[4,k]);
                                --
/ D3 v9 ^  o  K: s" c4 u                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
                        end;
' J) B$ l7 H' I                next;
4 B; H$ S8 Z& u) |$ N6 T                nstep:=orders[2,j]+1:
# O* @: l1 M# i8 `  d' @1 d) h                if nstep<=orders[3,j]
; [3 {8 O4 {1 T8 H8 S                  
( a2 S; e+ e9 U3 z3 l( W7 c                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;
/ E8 X+ s1 c  Z" m  g        next;
0 n: a- r. l1 l( F       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
' m: Q! S" L9 u; g        mygantt;
        ens;