能不能忙帮忙翻译一下语句

热翔啊

is
1 j/ `$ e% B( {( x7 e. j        i,no,m:integer;
: ?/ q0 k$ u3 e5 t- F/ j        Buf:object;
do
        m:=0;
; [: D3 Y- _9 k        no:=@.getNo;
3 C) V7 t( o# T! K        for i:=1 to PartsTable.Ydim loop
2 L0 x4 x* m) ?$ h  l) ?# M                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
# b4 H. [9 h+ t( ~' s/ Z2 G                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
5 s2 c7 F  x  l' z: l                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
! M# b( ?. @! x  d. j: Z: A' K- E        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
5 H' i6 h5 r% N  L        @.move(Buf);
" s; R& k$ c3 Vend;
7 Z/ C' {8 O9 `1 F. V# h2 e. I% B
5 s: [) D6 R( F, Y这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
5 J+ a, P3 k8 Q) Q, Z不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
; ?- a1 C! W* s  r2 y; X& H9 s        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
2 m3 w* l1 r" n6 r( z0 B4 F) v" pdo
  P3 @' _3 ~  u; o  L& E        m:=0;
2 [) J' Z$ E# F( j        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
" Q" R9 P7 K5 e: t; a                        @._From:=PartsTable[5,i];            
/ j5 S/ L# Z% b* K* U5 V+ `                        @._To:=PartsTable[6,i];
& H: y" y8 L5 J, p2 N* W% u# z                        if no=PartsNo+PartsTable[2,i] then
5 w% M# _% G8 l' h' {) z! m                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
                        i:=PartsTable.YDim+1;
/ i% W& V( J/ Q7 L/ p; [( l! A                end;
; R; c5 p" a* _' S+ K  [                m:=m+PartsTable[2,i];
' J# D2 W4 U# ~) }0 Z" m) w        next;
. g5 s, A( Q+ C6 @! r$ `+ A       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
3 k0 Q0 u& d7 d9 |7 p. o2 R; S& }" T这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

) c6 O) P/ T- J! M, A3 j7 W4 n非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的