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

热翔啊

is
# s6 z* J) h- Z1 y        i,no,m:integer;
9 S( s8 A8 D$ M6 n2 v        Buf:object;
do
# x9 W9 _2 \7 D1 D% ?* ^" v        m:=0;
; y" f& z( d  k  y        no:=@.getNo;
/ M' y; {7 V, a" |$ I" n        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
( \7 f" E4 R( E( K4 [. K                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
% ^2 E; T9 V3 I. y  o                                PartsNo:=PartsNo+PartsTable[2,i];
" G3 ^* E, p3 d* H+ p. `                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
2 ]" S" l3 g; h+ w8 J. R4 T                end;
5 }9 i( y- y2 Z3 l1 ^                m:=m+PartsTable[2,i];
: S. R+ |7 N! b$ ?& z$ L/ l- u                print m;
        next;
, K7 A1 _! e+ F7 O        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
/ \6 Z4 P0 Q. {7 lend;
9 ~! N5 B( ?" N/ o
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
$ a. j6 y5 y8 K+ l! D: Ois
3 p  s+ a2 l* B; v        i,no,m:integer;       --定义整型
7 u8 l. A/ h2 T* e6 o8 Y! `# ^5 x        Buf:object;            --定义object
: u6 y) u' K$ n* p% n) b/ {- Jdo
* N, J1 G- N3 M, [, J/ Y( I        m:=0;
9 D' _& T0 D3 [7 y' F        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
) [% t( g; f- i" m# q        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
  @+ M0 }$ \* `+ k  O( e6 R                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
4 i1 g1 h$ D7 M8 Z8 S( t9 u. Q/ I                        @._From:=PartsTable[5,i];            
5 Q2 z% p7 ^7 A7 e. Z$ l7 b, ]8 n- v                        @._To:=PartsTable[6,i];
$ x( f: J3 g: T+ U6 i& x0 F1 ^4 w7 J                        if no=PartsNo+PartsTable[2,i] then
, ~  N3 j; d4 |3 t5 I                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
1 K/ L! [0 n/ p0 D( b1 C( O
                        end;
$ l* N% _# p5 L                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
  j$ s; i) j& w' e- b/ K% f        next;
  z$ \) n9 H- \; e& t& c       
* M! t/ ~+ W3 Y; {        Buf:=str_to_obj(sprint("BF",@._From));
8 v) l5 N, F0 m  o9 e5 v8 r        @.move(Buf);
! U0 ?: n. E) L' h0 n6 K' _9 B- Mend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
# ?  H$ L! ~  h& `( }0 h. i$ V7 u7 l这个例子昨天正好看了，话说那本书的例子都很不错~
1 Q  o( Y( H1 |* `  u不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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