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

热翔啊

is
, a+ [2 V0 y$ ?        i,no,m:integer;
- T4 C- Y- P! |3 \% h        Buf:object;
do
0 P6 P3 L% r8 y  w: r* S1 O        m:=0;
# S% E& g- {% a9 u2 a' @7 H        no:=@.getNo;
# s* q# U% G# ]" R1 T0 @- ]1 v        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
- b" Q7 E: Y& ?% g/ R3 ~                        @._From:=PartsTable[5,i];
! q/ F; D3 H7 \. j, R                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
: n- R, d( [3 b3 y                        i:=PartsTable.Ydim+1;--跳出循环
; Z5 u3 o* j4 n2 q* B                end;
( R. m$ C+ x7 N/ `9 v9 Y                m:=m+PartsTable[2,i];
                print m;
        next;
% d2 N2 R& G& P+ A        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
4 N3 \7 R8 ^3 t3 j2 I% B) v  W$ kend;

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

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
1 s6 \- y4 P: h2 g$ i不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
, B" O# Y* l- m( ^: X8 |4 I* }is
* a7 }( S( [) b- I& b        i,no,m:integer;       --定义整型
2 n  G. g2 i9 k$ q; g& H2 m1 N- V        Buf:object;            --定义object
do
+ k. H! I( S, E/ s        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
5 V: w% V* q- j- ?$ g* N/ e2 n        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
" `0 O) g; c5 t4 G; j: _" l                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
; E4 L/ F' }* G0 V                        @._To:=PartsTable[6,i];
5 K; Q+ r2 B  p5 E' ~: z3 D4 T4 O                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
* ]* ?0 H1 B& [! H6 L% n
! j4 L7 l% A9 C3 B                        end;
                        i:=PartsTable.YDim+1;
- ^+ _* ]$ r, X4 `2 y6 c; @7 l                end;
                m:=m+PartsTable[2,i];
        next;
" }0 \* F# |$ B- n       
# Y* U& }% h) ?4 P        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
8 n' f( U3 n( a2 b4 }end;

热翔啊

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

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