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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
        m:=0;
        no:=@.getNo;
' {0 Y8 Q; F  o' `6 [5 Z        for i:=1 to PartsTable.Ydim loop
9 R: \+ Y* ?! S+ u% ?( d) a% A5 ]                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
# o8 @) H" z9 S! w) i9 V                        @._From:=PartsTable[5,i];
+ a0 N4 k  d1 p) w9 ^" b                        @._To:=PartsTable[6,i];
" A. t9 R) j: M" H! q                        if no=PartsNo+PartsTable[2,i] then
' t- j* k6 U& x$ f* I  C# n                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
/ u$ I8 V7 Q$ h2 D                        i:=PartsTable.Ydim+1;--跳出循环
) u! h& U7 P  s1 n4 D3 i                end;
0 f# _: H: ]8 P; _                m:=m+PartsTable[2,i];
                print m;
/ T: q6 R4 {! w9 E# l3 z, |        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
, O$ E, x) X' a        @.move(Buf);
& M* B2 v3 I6 G0 Iend;

+ _+ ^' ~9 \; ?' R$ Y5 v8 Z  u这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
" C- }; @/ G1 \# L不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
$ f( Q7 s" [7 S- }5 s" J: q3 \9 E$ O        Buf:object;            --定义object
do
        m:=0;
2 \# {) N& ~3 f  ]" v9 [: W        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
) c8 j* I  p6 {) Y$ j/ b                        @._From:=PartsTable[5,i];            
* G$ e: q4 `) V$ f! y3 C. a8 G                        @._To:=PartsTable[6,i];
* ?% f7 f1 ?8 g% Y# L                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
% U+ r" h# D$ g9 u
; q$ P% E9 Q5 A& A                        end;
                        i:=PartsTable.YDim+1;
5 V2 y( v& J2 w! N                end;
                m:=m+PartsTable[2,i];
        next;
* b& C$ I6 ?# t' {) ^2 J       
, v  Q3 z: ^( ]2 v, O6 j; `        Buf:=str_to_obj(sprint("BF",@._From));
6 k; @8 T* T4 L4 y8 `# v: Q' ]        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
! @# B5 g* P3 N这个例子昨天正好看了，话说那本书的例子都很不错~
+ }8 I; ~3 G; [4 V不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

, D- ]2 y; N  z0 |7 ], p- \非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的