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

热翔啊

is
        i,no,m:integer;
6 s2 t3 r0 J' r) H        Buf:object;
3 Q* z, f# d/ v: G) L4 _+ `0 ado
        m:=0;
: G, s: r6 K" _0 z        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
6 [# ^6 V7 `3 Z6 R                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
% v( u: j  m2 @& s' ?, |+ H: |                        @._From:=PartsTable[5,i];
: b' }: c1 v6 d                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
* R% J4 v4 i: Q% W0 ~                                PartsNo:=PartsNo+PartsTable[2,i];
( R* T! P7 I4 e) T                        end;
1 w: e, v; ^5 J  [; v& `7 o                        i:=PartsTable.Ydim+1;--跳出循环
7 M" h, `" s& g( w                end;
) t& p, D  o' f3 P1 S0 X/ E                m:=m+PartsTable[2,i];
6 ~% d) x0 b. r! _9 ^                print m;
+ X* Y& @& N. f. E8 O8 R$ W* w        next;
6 z* a, }+ D+ m4 E9 e1 S  e        --先将零件送到From位置
& l1 K! a3 m1 p        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

0 d: P5 i" s/ p6 A这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
& a- c. g8 y# y- ^! u. c不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
! M: S! n- K* W        Buf:object;            --定义object
do
/ I" [+ M5 K% y) }        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
3 [4 R+ n2 i+ T4 A2 o; g                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
: g6 v/ P& E) L- S: F8 |- ~9 {. z                        @._From:=PartsTable[5,i];            
- ]3 [! d5 C6 i$ p                        @._To:=PartsTable[6,i];
; }. k8 e6 D, S3 D$ k9 k1 I                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
) X/ K5 b  E! u: C3 h                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
% c: G3 k; e/ i8 [. X+ C& l, m       
        Buf:=str_to_obj(sprint("BF",@._From));
5 G% o6 D0 Y6 J. R( E        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
这个例子昨天正好看了，话说那本书的例子都很不错~
- S! h3 q# k( Y, p; [, u5 O# a9 g不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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