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

热翔啊

is
        i,no,m:integer;
) x5 t* t9 V8 ^. v6 g        Buf:object;
9 {% u: r2 U9 u% P, Kdo
  D5 y0 c9 n6 v2 ^- f* R8 {        m:=0;
  [* p, \! E+ \; `! L1 V: x        no:=@.getNo;
        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];
                        if no=PartsNo+PartsTable[2,i] then
1 \5 s7 M+ Q8 e* Q  o6 u                                PartsNo:=PartsNo+PartsTable[2,i];
% d- J  D2 V" |5 j8 h! C' c* Z' {3 l) I2 P                        end;
: i8 z3 C7 h! W" P* O' V' u                        i:=PartsTable.Ydim+1;--跳出循环
4 c. W2 c2 R1 q: _0 @                end;
                m:=m+PartsTable[2,i];
' [  v& s7 m9 y/ o/ ~' i% B+ g. z                print m;
% `, w# O" q  f8 A2 B        next;
9 ]7 a4 _- b; ?3 P* w        --先将零件送到From位置
" s3 T2 l" `! m( U/ A2 {( l- E, e        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
) Y. y% N' ]8 u6 n( Y5 X        @.move(Buf);
" O5 g8 b, c. ?% l  X5 Z0 gend;
- f, |& t( K4 K$ }  O; a$ _2 u
; _. |5 H+ x3 [- x6 G$ S+ C  B, E这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
0 c' y: _  R6 X& T$ U不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
7 Y0 ^9 D3 C0 w5 x2 E1 b        m:=0;
0 I9 \! K4 V* [7 j4 C( p( B        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
0 D' p# f0 ]% Z- D( G                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
2 s3 Y' x3 F, I$ \% _' ?2 c- I                        @._To:=PartsTable[6,i];
% g- p' H) A: }4 c7 a) n                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
: v7 y; H5 X& ?$ c2 `5 i                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
% z/ p: [. x# }  p       
: S/ H" U$ {5 R9 x, {7 Y        Buf:=str_to_obj(sprint("BF",@._From));
/ j7 Q. D" b8 C5 u        @.move(Buf);
end;

热翔啊

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

, |$ C1 ?7 w+ w' @$ f& T! Z( ~非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的