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

热翔啊

is
6 }% g& w' X1 z3 l5 |2 N: h        i,no,m:integer;
, M3 n$ z# ]; E6 d$ q/ a% p! R        Buf:object;
5 ^( L& G! Q+ U: L4 B; qdo
2 P. P8 Z) ~9 e# j6 S5 R        m:=0;
. y$ Z; @8 |$ D! L, u% I        no:=@.getNo;
; t4 K* S$ d$ `' I2 Q        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
( R2 y# t8 w; I                        @._From:=PartsTable[5,i];
( A- s; u4 }  C0 [  Q                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
6 m- d6 @1 X  r. l3 l1 s                m:=m+PartsTable[2,i];
                print m;
" S% D4 \" D2 x& J        next;
; ^" a9 I8 ^7 \! w6 O# _/ L        --先将零件送到From位置
" {$ p0 H; h  k9 ^) g        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
) r) @! C7 P( j" I3 l! L1 n        @.move(Buf);
+ g3 J  ~: C- w2 tend;

! e) m5 b5 \2 M4 ^, M这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
. B6 \$ Z* J7 x$ C/ E$ v" }不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
* ]5 c3 q( Q& i: cis
1 c& u; c  E% x, n  C* w% x$ U        i,no,m:integer;       --定义整型
( r" Y) R7 G2 @6 {$ L        Buf:object;            --定义object
do
        m:=0;
& z: G% u2 b) _( k# v        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
8 v' ?) o. I! ^0 q                        if no=PartsNo+PartsTable[2,i] then
$ P) G- T* e+ D# R                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
4 ~* X4 h0 I( b9 d
                        end;
                        i:=PartsTable.YDim+1;
. x9 N+ P) ]3 p7 ]6 }                end;
                m:=m+PartsTable[2,i];
3 u; F' y; M# A5 R  Q9 l7 T        next;
       
& c3 B* `# C1 T) Q        Buf:=str_to_obj(sprint("BF",@._From));
, w  f; p$ l5 t! o4 r        @.move(Buf);
/ e( b; I! U1 S4 l5 H: M$ D. Qend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
& c' b2 z8 F# @; o0 q+ T这个例子昨天正好看了，话说那本书的例子都很不错~
' U7 i6 h( m. D$ n不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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