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

热翔啊

is
        i,no,m:integer;
% S; W0 ]# ]) ]" \. c% O8 a* s        Buf:object;
do
; }2 K2 g$ Y8 u7 i/ C1 Z' R        m:=0;
6 l8 ?1 s9 ?7 N9 u; ^        no:=@.getNo;
. }. d; L1 a# u- }        for i:=1 to PartsTable.Ydim loop
% |1 u+ e# }1 ]$ {                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
1 p" _8 V4 k1 h+ m; z& d& `5 i0 H                        @._To:=PartsTable[6,i];
3 R9 n* E* S0 T; O  A5 B7 P3 ^                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
( N; v4 y$ J3 _: Y                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
6 u6 T2 {3 R( S8 D; T                end;
6 I4 s7 Z6 X" A+ V                m:=m+PartsTable[2,i];
, f, x( m9 Q) ^8 }8 Q$ W1 j                print m;
        next;
- @6 V( U7 U3 u        --先将零件送到From位置
  x( b2 ^6 a+ `/ w0 K        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
- L  `0 i- n* f# X+ R- M0 }& X. y
2 U) f7 E% G1 D: `* s' U# M2 e" x+ E7 j这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
) u, }% Y% |* P& A        Buf:object;            --定义object
do
6 I4 t# N1 o/ i        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
3 t5 a8 b9 R; i, a8 }        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
" v8 f; P- ~$ L6 d$ x; J2 W# l                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
; E3 T1 y* v$ H( }                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
3 K: S: M% @" J
                        end;
7 L2 g3 L9 \3 H. v% j4 J/ a% X                        i:=PartsTable.YDim+1;
                end;
: ~/ M% O7 h* [6 e6 e                m:=m+PartsTable[2,i];
( c( e2 ~( ]* J. ]$ y' v0 v. A1 H        next;
       
. Y: h" C! X$ j1 i! `        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
. m+ o1 I; z6 b+ Rend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
* H' _! Q$ f7 m- s这个例子昨天正好看了，话说那本书的例子都很不错~
( P( y+ B. E/ p& z) r' E7 z8 Y- J不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

; b( |: W4 D0 J! h( U非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的