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

热翔啊

is
        i,no,m:integer;
4 v* i) S0 Z' V        Buf:object;
do
, c( n, L; H& H7 y6 B        m:=0;
        no:=@.getNo;
. a0 U5 i: H' ?# v" q        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
6 p; \  s* n& H& P" k: G                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
$ _: j' Z. b+ B! H6 G/ p3 L                                PartsNo:=PartsNo+PartsTable[2,i];
/ M( z, a' G8 L* J& E9 f                        end;
" K8 Q2 e; }2 M2 `                        i:=PartsTable.Ydim+1;--跳出循环
                end;
                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
3 O4 W" l* b: w% i3 p' S" E" m        @.move(Buf);
1 e* H6 X% B" }7 G7 Dend;
$ O9 h  G* b( X! b
& ?3 h% F, U, q6 @( _% \这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
6 g% }2 t' E) G- r6 _不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
: B+ d* ]3 G, u* O  {* `2 s2 ]        Buf:object;            --定义object
5 ~2 _( D9 R" y- [do
        m:=0;
9 U* d  Y6 ?, T7 p- D0 m        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
* B, V6 v4 m( }% n  B; j: S        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
/ c" j" t: n* }$ l8 k7 L: |                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
+ r% z& c! ?3 b. U" {1 G                        if no=PartsNo+PartsTable[2,i] then
% V; r, ?$ s0 _2 ]6 H                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
7 }" }! }9 q  `- V& m; I
                        end;
! y: T" F( |5 ^  S  t. W                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
/ i3 i$ u* f  {        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
7 ?! h5 H9 m, M/ t# A: E3 I8 Nend;

热翔啊

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

; D$ w! p. E( i8 t& B- G非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的