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

soso001

! t6 J5 w1 |9 p% a) p4 ?不好意思，打错了个字母，呵呵呵！
& ?9 X+ C9 r0 P$ L" p3 y: Z, R大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
0 B! `+ R/ l0 a" F“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
  B  B& T* o9 U  d, Iis
        j,k,nstep,c, scheduleteps,mincomptime:integer;
- R8 T4 t# I/ n+ ?7 F        M:string;
        selecTab:table[integer,integer,integer,string];
) z" U. [# u8 L6 e" q) K8 e7 Udo
        initorders;
       
        scheduledorders.delete;
1 D& b9 N! \9 J  [2 e6 S& t  _        seletTab.create;
       
9 c" {2 k& W! L* s  ^0 h8 x        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];
: A9 }2 m1 I) w6 _& O9 Y        next;
        occres.initialize({1,1}..{1,*},0);
       
( ^5 A& y& u3 K/ w        --XUNHUAN
        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
' F9 K$ [  z- e- Z( t/ P                k:=1;
                for j:=1 to numorders loop
5 L8 O3 r% K2 p4 t1 w' ~                       
                        nstep:=orders[2,j]+1;
                        if nstep<=orders[3,j] then
% Y, ^& ?: I  {: c                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
4 b: `" N" k0 ]/ u# |8 [9 d2 z: X                                k:=k+1;
                                       
                        end;
4 E& D& e: a- O% H( a) t" J                next;
- r: O: F9 h, E8 o# g0 Z5 U1 D  h                mincomptime:=selecttab.min({3,1}..{3,*});
               
                from j:=1 until j>selectab.ydim loop
                       
                        if selectab[2,j]<mincomptime then
) t% }  r) a9 L                                j:=j+1;
                        else
                                selecttab.cutrow(j);
                        end;
; ~9 d& H+ E: [! r                end;
               
                j:=selectionrule(selecttab);
- r- L$ E$ |$ h8 g" U               
                nstep;+orders[2.j]+1;
% b) Y/ h4 w$ L3 Y* H                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
                c:=orders[5,j]
                occres[1,m]:=c;
1 V. F* z( r, V+ @% w& F8 e               
2 A  Z/ @  x# g" z                --jieguo:start,end,res,job,step
                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
  I) m8 }: G# b* u2 A6 N                for k:=1 to numorders loop
3 v# x; j  T" i2 `+ ?                        nstep:=orders[2,k]+1;
                       
+ ^. n# N0 O( {8 j                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
& P0 U% \* \2 b. d6 v                        then
9 h0 t( t% |' r  w1 a5 a                                orders[4,k]:=max(c,orders[4,k]);
                                --
                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
1 P& c. v& a( M+ z+ \, w) z3 @: {                        end;
                next;
                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
( B. g2 S2 e$ \, ?% C- c/ y  H+ s+ M                  
' |) `* O+ E# L- |. m                then
                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
$ b6 M; N( z' e0 U# P8 Z                end;
  Q+ J6 a7 G) w: W        next;
: W! _; I/ }& ^3 g1 t; J1 s& Y       
' ]) T! P: U. r# P' B: O1 S7 w& p        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
        mygantt;
        ens;
, d; P* j9 h6 F+ ~