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

热翔啊

is
        i,no,m:integer;
        Buf:object;
) G: |8 N9 k1 D: h1 Ndo
& r$ Q# `- b3 X2 \; D6 D* C        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
0 g7 K' ?0 z: P                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
+ @* J& n# ~) j1 x+ _                        @._To:=PartsTable[6,i];
  e: F, d8 f! v* b" I                        if no=PartsNo+PartsTable[2,i] then
( W* k6 g2 s5 d$ f5 K3 ~$ {& T                                PartsNo:=PartsNo+PartsTable[2,i];
8 J, q3 Q' X4 E" M! c                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
) U/ f; J3 M* m                end;
                m:=m+PartsTable[2,i];
9 A( ^: c1 ]( A6 o( Q- h3 m9 h                print m;
        next;
. P% y* E3 `# m# a* f7 o* V- W        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
# m* x0 b& x' f8 V* |- z, v8 E        @.move(Buf);
& ~4 r! Z5 M6 C5 U6 T0 h% a, Zend;
7 J4 g3 I+ ?$ G+ A
5 m  w$ i( ]" ]& ~5 M这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
- c/ |2 p* _( M) F& I+ c8 g( X不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
! k$ E3 Q; ?% n( H" t' R; z( K6 y- pis
3 u8 j1 y; x0 z        i,no,m:integer;       --定义整型
% X$ q* q% U) g$ z, v' K- s5 ^        Buf:object;            --定义object
do
% Z! b( B* g( ?! g        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
- k: V; U8 R: f' r        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
* B: D+ c* E1 O$ f8 x; U                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
% {" O/ b3 V- Y3 U                        @._From:=PartsTable[5,i];            
3 P: F" X8 f' Z* c3 R                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
: }$ S9 U- E! d: X/ X                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
: O8 `" W" X, ~% u
                        end;
                        i:=PartsTable.YDim+1;
( t0 q0 X2 ]4 Z! f- w6 ]                end;
, k0 \) h; v8 a4 {: B9 C1 ?4 l" a/ @                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
' x: m( v- n) }' yend;

热翔啊

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

5 S* @7 Z. S' o& V% F( s- q0 e非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的