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

热翔啊

is
+ L: e+ _3 n/ q' u2 I8 v        i,no,m:integer;
1 ]3 j" s$ c6 t& r/ `6 P  F        Buf:object;
do
/ F2 V2 [0 |/ ]$ r" Y3 N0 N2 R        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
! x) d. z4 \& e" |# ]                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
0 y, @5 A) R! r' T8 U4 p                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
: t- I) r! Y1 A; F+ x                                PartsNo:=PartsNo+PartsTable[2,i];
! z2 y* w* P$ c' Z: e  F7 Q  ~                        end;
7 H2 V. E$ \% h- r6 R# r                        i:=PartsTable.Ydim+1;--跳出循环
7 R* J7 h7 |9 J& c9 o4 U                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
% u. M, _1 F5 P$ q        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
# ?/ }6 ]" }  ]  ]) @4 B
3 g4 {( b% W7 I2 r7 Z6 ?这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
" j) O% @+ P9 t; uis
) g1 u2 g) p5 M: X6 ]) G! V4 ^& t        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
9 u& C$ U( @( c( N: K- k9 Ddo
" ?6 W: P: \7 c: s        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
$ M( Z( h7 k9 Y& i% N1 c, T5 P( J- c        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
5 j/ a' a$ F" b* [7 {6 _, `( s3 j                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
% _, v2 d$ @' |) B3 K/ ]( A                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
/ v9 y- G  N: t9 V+ Q, f1 R                        if no=PartsNo+PartsTable[2,i] then
8 q% T& _& n+ F  R6 j! p0 i                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
' u1 T: B8 M# R6 ?
                        end;
                        i:=PartsTable.YDim+1;
: R% I! T$ m$ G) b; B$ e                end;
                m:=m+PartsTable[2,i];
        next;
       
8 E) t) I) w4 H2 A3 A& f' t        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

* \% E4 m0 Y6 J' F- P5 X非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的