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

热翔啊

is
: P1 A8 c$ P0 g' g6 j2 y        i,no,m:integer;
        Buf:object;
do
/ b" [" p- |* W! J  e        m:=0;
% C: C! r+ h" R  b3 D( f. I        no:=@.getNo;
! s& _2 S  ^6 S6 O. T0 X        for i:=1 to PartsTable.Ydim loop
9 @- d# {$ ]% b2 x! p4 z  d                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
( b# x- ^1 t3 z                        @._From:=PartsTable[5,i];
& O# \/ @& x& }7 j" T' Z: _. C                        @._To:=PartsTable[6,i];
7 n3 q; X# t: c8 {8 K- h( h9 i                        if no=PartsNo+PartsTable[2,i] then
) o) U6 ?3 P) B( L9 ~                                PartsNo:=PartsNo+PartsTable[2,i];
6 @( [/ u2 d  t5 m$ J/ K+ n! _' z                        end;
1 f" g% Z# q% x' a; ~                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
# R8 a( F$ M5 g! \4 s0 W6 P- g* q        @.move(Buf);
end;
' [) e5 Y( u; s, r  P
" D" x1 v- g# q. x; G- Y这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
) v4 v( b, v9 u4 K8 C: q+ M% v+ `4 r. D& o不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
% C: `. i2 f1 I; U        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
, i! @5 Z$ N) o5 `2 S0 p; c        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
: v, W% u; X8 z# W" W! [/ H$ J0 S                        @._To:=PartsTable[6,i];
, m- T- `" e4 Q! k% z! u                        if no=PartsNo+PartsTable[2,i] then
0 @! Q- O  v  M4 W                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
* a' d4 S! M* W- y0 Q
                        end;
+ H& f0 E% W: F% ~+ D                        i:=PartsTable.YDim+1;
                end;
" X% M) I/ l% B) d! f2 Y                m:=m+PartsTable[2,i];
( k) h$ A  Z' n6 U4 j) n1 U& m; ?7 z        next;
' _( I7 y$ n& n2 h       
        Buf:=str_to_obj(sprint("BF",@._From));
) i  {7 T. e% @" i        @.move(Buf);
1 T, t) n1 _) g* {/ O$ ?9 K3 i* w% w# Kend;

热翔啊

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

9 j8 a$ c5 S; j7 R. a非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的