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

热翔啊

is
        i,no,m:integer;
: F  Y0 F$ Y; N8 c9 ?. T        Buf:object;
do
        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
  B7 Z4 X1 x$ _  c0 Y  i                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
  w9 \$ x/ ]4 Z0 U                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
1 e( H2 L! S# ?! V* X1 P                        if no=PartsNo+PartsTable[2,i] then
7 g/ _$ w5 |* G, A                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
# g4 p' Q1 K& D8 A                end;
                m:=m+PartsTable[2,i];
; k# w! F$ a. D) K' a- ~4 l                print m;
& C& A1 ]6 Y( O% l        next;
3 n( j. v. |, \- b  o        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
! V) r" Y0 F0 \& ?+ \" d5 Yend;
0 S) u* r; F$ b9 C: |* h
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
1 ]% [: A7 \2 Z/ x+ k" I        i,no,m:integer;       --定义整型
! L5 A5 n: v* n, J        Buf:object;            --定义object
( V  r- M; C8 f+ u4 ]) \: edo
( q6 n% g& J1 R/ v        m:=0;
; F( j0 F; ]0 o: F' j        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
) t# G  v% c2 v) p5 k' m        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
' @0 t, `* A; H0 n4 f, F                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
/ x0 A4 c+ }2 z; W                        @._To:=PartsTable[6,i];
5 D1 N( P4 m7 e0 G. r& z$ A                        if no=PartsNo+PartsTable[2,i] then
! O2 X8 V! E; l$ t                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
" Z1 c& O  C$ o) g" u. {: p
$ B; Y$ O: }6 Z  U: Z! X( b                        end;
; N0 C. \2 t* h! D; J  k! D8 C                        i:=PartsTable.YDim+1;
7 L; r0 j  ]& n& g' j                end;
                m:=m+PartsTable[2,i];
        next;
: o7 `. p. G+ P       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
. l3 M* k9 {, o3 }& A) Send;

热翔啊

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

) y+ n3 m$ N7 k+ Y8 c6 ?" b( m非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的