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

热翔啊

is
& P+ F4 D3 q) h0 K        i,no,m:integer;
5 F7 [: G  L: R/ m( K* m        Buf:object;
do
        m:=0;
4 G4 E4 T$ V) f5 }5 e        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
: E- i: ~( s, ~7 `4 J' |                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
$ f1 ~. g- @+ X0 b) y                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
$ }1 {6 _$ J0 v0 D8 U1 w$ @; T" {                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
  r" P7 v. M( A+ V. k                end;
+ ~* \1 h3 Q' k% l                m:=m+PartsTable[2,i];
                print m;
3 j0 b  V5 }# I! F) P- I: t  v        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
/ m  g" e/ a$ n  n- P2 W3 T% His
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
- F, E: a( u6 B* X' {                        @._From:=PartsTable[5,i];            
/ E4 V( {( ~2 V' a' P                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
% j8 o3 v" t, r1 I# U                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
2 ]; |) i. L% B7 l- t( V
                        end;
/ ?/ M5 s  |- m3 Q9 d                        i:=PartsTable.YDim+1;
9 S+ C" Q' q( `. N6 w9 w                end;
, m7 m* D# I8 |. _  K  G1 [                m:=m+PartsTable[2,i];
7 B4 r* _3 a3 A+ a1 I! K        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
0 }( p" m; x, j' c        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
' a, x8 C' ?& `$ \6 {, u& f. h8 l这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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