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

热翔啊

is
. e! `/ a: _9 o9 p$ `        i,no,m:integer;
# d9 Y4 T% U! C, ?8 z; \        Buf:object;
do
        m:=0;
$ i/ }: H1 d; L  C. V2 p: I8 [1 I        no:=@.getNo;
) R( b; A; S  _+ U( u* I  U5 _4 B        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
4 R9 v9 q% T! o$ `. U+ i' b                        @._From:=PartsTable[5,i];
- B1 j; S3 h0 R3 d9 V* B                        @._To:=PartsTable[6,i];
3 v' Z9 }: Z3 y! f  t9 A: k! u                        if no=PartsNo+PartsTable[2,i] then
& x% F# @% X- s8 K  r% q0 t                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
7 b8 L7 F5 `( W$ I* b8 q1 {8 c/ h6 p                end;
3 E! l2 }4 G2 k                m:=m+PartsTable[2,i];
5 K! }! ^  [  L7 m8 x                print m;
        next;
  j3 t  z/ K5 D8 }! R: g8 Z        --先将零件送到From位置
  N% v4 e1 c4 g0 G# F' A( c! L' x  _        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

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

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
2 x2 x( R4 h: w3 K2 F% ?! X" D4 b+ o        Buf:object;            --定义object
8 d' C4 ^) }$ o. d: Tdo
8 ~# j( Q: n! l" V        m:=0;
7 [0 H2 n  z3 w8 e& W# [5 a% U. Z        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
5 d5 Z, w6 Q  \1 u. y                        @._From:=PartsTable[5,i];            
( }# g! F* q7 p. j                        @._To:=PartsTable[6,i];
# `1 L" R2 {& \' F                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
                        i:=PartsTable.YDim+1;
                end;
& @* \6 ^9 o; i& K6 {0 B                m:=m+PartsTable[2,i];
6 k; i# b4 x$ r, n1 I$ G, o* t        next;
       
" A; V- V. a5 E5 W2 d( C/ R        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
, {" q8 A( X" J- {& k9 c, a6 J  z& ~end;

热翔啊

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

# x; G+ N1 c+ @8 w非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的