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

热翔啊

is
        i,no,m:integer;
        Buf:object;
4 ]+ H' J! r+ |/ Sdo
0 v6 Y4 o9 b( O* T! T        m:=0;
* S' A) k6 v- j/ p! l        no:=@.getNo;
6 F. {4 x& l2 y# R. P  k3 D        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
% r- ?8 `4 Z$ E5 k9 ^, ^4 I                        @._From:=PartsTable[5,i];
. c" q( x: d9 n* k) [" o                        @._To:=PartsTable[6,i];
$ G$ c7 a8 N% S- }% b" b# W# B# Z: B                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
# a+ T2 m0 j$ O; ]: ^) w3 p' I5 o                        end;
' r( \3 P; r3 k: W+ Y( @                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
3 \, @) Z- p& ]; c$ p                print m;
        next;
4 ^8 q( `' K0 r1 Y0 s2 P$ n        --先将零件送到From位置
8 L% y6 b: r; R8 m; w        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
, c1 `2 K1 B# j: B        @.move(Buf);
end;

  B# T# z' ^' \7 Q这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
- a2 n$ c1 _% z# a- P% |" A        i,no,m:integer;       --定义整型
+ O" x6 H: T9 z        Buf:object;            --定义object
- i* q& i! [. u5 W) S0 G" zdo
        m:=0;
- v- D, ?+ q: Z$ p' P        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
$ b$ \  B, p0 s1 z5 S; L                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
/ L( R3 U" \: t                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
# t. U0 E6 Y3 z; r: ^                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
5 s- R9 J- T; e% S& d3 `1 J7 ]
                        end;
1 y+ U+ f! d7 [                        i:=PartsTable.YDim+1;
                end;
3 i- u- i5 b3 q0 R                m:=m+PartsTable[2,i];
5 z2 G: I3 A' P        next;
* d! l+ h" q) A8 U       
        Buf:=str_to_obj(sprint("BF",@._From));
6 G1 \2 {1 }$ z, G8 l/ k: |        @.move(Buf);
6 K0 p  K4 [/ Z) |" N1 Iend;

热翔啊

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

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