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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
" |2 r$ a9 U" i        m:=0;
        no:=@.getNo;
% w; \2 y9 f; R        for i:=1 to PartsTable.Ydim loop
! |$ {( u1 c4 ~8 l, ~' f6 k. i                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
8 `8 f" e1 J/ p8 M8 C6 B                        @._To:=PartsTable[6,i];
* p( h7 F+ @: o8 F9 @* n                        if no=PartsNo+PartsTable[2,i] then
4 J! c: f7 P5 T" c/ i0 a- k2 G/ q                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
/ ~2 }9 S  p8 ^5 P                end;
                m:=m+PartsTable[2,i];
/ O; U7 o) D) Y+ U                print m;
* K+ e& r5 d1 M: U        next;
        --先将零件送到From位置
1 z8 W/ g( k! _1 B7 @  K9 l        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
1 k, t2 p# [; B: u. h8 \9 Qend;
6 k5 i' W; {7 k
! E! G* d7 B) d- z% ~这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
+ o5 b7 u8 G% E! f. O, b+ ?9 q不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
9 i8 ]3 T& F) s) r: ~. N! I- V) Y9 ?is
* J) V; w$ e- G" @7 a        i,no,m:integer;       --定义整型
5 [3 |: [8 K# c* ^, B. E        Buf:object;            --定义object
$ Y* ]- N- G$ z. U& l: Fdo
) |5 P  k+ h4 x! I7 z4 L- a        m:=0;
% g6 l6 k- N/ m$ d$ R0 r5 a7 I0 C        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
& a7 h" f7 m5 p9 U. |' \                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
% Y0 \' j! s  t+ X3 Q                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

8 `  L1 W3 i  @) v                        end;
                        i:=PartsTable.YDim+1;
, \0 O" r# u: A1 b% i3 N                end;
                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
# z0 r8 h/ P8 b# f        @.move(Buf);
end;

热翔啊

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

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