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

热翔啊

is
        i,no,m:integer;
$ s" F4 f/ G; U3 L- d        Buf:object;
do
9 V& k# K- l* ?1 l6 q/ I0 w        m:=0;
        no:=@.getNo;
2 o6 Y, G* |+ ^* }4 @+ d3 m1 R        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
# p+ T- E# L. `2 I- o                        @._To:=PartsTable[6,i];
2 c  r( R3 q+ `2 w- F                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
8 J: l8 [/ L- B3 H/ T. p/ y                        i:=PartsTable.Ydim+1;--跳出循环
/ k: x2 A! y7 ^3 w4 e' Y" |+ X                end;
4 x0 X! l' n+ p. r+ `5 s                m:=m+PartsTable[2,i];
9 ~+ V! `- J. y1 M; G                print m;
9 ~- w. Q% X6 b$ l        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
4 F/ O. q, j1 y$ h+ \# L3 p8 c% x7 a! C
% |3 [( x7 ?& A9 f( Q7 l这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
3 i% H& U" ]& g3 h0 i. r1 u9 K不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
" H3 J0 T7 X0 c3 A. \' B" g        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
. O0 l" ]9 `6 ~2 e8 {do
7 ~; G2 g) H- `: S2 D. S        m:=0;
9 E3 v: S5 x& d6 \" k        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
8 W% U6 y$ K# N8 \; q        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
! h# W3 c: X, Z6 ~; c4 W2 }5 b& r                        @._From:=PartsTable[5,i];            
& }# ]/ c* S1 T, u% X/ K- H                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
6 C- o2 X0 D7 D6 b# y6 V+ {7 b4 B1 B                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
% d6 M# P7 o$ L        next;
       
+ g  N" x$ i) ]  w4 n  I9 h+ H+ B2 ^7 X        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

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