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

soso001

8 \; m0 r/ m1 S  k
3 j, [" x0 N( J& c3 H- D: f不好意思，打错了个字母，呵呵呵！
; P) m1 L0 D, `' u# v大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
7 g5 h1 P& n3 V! E: c+ kis
7 Y6 H& h! R, W. Q" d        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
        selecTab:table[integer,integer,integer,string];
do
8 c/ E% \4 N  ]' f1 h        initorders;
! h6 q, W2 B/ _4 }       
4 \7 S0 @6 O: i# B- ~        scheduledorders.delete;
        seletTab.create;
4 k, W9 q2 Y. E& J       
- h* ?9 ]% F3 Q        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];
# k* U, [- D& v! p( S% W) c        next;
9 y# J& `% }$ z2 Z, y8 I. p        occres.initialize({1,1}..{1,*},0);
       
        --XUNHUAN
6 j8 v: P' f3 N        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
$ A- j% H" k3 y8 r1 D" G. d, ~                k:=1;
                for j:=1 to numorders loop
                       
5 O6 F/ b) j! A6 x$ r3 n                        nstep:=orders[2,j]+1;
& D# q: x9 e/ S                        if nstep<=orders[3,j] then
+ K/ K, e# a. A4 i. e+ D+ e  J& M                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
# p# i' J  r5 j% @. m! c) }                                k:=k+1;
/ T9 M$ [7 X8 S/ d                                       
                        end;
                next;
. u" W$ F5 o9 Z1 S7 U. ]0 `5 @, p                mincomptime:=selecttab.min({3,1}..{3,*});
               
" ?9 B3 E' z2 \+ p3 E+ D8 X                from j:=1 until j>selectab.ydim loop
                       
) O3 n# J. J( z' Y                        if selectab[2,j]<mincomptime then
                                j:=j+1;
                        else
                                selecttab.cutrow(j);
                        end;
                end;
6 y' K5 b& f: F4 _               
' L  K+ K& m& R$ a# t  g& i                j:=selectionrule(selecttab);
               
+ P" B  L% P$ Q' Y+ g                nstep;+orders[2.j]+1;
4 C4 K' I) w! \- @( g. t2 `                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
0 }8 N$ {$ F3 L' m& Y$ D                c:=orders[5,j]
                occres[1,m]:=c;
               
                --jieguo:start,end,res,job,step
0 p7 m2 [/ H+ E- U+ A$ P                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
' i  r- z2 f4 c                           --
                        then
6 Z- o' S! u' ^/ l                                orders[4,k]:=max(c,orders[4,k]);
5 C2 U" |, o+ f                                --
+ X# i& r# @$ P; M7 U' k( ]3 @                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
                        end;
                next;
                nstep:=orders[2,j]+1:
# M; b4 @5 m7 A$ e" C  F/ l0 d                if nstep<=orders[3,j]
                  
                then
1 I; Y0 e$ l4 x5 ^: E: U                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
' {- R$ N5 E$ L4 @                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
                end;
        next;
0 [6 M2 ?/ r6 {# {4 j0 v       
3 y9 M& G" y/ J; K$ l$ F8 a        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
        mygantt;
        ens;