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

soso001

& p$ n' Z1 \% T" n8 X
不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
is
        j,k,nstep,c, scheduleteps,mincomptime:integer;
, z- `9 g8 F; K        M:string;
* _7 `/ q& g, T, \        selecTab:table[integer,integer,integer,string];
do
        initorders;
- F  I2 i# R- Y       
        scheduledorders.delete;
        seletTab.create;
       
# K, [9 {( B; {% y6 U' A        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];
& o* t4 y$ K3 U2 B% c5 L        next;
        occres.initialize({1,1}..{1,*},0);
       
2 X$ I7 o4 J6 N4 F8 d& d1 }' {        --XUNHUAN
( m& L# s% R+ D4 |: P        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
                k:=1;
) |# w2 s% v# \( w: F                for j:=1 to numorders loop
                       
                        nstep:=orders[2,j]+1;
                        if nstep<=orders[3,j] then
" N2 ^: d3 O3 S% [                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
                                       
                        end;
/ h% A$ x+ b0 q/ q* {# `# i; O: d" N                next;
                mincomptime:=selecttab.min({3,1}..{3,*});
4 C' |' w% f& E) M7 r               
7 O( `7 j" W" u' j                from j:=1 until j>selectab.ydim loop
                       
                        if selectab[2,j]<mincomptime then
5 i" H+ v6 n( j% P8 f6 ^( i                                j:=j+1;
                        else
% M6 g% k/ t) d                                selecttab.cutrow(j);
                        end;
                end;
               
$ S0 k0 q! V" @, T* Q                j:=selectionrule(selecttab);
               
1 {- T8 C! s. j4 j$ {$ k# t, v: a                nstep;+orders[2.j]+1;
                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
# S- G5 ^, f- u' ^; j& h  c/ s                c:=orders[5,j]
                occres[1,m]:=c;
               
' A" h1 j) u1 b                --jieguo:start,end,res,job,step
& S* Q" X6 t* s4 ^0 F& M1 x/ L                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
$ A9 w! ?# B/ `2 O3 y/ X                for k:=1 to numorders loop
                        nstep:=orders[2,k]+1;
% ~' q" v" W8 x$ S$ Q# L                       
                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
' S9 V( K- t! t, n1 x# c: ~                           --
! h& T9 P3 N- t$ N# k                        then
                                orders[4,k]:=max(c,orders[4,k]);
                                --
                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
5 p8 V( I  W1 ]$ h$ A                                --
                        end;
  h  Q) i; F* q5 u                next;
                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
. w4 Q7 J3 F6 w6 h, [$ |, @                  
                then
: i2 w4 _1 g# x5 ^& J/ S; g                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
                end;
        next;
" _  X0 o9 }+ v( }3 T9 Z       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
  C0 X  p' p5 s* r0 I( U; O/ [        mygantt;
3 r, q8 b3 P/ l  v        ens;