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

soso001

不好意思，打错了个字母，呵呵呵！
% M% f" b* n+ E. O) D( n大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
/ Q" k3 Z+ T( V1 f4 x        j,k,nstep,c, scheduleteps,mincomptime:integer;
& [) \6 n# O- L( o0 O# r+ f) D        M:string;
. W% a* ^$ |& t6 C- M; B        selecTab:table[integer,integer,integer,string];
; r; a1 C3 E2 `" s& ^do
        initorders;
$ W9 [9 d% ~) E8 _. e       
        scheduledorders.delete;
! s( S8 f+ B1 o2 N        seletTab.create;
5 Q$ A$ M5 {' u8 u( O       
, A' r2 A3 s+ y- b5 O' l4 i% C        orders.initialize({2,1}..{2,*},0);
        orders.initialize({4,1}..{4,*},0);
        for j:=1 to numorders loop
' r$ U# l, j* c- S" U  j  e                orders[5,j]:=orders[1,j][2,1];
        next;
0 Q5 }8 z& ^9 j9 P        occres.initialize({1,1}..{1,*},0);
       
$ A. u+ b9 d% K" j2 _        --XUNHUAN
7 J4 y) G4 i7 a5 D& q# }: C) U4 B        for scheduledsteps:=1 to numsteps loop --
4 l. ?+ l) [4 S                selectab.delete;
* a4 a- J4 w! t1 \                k:=1;
1 O. d% Q2 \5 i! l9 G                for j:=1 to numorders loop
                       
1 C; t1 a: R& s& Q0 a                        nstep:=orders[2,j]+1;
5 J1 u' _7 r7 C, @                        if nstep<=orders[3,j] then
                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
4 L3 I7 K& a  {& S) O) A                                k:=k+1;
& H  p- t+ J* n& D6 Q. z% R                                       
2 H6 y) @8 @: y! N1 o                        end;
                next;
7 i0 C1 B0 e2 ~! q/ C* T( P                mincomptime:=selecttab.min({3,1}..{3,*});
( t1 ^* H0 Z! V2 g               
                from j:=1 until j>selectab.ydim loop
7 H  |/ J1 u( I; w2 @                       
8 }. a1 N! v$ |) E/ Z" R. t# V                        if selectab[2,j]<mincomptime then
; B. P8 {& k6 t0 x( c+ {2 B                                j:=j+1;
                        else
                                selecttab.cutrow(j);
                        end;
                end;
               
                j:=selectionrule(selecttab);
               
$ S/ f8 J5 I6 p1 _                nstep;+orders[2.j]+1;
/ W7 `3 F$ X0 R                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
                c:=orders[5,j]
. B' c7 j( z# a1 K( S. j/ g                occres[1,m]:=c;
& \- }% Z7 v) [               
) d& n% K/ y5 |7 s                --jieguo:start,end,res,job,step
- o& G4 g$ {! u5 A4 j                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
                for k:=1 to numorders loop
# S; ^* w+ |. k0 O6 F7 D5 l                        nstep:=orders[2,k]+1;
5 q4 Z' S$ S# v& J% a0 g& d                       
                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
* s2 }0 h$ y! ], j/ J                        then
" N' l7 q/ a. u( H, Q                                orders[4,k]:=max(c,orders[4,k]);
                                --
0 Z7 G5 u3 Q  [* t                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
1 e9 C; H: s: }3 J  k                                --
                        end;
                next;
7 s2 x+ }# a" q  ]  Q9 Z. ^                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
6 y" w5 y% t6 U" l: n9 S5 r                  
                then
                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
5 v) t8 o9 l1 M9 A                end;
1 U3 a: u+ b5 J3 Y/ _1 t/ w        next;
       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
! E* w- k; c- m! s4 d2 S        mygantt;
6 s8 J- G# h2 w9 |* A5 `$ a        ens;