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

热翔啊

is
        i,no,m:integer;
  k% G( J9 N( s        Buf:object;
do
        m:=0;
0 g5 d4 B3 A" g9 c- L        no:=@.getNo;
; i$ E9 Z- B2 Z        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
' T, N/ t/ Y: C% ~3 Z9 m8 T                        @._To:=PartsTable[6,i];
9 Z" @! S" k) @6 D( U/ G' @4 N                        if no=PartsNo+PartsTable[2,i] then
8 t6 h; l3 |2 o' z                                PartsNo:=PartsNo+PartsTable[2,i];
9 |* j. ]$ [1 Y                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
) l6 c: s* O* P6 M                m:=m+PartsTable[2,i];
- V1 }2 ?% z0 W% B; X                print m;
9 }3 k& h; \9 r8 X! Q        next;
$ F8 e: Y. t* d) }+ C0 p        --先将零件送到From位置
. C4 E3 l; S. M: G$ H7 C        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

" u/ Z: d% t: f- ~% s$ U' Q这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
8 ?4 F* w+ [0 s/ t" b" v不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
( x: L8 ?4 H* K7 i! t: e2 P        i,no,m:integer;       --定义整型
% A6 _0 ?# e6 O  A, Z        Buf:object;            --定义object
6 t. L' E/ d! D' A" v( R" z' xdo
        m:=0;
7 L! p  ]" _7 a. I; x  ^        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
. a  @- i. M+ ~: A4 a) q2 r( O        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
+ U( B/ s1 I4 D) G5 h2 Z1 q                        @._To:=PartsTable[6,i];
% I/ P: y9 J! q" Y* u) N. [# w3 v4 Z                        if no=PartsNo+PartsTable[2,i] then
. W% K( }+ O/ g, c8 m                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
9 {  W8 M3 @/ U$ O$ u/ p
* V# k4 f& E0 X/ |. o  ]8 j                        end;
6 ?# u2 G% A9 T. N& J9 |+ O3 K! Y                        i:=PartsTable.YDim+1;
3 f1 _& z8 R, \) _" z* p5 x                end;
, i' k$ T8 F; h; t0 ^4 y3 X                m:=m+PartsTable[2,i];
5 Y) O+ B2 S# p0 L- @& e" k        next;
) n' a% D0 s' P1 _" y       
        Buf:=str_to_obj(sprint("BF",@._From));
" V; I0 \$ S3 H5 }$ h        @.move(Buf);
5 ?; a6 V' m* }, Z3 {end;

热翔啊

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

2 t6 J1 k9 D# ?" g' L- R, c非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的