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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
        m:=0;
0 E  |5 p0 S2 ~1 N, g3 E% {        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
$ L* C2 [% M" ^/ ^4 n: H% W5 v                        @._From:=PartsTable[5,i];
. w" d( G' u6 k6 M: ^; z                        @._To:=PartsTable[6,i];
+ X1 V6 a7 c, h# u                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
0 R( C! t& w) M                end;
/ }5 Q  R+ L/ u; o1 b- A8 F                m:=m+PartsTable[2,i];
( x' \- v# E2 E, x, L  l9 |! ^4 Q5 _                print m;
# X$ ]% g; G( F. x  T% K& h        next;
. ]; W3 K" X( ~! t        --先将零件送到From位置
& x/ T, q4 ]' o/ i4 F( B        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
% h7 Y" h+ B* P* {2 g4 p) ]( E+ D/ c        @.move(Buf);
end;
8 ~8 U0 i1 e5 h7 D
/ a* |4 K5 I9 `5 [2 H3 _, \* y% ]: o+ j这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
) a9 H6 o" b0 F$ A/ G- ]is
* F. O" C" _( o) b! G- Z- l, l" ]. g        i,no,m:integer;       --定义整型
* U/ A5 }/ ?9 M        Buf:object;            --定义object
+ i# w9 Y2 \) }0 Q$ `1 B( ^; Udo
% G1 }- g  ~& x0 _0 \        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
4 I: l8 C' K# g+ \        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
2 I5 [% Q9 P2 O                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
/ [4 ~8 m+ M1 G                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
- b, B8 W. R9 c! Y; b
7 N" P; V3 i7 C) V* {# b0 A                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
" o# e4 A4 k. v5 @: G        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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