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

soso001

' G6 G* Z1 b6 m4 Q, Y不好意思，打错了个字母，呵呵呵！
( P; [9 v" q4 \大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
" [8 I; x1 A. B4 _“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
: i1 J3 r1 s) ~" r4 o$ [7 P        j,k,nstep,c, scheduleteps,mincomptime:integer;
: x2 |9 I& D$ \% s6 X        M:string;
        selecTab:table[integer,integer,integer,string];
do
  M8 m) t' ~$ t) o3 o        initorders;
+ S0 h2 K7 J: n4 T' r7 q5 o       
        scheduledorders.delete;
0 {0 k. U; i5 z        seletTab.create;
       
        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;
% z1 p" h9 r' D5 P+ |        occres.initialize({1,1}..{1,*},0);
       
# s. i0 ]$ x, V9 ?7 f2 E. m        --XUNHUAN
  A7 V4 F& f" U, F1 r5 N        for scheduledsteps:=1 to numsteps loop --
0 Q9 B9 J6 p# H% ?                selectab.delete;
                k:=1;
                for j:=1 to numorders loop
- ?$ [. ^* H2 Y1 K# \. C                       
                        nstep:=orders[2,j]+1;
                        if nstep<=orders[3,j] then
' }  `) w7 p7 k                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
- c0 f% [% r7 B9 t2 ^* ~! g8 y; C                                k:=k+1;
. |' L; I8 S( O( H$ @0 ~                                       
                        end;
                next;
                mincomptime:=selecttab.min({3,1}..{3,*});
               
- C! d1 D. t2 V, D: P* ~5 t                from j:=1 until j>selectab.ydim loop
                       
& |1 v# g1 X0 ~8 q. g; L4 x                        if selectab[2,j]<mincomptime then
                                j:=j+1;
! b. o9 b  P. x7 b                        else
, v% N0 O9 S0 b: p" t* @                                selecttab.cutrow(j);
                        end;
                end;
               
                j:=selectionrule(selecttab);
               
' M/ m3 x5 v7 `0 Q9 o6 m! k                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
$ \! R. _( [7 C7 p9 ~                c:=orders[5,j]
                occres[1,m]:=c;
               
" w/ n$ U6 ]3 {" \) c* Y                --jieguo:start,end,res,job,step
                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
                for k:=1 to numorders loop
0 ?& c5 ^4 _8 S0 o7 E! e                        nstep:=orders[2,k]+1;
                       
5 b2 Q5 s1 x# n. S! ]                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
                           --
) p/ B; H+ ^$ Q* v                        then
                                orders[4,k]:=max(c,orders[4,k]);
                                --
: J+ I% ~- [% g2 Q+ l1 s7 `! }. R                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
0 d- n3 F6 l$ }& G+ W' A# h                        end;
5 g: Q! t4 Q: f8 e, n                next;
6 P9 h5 p3 c# n4 l# @  ]7 J2 i3 _                nstep:=orders[2,j]+1:
+ m( D8 d2 c# f- i1 f8 B                if nstep<=orders[3,j]
                  
. r, f  |# N3 ?4 e; b9 r                then
- m) M/ Q% X* Y                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
0 A* p4 J) [" C( _9 A" _) e                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
# L1 z; u5 U5 V2 W" K( `" ^% H4 j                end;
        next;
. I9 e) a# ~0 S9 f       
' [/ m% h5 g- d5 Y/ V6 O7 q        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
* `2 }. b% \# e2 A8 H3 _; m        mygantt;
        ens;