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

热翔啊

is
* J; ^; U8 ]- s9 e. c" D3 X8 }2 x        i,no,m:integer;
: e! h- B2 ~% \8 [        Buf:object;
' }) Y# p  l* Q% ~0 C5 Y) E$ Ldo
4 b" h  q1 ~. X$ Z, a        m:=0;
! _4 g* P+ j9 ~* b4 a0 u5 L) j( u        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
0 A" X0 c# l( q: _4 \# f                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
$ a% I+ W4 V( ~' \5 l                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
8 T7 U: X( \9 k8 }  B' ~                m:=m+PartsTable[2,i];
                print m;
; T$ u! O2 [: C9 I        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
& O6 V, f# F' ^# s$ L        @.move(Buf);
  F0 t& M8 {% {/ [- B2 iend;
) T, E% S1 e' ]& P0 J9 f( E
, I# |# G& O4 k这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
4 ]1 b% n! r: }. V0 z+ z不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
% x7 S: I& P- G# {: t) G' gis
- Q1 Y( q. D# k( g& ~& |2 b* H! R        i,no,m:integer;       --定义整型
$ {% @' m4 O+ ]/ j4 v8 E        Buf:object;            --定义object
do
        m:=0;
& S, A+ V( R+ x9 U( Z* S        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
- S6 }/ u8 g) m% E+ ^: O& x5 z        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
2 i  O$ Z- c$ l4 ]5 H                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
; q% Z- r! m' ^. t2 C. l                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
+ j5 J! K2 {5 V. B9 E' j1 g4 j                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
7 J* {: R2 q" J! l! _+ h                        i:=PartsTable.YDim+1;
                end;
# d) W2 |6 N& B3 T3 `$ z                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
8 y3 x1 S* \+ c1 ~* i) S8 v        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
! c: D" Y  v6 N# K+ G" Q这个例子昨天正好看了，话说那本书的例子都很不错~
6 F1 [' I7 N) ]; }* h- q: t' Q! C1 r不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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