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

热翔啊

is
        i,no,m:integer;
  O" l4 H) b1 \1 E5 j) J3 U6 Z        Buf:object;
: c2 V5 {3 ?; vdo
& U8 Q" G2 H! I        m:=0;
        no:=@.getNo;
9 F0 T0 v% y9 l8 Y        for i:=1 to PartsTable.Ydim loop
. E! L; E' o3 x, y                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
3 e: W& l8 ^# M  h/ \                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
5 o2 ^( A$ V" ?' h1 P. E5 N7 [                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
% ?7 F  Y' _3 o                        i:=PartsTable.Ydim+1;--跳出循环
! ~# W/ N! f, ]( J, A                end;
                m:=m+PartsTable[2,i];
                print m;
6 p$ ~( \! J; Y% |  R        next;
) s+ S+ E, U; t* p/ P  J( g        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
& u$ E) b9 a4 X7 {$ Mend;
- D2 s, y/ R; q* W6 W6 F
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
) r9 p) |9 [( V6 c% \不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
$ V2 g+ b. f4 v0 S2 t( Ldo
/ a: J# I, a" j. S6 P* q6 J* B0 ?+ C        m:=0;
% A5 l- N+ `- l/ o        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
4 m$ \- O# i. b* z0 e- N# D        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
! W' e. @( u+ M2 I                        @._From:=PartsTable[5,i];            
) z, O' O6 ?4 e$ Q                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
9 t! w' L, V/ ~  I) Y4 @
                        end;
                        i:=PartsTable.YDim+1;
) {4 W% S" a* }3 z4 ^                end;
                m:=m+PartsTable[2,i];
! [  d2 \+ Q+ T        next;
       
  u; Y7 S1 k% v7 w) w0 z: @# m$ y, N        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

5 p2 {7 p9 t# Q* A$ Q非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的