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

热翔啊

is
        i,no,m:integer;
/ Q: r, c; s2 y2 }# q) O/ A        Buf:object;
9 F; E8 a$ i8 Z4 odo
        m:=0;
( T' D) `& w. L2 C; M0 C/ z        no:=@.getNo;
- y% Q. a9 ^9 P& T3 [$ J. L% M        for i:=1 to PartsTable.Ydim loop
, N  R3 O) l/ G: \! b" _# r) S1 s                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
# F- G5 T9 r4 l7 c8 B                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
& n4 @, S: z4 Y& `- D1 v6 ]0 x" `& S$ Y                m:=m+PartsTable[2,i];
                print m;
) i  t% t. p5 I; u" u" w' {        next;
% @* _5 k! d# l* A3 S+ C2 Y        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;
0 W( Q3 c( W+ p
' v6 d1 }! F8 S( {- l/ y这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
8 R: [; r) k" B, F不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
" A6 `3 J0 M( X+ }8 U. u        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
5 K8 m4 ?9 C# R+ O/ ]- R7 f        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
/ ]3 Y0 ^7 ]  E1 F                        @._From:=PartsTable[5,i];            
/ V( Z" ~5 g% P                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
. O6 B/ @$ C- C# f# i, e                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
% ]. B4 d( E/ ?2 F/ C! z6 M
+ t5 [2 ^5 }! _9 V# [/ p* m; C; u                        end;
                        i:=PartsTable.YDim+1;
                end;
6 T* V: J- }/ P3 T  C+ {                m:=m+PartsTable[2,i];
        next;
0 e" {1 {4 U% u& q7 k2 q& g7 H       
. M$ W6 L# H$ ]' }$ V7 Y$ I        Buf:=str_to_obj(sprint("BF",@._From));
  y2 h2 D3 Q, z0 z4 n8 S3 l- \        @.move(Buf);
7 }4 f3 c+ d  S* v" vend;

热翔啊

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

; I. n0 m" m# z' Z非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的