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

热翔啊

is
5 y/ ]6 y0 Z/ B' e4 b        i,no,m:integer;
        Buf:object;
& K/ V& {% R) _1 l& @/ o) `5 G  Jdo
2 _. a2 W% C5 H; K+ q        m:=0;
        no:=@.getNo;
$ ?3 i6 i$ D% R' ~$ ?        for i:=1 to PartsTable.Ydim loop
0 t( c( O: |& X) o                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
; _7 V$ ?, J5 P/ @( @0 B                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
, ]+ m7 q6 u8 R) K7 m# ~                        i:=PartsTable.Ydim+1;--跳出循环
                end;
( I6 o4 z/ T" G8 E                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
7 O) s6 Y6 `1 t/ d% |        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
; t4 o3 \4 `8 i0 U
: `. V# V/ s6 @8 W4 W这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
, ]- N* u* ?- @) y$ r" s- Q1 |: Nis
* M' g  ?0 F* h# w1 t! y* e' x        i,no,m:integer;       --定义整型
$ T/ P3 z/ F; {$ c  N" _2 k        Buf:object;            --定义object
do
  a4 \; A5 q* [5 f. a& Y        m:=0;
2 d9 s- K3 N+ X. |        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
. c  W6 ]1 E; }, _% `3 v" e( \        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
4 b; [6 W- u% I- p# ^                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
9 R( q6 \0 o3 \% r. B* _                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
. g( M5 N! f8 `9 f+ o, e# E* P; n                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
0 T7 Z* ?' ]1 T- }" ^
: n( h3 t: f  F2 W7 ^                        end;
                        i:=PartsTable.YDim+1;
' J+ D, k* l/ x& S                end;
                m:=m+PartsTable[2,i];
        next;
       
8 X6 b% L% l& P. T        Buf:=str_to_obj(sprint("BF",@._From));
/ f( H* K4 W3 O1 P- @! z        @.move(Buf);
" T, w( D& o- D9 o2 S3 ~end;

热翔啊

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

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