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

热翔啊

is
: J2 b. K+ j( v7 _6 S; x, M+ u        i,no,m:integer;
: }- D! X9 d/ C, w* D2 v        Buf:object;
do
/ V* F2 `; g" f$ u5 Y( P        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
" o- L" W5 c0 n3 F5 A' w4 l                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
9 H+ ~  @8 Y5 g                                PartsNo:=PartsNo+PartsTable[2,i];
8 b9 N0 |1 J2 ?. W                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
3 j5 B" n/ [( _5 Y6 S                m:=m+PartsTable[2,i];
                print m;
5 `6 X) w' |1 \6 j/ |+ p        next;
1 t$ l7 b6 i8 c3 F* j: R1 d        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
, K( _; Q, W, L6 B. }不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
: l* V+ t9 A  o: J; _5 K' B" ?        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
) ?' e/ U9 A5 T                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
( `; n- G  q7 Y; C* a, X' E5 o                        @._From:=PartsTable[5,i];            
" U9 n6 g1 v# Y" n2 Y$ a                        @._To:=PartsTable[6,i];
' ^- J8 X& s4 E, [; Y: |                        if no=PartsNo+PartsTable[2,i] then
9 @( G0 j& z! @1 R; T' K                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
( o" \' _# i0 C; @6 q" J
                        end;
6 {. M2 ?( m% x( o* Q9 ~6 i" ^; F                        i:=PartsTable.YDim+1;
7 U. z5 Z! t0 z" S# t; l                end;
9 G2 S" D7 [6 c9 L8 Q# S/ i                m:=m+PartsTable[2,i];
        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
# b! E6 p5 W4 }% a  a6 K" f        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
, g0 R) Q& I9 p+ n9 A2 b# u, j0 }这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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