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

热翔啊

is
        i,no,m:integer;
/ T, c" }- a  S+ E) D$ k: T4 ?        Buf:object;
do
        m:=0;
! H2 W1 z- R& z; ^% ]# L2 P. l        no:=@.getNo;
, U' Y0 |+ Y+ b/ i        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
$ k) D, E5 \* B$ o) W8 y! e                        @._From:=PartsTable[5,i];
# T1 @. `+ a9 R: P% \+ [# [                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
/ d1 a$ J& R$ N! t, b0 |                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
$ [1 l! a/ n% ?                end;
8 P: c; a# I& D6 ~                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
1 |+ Q( H' i1 M* ~, a: K2 h
; P. U& @% i5 b/ Y: _5 M5 F% B这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
  v. W0 `% ]8 s. O: \不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
: a; r# o* r4 j2 G) c% n& K0 Ois
        i,no,m:integer;       --定义整型
2 F( O7 ?* t7 P        Buf:object;            --定义object
" L, C* m% M8 \7 o. K; J0 Edo
' r2 V( d3 }# k        m:=0;
0 U+ a2 K; E# ?1 D( n7 p) f        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
; L# D1 z+ c6 S7 P  \/ l3 v* R1 d# A                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

' b+ e' c, t9 u5 s/ M" K                        end;
* p$ \% S+ z; y7 ?: N& h7 h6 c                        i:=PartsTable.YDim+1;
0 @; |0 Z# b  x( f  I, d                end;
* i9 v' f7 y6 g- R% a4 `! `3 H                m:=m+PartsTable[2,i];
* n6 _- w8 G& ?7 @9 e% [4 R/ d        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
. w9 P& p( r* \5 {* e        @.move(Buf);
% o* G; s, c; C2 x4 C' S) ~9 Dend;

热翔啊

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

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