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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
- E( g2 S( V+ n! b) C; F( ~( e        m:=0;
+ r: E  P  f; u$ U  p% c. P        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
5 n$ t  @  P4 i9 b1 _& s                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
) c& G. L4 N% T* L# D4 ?5 G( ^                        @._From:=PartsTable[5,i];
; q4 w5 }* a' z! w" ~                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
$ \& A  a6 `7 R1 ~                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
% t+ r+ m% s6 u. g/ ~9 H                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
( d7 I% _7 c% Z# \1 j        next;
/ }  W9 \% z5 p% ]. u" C) V2 d        --先将零件送到From位置
3 V. i( h; s1 F4 i$ Q5 @" X2 z        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
0 Z' M4 |# t5 \  q9 _9 R- E
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
2 i2 T. }: ~( e7 U3 \  m7 H+ Y* y6 y        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
$ i8 D5 V2 F7 _4 qdo
: L/ e( D) w0 R3 k* M        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
) T7 h& V( |) T) M7 D+ l6 W        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
7 P& ^) T- }, P3 B: T                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
8 C# B! K6 ~0 X                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
  F* {+ |9 j) O8 }' N9 {6 a; _                        if no=PartsNo+PartsTable[2,i] then
3 ~" S2 i) v/ z  F                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
! Y1 Q" `6 K8 ^) Z7 F8 p) u$ N; x8 k" D
                        end;
; T! S& n9 Q% Z  P& O* g! \                        i:=PartsTable.YDim+1;
                end;
8 P) H5 b. t0 J                m:=m+PartsTable[2,i];
, z% Y$ w3 a, ]8 C, B        next;
' b) X) D6 C  U0 K* A" x       
3 p+ ?, N1 ?4 |/ l/ K4 n        Buf:=str_to_obj(sprint("BF",@._From));
* T$ j! c: r9 r1 ?; ~( |        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
0 h6 z. W1 l7 Q! ~" b) S这个例子昨天正好看了，话说那本书的例子都很不错~
8 O% T1 u( k  @* B不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

  M# Z1 {. t" B7 T非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的