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

热翔啊

is
        i,no,m:integer;
( b: j, Z: F: l. x( R        Buf:object;
( p- N; C2 ~: m2 ^do
3 y: t2 n7 g9 a2 s% F2 @) C# ]        m:=0;
) Z1 D( d3 I4 P4 H- h2 s- }3 |        no:=@.getNo;
. r- L) O- q4 y2 `/ U        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
# @( z  v4 p( p; q( g  y                        @._From:=PartsTable[5,i];
( o6 }4 f5 K- s6 X% M! H                        @._To:=PartsTable[6,i];
2 p. a! c+ W; `: N0 T( t- H9 g                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
' ^2 A0 ?3 T  E3 ~+ s* i1 H                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
" n" [% P$ ]* s1 z5 T        next;
; f, u6 d# i8 _1 C% r- p0 L5 k        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
; s5 J# i( q* a        @.move(Buf);
9 T: O2 x8 ]+ O0 B5 \8 }end;

这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
. D- M. q/ N" ^; P7 d不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
9 u. H; w4 M  Z" d  z1 C8 G        i,no,m:integer;       --定义整型
# Y+ }1 A5 C% E1 ?# V4 c, g        Buf:object;            --定义object
do
        m:=0;
2 C* ]1 @8 q6 {. E" z+ I" e% m# m, D% M        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
. }+ x- A5 L7 V( E                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
# |+ V' ^! n4 A, A2 _                        if no=PartsNo+PartsTable[2,i] then
9 j: y4 A/ J. w. p6 E                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
9 F5 ]% k9 x2 L4 i
4 @) W+ M. `2 u                        end;
                        i:=PartsTable.YDim+1;
9 h6 L6 v: I8 c6 O  B+ P) K                end;
                m:=m+PartsTable[2,i];
$ q" R5 e) d% e) k) e- X% S& I, W% |        next;
( `3 T1 e- @2 [$ _3 ~) e! y7 k: `       
        Buf:=str_to_obj(sprint("BF",@._From));
$ g* ]7 f! t4 c, F1 a* h        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
9 ^# g9 M6 n" l. @+ w这个例子昨天正好看了，话说那本书的例子都很不错~
1 G7 ]$ A; q, B/ O% {不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的