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

热翔啊

is
        i,no,m:integer;
* g; ^% W9 ^* ~0 Y! _+ [        Buf:object;
( ~6 t; r8 p# r; B2 D* d2 Tdo
        m:=0;
        no:=@.getNo;
3 L; o+ y2 G. |9 z0 [        for i:=1 to PartsTable.Ydim loop
9 ~0 t5 D1 _+ C2 a0 U                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
9 r. V( U/ H% M" P, @( G" i                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
& n2 N$ J2 q8 d+ O                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
9 F) x0 [% Y8 S. |                end;
# B! H8 X( I6 j: z/ ~( ]* c                m:=m+PartsTable[2,i];
& E8 M% q# c' X9 Z$ f                print m;
. Q; s9 G0 P. ^  S2 k        next;
' y6 b/ p5 j7 M        --先将零件送到From位置
4 `/ ~; u; R! X) f. J& r: H1 ^* Y        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
, q7 T) x' ]* G, F+ [. r
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
# \! }; u6 c  ^# l9 G不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
: K( E0 G( o/ \* G        Buf:object;            --定义object
0 g1 I" I! o6 H7 g  \! M! o& cdo
        m:=0;
( I& Z  {3 }: J& o        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
" ]! W! i* P0 W                        @._From:=PartsTable[5,i];            
& \  q5 _# V2 U                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
  o7 B9 H# `4 K& V4 g9 |                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
$ G6 j+ O: Q$ y6 ]! m
8 E. V0 h9 R; t# N' K                        end;
& w- W3 W- r3 t) l" ?/ D4 l3 a5 e                        i:=PartsTable.YDim+1;
& _8 H" W6 S7 G; ~  q! S/ B9 t                end;
! w) L" T2 D: K. U- b! X                m:=m+PartsTable[2,i];
        next;
       
. e3 T: d6 r$ U6 O* o        Buf:=str_to_obj(sprint("BF",@._From));
* [; E; }" W! v1 v        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
: d1 N0 d, K' W/ R' m1 c* H这个例子昨天正好看了，话说那本书的例子都很不错~
( w- E0 c& v$ @; K7 N8 ?* v不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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