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

热翔啊

is
5 L* m5 |% t- T) D7 R: B        i,no,m:integer;
7 a. V4 U$ N# M9 ?7 v        Buf:object;
# w; O+ K$ ~0 |' ^* X: m8 vdo
        m:=0;
5 i) q1 j: \' O, N' o# O        no:=@.getNo;
; s: P- W& n5 e$ i5 M        for i:=1 to PartsTable.Ydim loop
# ]3 E  P) o8 A3 A                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
& Z; _0 J6 W" h% t6 `                        @._From:=PartsTable[5,i];
( c) }. q; u  G; c2 A, ^                        @._To:=PartsTable[6,i];
- R6 y/ s9 g+ L                        if no=PartsNo+PartsTable[2,i] then
% @+ V: V0 o( `0 D                                PartsNo:=PartsNo+PartsTable[2,i];
# j" m/ L! H( Z4 r                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
5 p& s; w* S# b& Z. [3 x                end;
8 J! o! c' u) s' n' \                m:=m+PartsTable[2,i];
0 z2 w$ x9 M# `5 f0 _5 v1 _                print m;
/ k. j- F& O  g( C" ?( R        next;
        --先将零件送到From位置
# ?( Q9 ?2 o' h; P5 a9 n        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
# g! J0 z. u+ R- jend;
' b0 d* G1 ?8 ^8 E! ]  O
9 ^% l( u+ L3 y2 j2 n这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
* V/ S$ k, S, X- h/ b* Z        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
3 E" g. `) B' p: n8 p; \# n# l7 y        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
) V8 q3 d( w/ l1 o  D$ z        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
" G" h3 R6 v& S                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
; ]2 m; N4 W6 ?* k6 }" q8 q# f                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
7 _9 A$ |% m6 m8 _" X/ [4 ?+ q! f
                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
/ X' B1 }6 K4 l       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

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