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

热翔啊

is
        i,no,m:integer;
) Q( q9 K/ q/ {2 B        Buf:object;
do
5 y6 {1 s- O1 u. G& s        m:=0;
6 g" D* D! C' D$ l, v        no:=@.getNo;
+ ]4 o+ {' z5 Q4 _1 A; _( u        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
' a. p* ^+ ?/ ^4 s  d                        @._To:=PartsTable[6,i];
6 m* V8 I; e" ~" I+ {                        if no=PartsNo+PartsTable[2,i] then
, V% r4 Y6 L+ ], e% P0 n                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
4 L3 P2 d  D9 Y$ z* v9 b4 O                end;
                m:=m+PartsTable[2,i];
( ~" o1 u1 D' g                print m;
" {3 l6 W' d* a& ~. U$ I9 V        next;
7 ?! Z( b/ X* L% [7 L0 z; j8 s        --先将零件送到From位置
) l4 p9 u& c8 s3 G- T# w2 @! V        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
( j' k* v1 x3 w        @.move(Buf);
end;
8 [% u+ ~8 |: h$ Z2 L% E4 r0 u, \% {
6 D$ ^9 e6 D0 v+ }3 l7 Z& J5 v+ x这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
9 _, C* i: v8 r0 {1 U2 B  `不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
5 _: y- u9 i% y5 Ois
        i,no,m:integer;       --定义整型
7 v( S; T, o! ?% I- V; m3 B; O7 \        Buf:object;            --定义object
% y6 M( o% _9 _/ E9 s) E  vdo
        m:=0;
& v6 p5 a. V, d- I        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
; s! G& b; ?. L# A5 \, D" v        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
& x1 O( }+ d$ N- `; D' |                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
( ]& p) E" E8 p8 }% b                        @._From:=PartsTable[5,i];            
7 [0 n3 L! H8 {5 Z                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
. I& f+ g  C& I6 _4 a% w( Z                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
6 g$ D8 W. ~+ v* h: f3 ]       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
5 @2 Z6 r- w; @9 `end;

热翔啊

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

非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的