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

soso001

3 W; s" Y' q% ^1 V* N
不好意思，打错了个字母，呵呵呵！
大家好，本人em-plant新人，在看《生产系统仿真》第六章时，按书上的例子，写了段method，和书上是一样的，但总是提示
“行19中错误，循环计数器必须为整数类型的局部变量”，但我的全局变量是 integer 类型啊，不知道怎么回事，求帮助！
7 E7 y3 O9 P/ L) R2 u( Qis
        j,k,nstep,c, scheduleteps,mincomptime:integer;
        M:string;
        selecTab:table[integer,integer,integer,string];
do
- F) X+ e, B% A        initorders;
       
        scheduledorders.delete;
        seletTab.create;
  X; _# T. t6 K       
        orders.initialize({2,1}..{2,*},0);
        orders.initialize({4,1}..{4,*},0);
) y2 y$ T; R% b0 z6 o4 [$ l        for j:=1 to numorders loop
                orders[5,j]:=orders[1,j][2,1];
9 Y3 ]* `) ?9 J6 c) @6 f) O5 ~, [6 a        next;
        occres.initialize({1,1}..{1,*},0);
2 Q1 ]. E  [1 s  i' ]       
; A/ [  I% S  P# a( s: n. A- B3 k9 Y        --XUNHUAN
0 {# u/ ^, O7 d        for scheduledsteps:=1 to numsteps loop --
                selectab.delete;
5 B- j* X  S* a8 P+ B& \5 U                k:=1;
                for j:=1 to numorders loop
5 \: j1 D2 w& U7 }' G. o                       
0 l' z8 T1 z+ V! K                        nstep:=orders[2,j]+1;
0 r! K9 [& `- e9 p, u. \& a                        if nstep<=orders[3,j] then
  p) u5 _$ O9 Z3 {                                selectab.writerow(1,k,j orders[4,j],orders[5,j],orders[1,j][1,nstep];
                                k:=k+1;
                                       
                        end;
                next;
6 l7 a3 i' {; S1 [8 G7 Y                mincomptime:=selecttab.min({3,1}..{3,*});
$ H+ k2 h" \  N8 ~9 `: G- Z               
) v# \7 ]4 n& Y# S                from j:=1 until j>selectab.ydim loop
0 @9 ]/ K1 O  ~, P5 d4 a                       
! d7 f0 S( o6 ^1 \* L! W# G; S- e                        if selectab[2,j]<mincomptime then
                                j:=j+1;
                        else
. }: R3 y% D4 a0 T! J! k                                selecttab.cutrow(j);
* h, w* W2 Z! F6 ^2 M; {& M. P                        end;
6 u# b# f' [* z                end;
! q3 n) ^0 Z% d  c: i. R/ L               
                j:=selectionrule(selecttab);
# o) [1 S8 f4 B0 \% x; i! L               
                nstep;+orders[2.j]+1;
& l$ q9 E( U5 R0 }, [# N& G                orders[2,j]:=nstep;
                m:=orders[1,j][1,nstep];
* p- y9 v/ \6 Q  b8 }                c:=orders[5,j]
                occres[1,m]:=c;
               
                --jieguo:start,end,res,job,step
                scheduledorders.writerow(1,scheduledorders,orders[4,j],c,m,j,nstep);
                for k:=1 to numorders loop
                        nstep:=orders[2,k]+1;
3 l7 B' x/ ], J! q5 S                       
2 d2 x6 a# M  w) g* A$ F! T1 A                        if nstep<=orders[3,k] and orders[1,k][1,nstep]=m
9 D4 G7 H) r( z- E                           --
                        then
7 ?' }# |, n% X" Q                                orders[4,k]:=max(c,orders[4,k]);
                                --
2 l$ g! B5 h6 i& b, w% ^8 e                                orders[5,k]:=orders[4,k]+orders[1,k][s,nstep];
                                --
                        end;
                next;
) O2 \- D# V% u: w5 p% I                nstep:=orders[2,j]+1:
                if nstep<=orders[3,j]
, H# w+ c7 N! i0 s+ |! s                  
; s/ f1 f' A* H9 [9 `8 p) }                then
" t8 H# g2 D$ Q$ C3 Z0 R                        orders[4,j]:=max(c,occres[1,orders[1,j][1,nstep]]);
: m: B8 O0 [" G; t; q7 v: M                        orders[5,j]:=orders[4,j]+orders[1,j][2,nstep];
' Y  k) w) X/ C0 A( s                end;
. I. R/ g( {1 g& `# s' c        next;
2 [* K1 j6 Y; R: G- k1 D       
        print"ready.duration of the schedule:",scheduledorders.max({2,1}..{2,*});
        mygantt;
        ens;
" T& \4 n( ?$ d; F. P$ s5 X