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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
        m:=0;
        no:=@.getNo;
8 y; n* D- j7 G: U4 ?5 B        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
: U- [& y% k( |$ g. U                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
# ^: P# C0 y" Y6 t1 E                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
6 a# |5 `0 O8 G2 X& M  f, t; M        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
+ p7 E- a' v* u6 e( O        @.move(Buf);
end;
1 v/ m- [) v  L8 m
& A3 Q  N% r5 _2 w1 ^" v( b7 E这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
! b" }1 Q  \# F8 [9 \6 ^% o$ j  V不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
- L' F, k& I/ K, C5 ^1 O, D        i,no,m:integer;       --定义整型
3 z9 |, V' @9 h- H( n        Buf:object;            --定义object
do
" T+ N! P  o! ]4 D  ^        m:=0;
2 f' u0 d8 a, }- q4 a, w        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
& f6 s% W  |+ x. ^/ {+ R/ Z                        @._From:=PartsTable[5,i];            
# q( q( R- @; C2 X5 F                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
' H# g8 K9 R; `6 y& H' j                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
" ~: a1 j% y+ ~3 u% H4 G
                        end;
1 u; p! j3 S7 X  s8 j! k# T2 I                        i:=PartsTable.YDim+1;
, Q5 v; D7 @  y' t; R                end;
5 o' w3 {8 N3 H5 Y; u                m:=m+PartsTable[2,i];
( Y7 _/ H2 \5 q        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
. h0 f$ T2 F, w& X        @.move(Buf);
: D$ u" v7 j( e1 _3 [7 M/ {8 m& }end;

热翔啊

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

$ R9 q/ z, _% Z1 m& q; c5 z非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的