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

热翔啊

is
        i,no,m:integer;
8 E# l2 g" j" ]        Buf:object;
do
, c8 U  L& R0 n# T8 s, G        m:=0;
+ L; w: g3 V8 z, ?        no:=@.getNo;
/ T8 f& U% Z5 G2 t! R  E8 @5 Z        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
. A! ~/ {7 C. A/ ?5 T                        @._From:=PartsTable[5,i];
% V% t$ R( Y! O4 m% D( U                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
* n$ [: k5 b7 z$ I3 x5 |- ^0 U& w9 U                        i:=PartsTable.Ydim+1;--跳出循环
( G  }* N4 x" K& ?                end;
, d1 u9 I0 M1 _) F" [  H& K% u+ `                m:=m+PartsTable[2,i];
' ~6 x8 {8 @! V! S4 ?" _                print m;
( N, x7 t( v# y! M        next;
        --先将零件送到From位置
3 Y" N# w2 m3 B, ?8 l9 c4 z        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
7 B) u0 x6 A# ^% z        @.move(Buf);
2 j6 _: x+ [. Q2 P  [end;

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

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
; x6 Z) f) M- \" G) c- p3 i! ^2 K不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
" q9 r# H  ?# ^9 B3 [3 \% E; Qdo
( ^( ?7 R4 m2 w/ N  o7 ]0 e/ G        m:=0;
4 E8 S9 i! N/ J        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
- q( }, g: n& L, }1 c5 ?                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
5 s! k$ `+ X2 m7 e9 F                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
5 z( x  e8 o& F, [6 A' O
5 r9 \5 I, W$ l7 E2 E- l                        end;
                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
. R- z4 t# \- I1 s        next;
! E& T2 P# E  P& Y       
. y4 e% g4 T6 ^7 A. n% |3 K$ A        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

: N; t+ m/ }2 S* {7 W非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的