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

热翔啊

is
        i,no,m:integer;
) z5 d2 P$ l1 D        Buf:object;
  ~+ Z$ y! X" C- o; Kdo
        m:=0;
% K2 G' U8 `! p2 g, x& i        no:=@.getNo;
: y/ l5 E8 T$ `3 I" {' I6 R        for i:=1 to PartsTable.Ydim loop
/ s8 D$ J; I' C2 L5 k( E                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
3 Z3 X' L" A3 H7 ?( p                        @._From:=PartsTable[5,i];
. k( ~! \  N, t: V+ c1 o                        @._To:=PartsTable[6,i];
* d( E( E, _% y, t3 s                        if no=PartsNo+PartsTable[2,i] then
2 L' n: s: L+ Z' Y/ B  l                                PartsNo:=PartsNo+PartsTable[2,i];
/ r5 e4 k6 P: ?0 ]: d                        end;
0 s9 {6 N- r; F# q  P" Q" \                        i:=PartsTable.Ydim+1;--跳出循环
                end;
3 _' x/ R: ?& \7 ]                m:=m+PartsTable[2,i];
( s6 K$ n. q2 z                print m;
& v! ^& [& P5 y  Q' ]: T        next;
. B: R. q$ e5 B5 |5 E9 H        --先将零件送到From位置
8 R3 E! Y' J6 _  L# P# b: y        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
1 W+ w5 X5 R+ N$ \( ]/ N        @.move(Buf);
end;
& K8 ^- ?( h- P/ `6 U0 z
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
, z* p$ Z0 E# W4 S        i,no,m:integer;       --定义整型
: {% F8 e2 X9 z5 n- _9 ^        Buf:object;            --定义object
do
% Z9 r# h: b, X! N( c( R6 q        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
$ p- M5 z7 L4 l                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
8 }+ W5 x3 ^! `# o+ v                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
8 c( R7 z3 W2 ?* J* B1 t7 T
                        end;
# N) I0 N4 Y) D8 G( {                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
5 a) w# `( |2 ?* {" L$ Y        next;
- g2 _" c2 @& Q; Y       
) [" I5 w( h3 u' N! K# v; v        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
" v, s: C2 i& r/ J: H3 `这个例子昨天正好看了，话说那本书的例子都很不错~
& s5 K, u3 k. {! o' Z3 o  O1 p7 r不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

6 C! e$ N6 p9 S非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的