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

热翔啊

is
        i,no,m:integer;
        Buf:object;
4 i. B8 N: f$ w* P9 _do
  O2 ^# N1 {( p+ b0 u  X5 }        m:=0;
" \) W+ w$ h  @5 o; G; s9 z        no:=@.getNo;
4 T$ Z+ r8 i: O4 Z5 z  _; t        for i:=1 to PartsTable.Ydim loop
2 A$ w! W$ ^: b, K' Q                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
' V% w7 L, R6 Z  U9 Q  Z0 @                        @._From:=PartsTable[5,i];
0 L( ]- }0 p* ]' L                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
6 b8 _% ], Y6 v* y                                PartsNo:=PartsNo+PartsTable[2,i];
3 B$ a6 K% r) @5 ^7 F                        end;
8 N1 X5 n( }: X6 f5 x1 {/ H3 [                        i:=PartsTable.Ydim+1;--跳出循环
                end;
  e* e3 ?; E9 _1 d( g8 E                m:=m+PartsTable[2,i];
) p3 d, n; O& q. L' r& k+ F                print m;
( W4 o! N1 t5 K0 d4 _        next;
        --先将零件送到From位置
) d" A$ T! f( _. g/ J' j        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
5 a2 H6 E) P' }' w- E% u        @.move(Buf);
% L4 N, I" T4 Fend;
" t- x) d; g3 Y' _, g  e9 j2 D7 X7 ^5 n
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
, o  }6 w# m+ [- R  I+ s; `不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
/ P5 _9 C' R" h        i,no,m:integer;       --定义整型
4 J: \. ?; C! i% x6 }9 y, e- r' U; v        Buf:object;            --定义object
0 H* w0 c: _+ Y6 ado
0 t% p: u$ _0 y$ f. q        m:=0;
$ J) D8 h: o8 r/ c        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
0 ]# }# @* f& n. {        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
) u% w" t4 P4 `                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
) n2 Z: f7 B" V' Z                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
( B0 _, O9 L9 P1 a5 E8 ]
: J$ h4 c$ D8 @- `" S                        end;
5 O/ k8 L5 L( ~& [8 o/ Q                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
5 P0 \/ ]3 i6 l. j       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
0 ~- M) _. t' [, W0 Xend;

热翔啊

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

" P/ M1 l% i6 k3 Q- z3 c% a  m3 X4 A非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的