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

热翔啊

is
, x0 |& U+ U+ [  }3 W2 g5 Z        i,no,m:integer;
8 [8 T# }3 X3 V: ~7 I8 s6 @        Buf:object;
do
- x" ~- s& d5 F        m:=0;
. g; [$ Q$ Y% T  v        no:=@.getNo;
1 F& i5 Q& s- D- F        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
! _' ^3 y+ \5 q/ b                        if no=PartsNo+PartsTable[2,i] then
/ Q0 I$ t$ p* g5 _) E- ~                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
2 E! S9 n. i/ e$ J                end;
% s0 ?' k' @% E                m:=m+PartsTable[2,i];
" i0 j9 M& ]& [2 P2 @7 s# a0 u                print m;
        next;
! q& I5 h& w1 C1 O/ p3 S        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
. s. ^/ r0 A: f3 U) s        @.move(Buf);
" O, ^! e' d: e' l3 i1 E: M8 vend;

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

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
* g4 m1 w5 _; k+ d) q7 T& I不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
: G1 O% Z( t: \# |        Buf:object;            --定义object
  t. z; [+ k: w; Hdo
        m:=0;
  w  t: t! J; S3 V: c: C& j' B        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
" l* F* V4 a& ~: @' a                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
. B/ h4 r) k* y8 c                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
2 t% G- ]. g  J! O# G3 h0 |
, h4 x$ f& i7 K                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
0 Y# `' X1 M2 b5 A) }) d       
        Buf:=str_to_obj(sprint("BF",@._From));
% {& \) r5 X1 B, `1 D& G        @.move(Buf);
end;

热翔啊

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

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