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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
        m:=0;
; V+ ^5 h8 J& C2 G5 F        no:=@.getNo;
* `: b4 l4 O8 ]) `$ z+ H        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
4 v5 ~# M2 o+ Z- y4 e# {$ K                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
- a, K8 o) m- b+ R                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
+ e7 P) A, V6 J. m                        end;
! l; ?8 ]/ C1 ^1 L) N) @                        i:=PartsTable.Ydim+1;--跳出循环
2 [' B. z+ A+ l/ c                end;
5 w. ]) N4 b/ A* s! A4 P                m:=m+PartsTable[2,i];
- C9 s7 @4 [9 E: M; {$ M                print m;
        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
0 Y. Q" ]1 X' I# m2 p% n: A$ c3 bend;

* h3 n- v, b' U+ `这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
) Q8 ~6 \6 n" y3 [- g( X不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
$ F4 d8 Q, d7 `, \! B# u) `is
- O; u2 c) q  F! ?        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
3 v; \- z7 i' R0 d+ `        m:=0;
( v+ Q& v. i( i. n; ]        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
7 g0 S1 W, L0 J        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
, w5 W& \4 T/ \  M+ g" K( X                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
+ s( ]* y( Z( m8 [2 E4 B                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
$ f$ Z' I& b; r  x                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
                        i:=PartsTable.YDim+1;
! \4 L1 Q9 d. h2 l+ E& R                end;
& v+ K/ ~5 e/ u! P                m:=m+PartsTable[2,i];
0 o1 ~: }& y$ w* p& P' Y        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
8 B& p" k/ @6 Y' `. o) D$ C9 a: a: j, i这个例子昨天正好看了，话说那本书的例子都很不错~
* _) b( B+ ^( K+ b/ U# [) }不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

) l3 d+ K/ Z! J0 a非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的