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

热翔啊

is
7 l9 {5 R+ L  x# l9 \- J+ l        i,no,m:integer;
( V% V; y* G1 Q* a9 }3 D8 I1 i. Q        Buf:object;
9 m* ?! G* R# X* \7 c/ i! Qdo
        m:=0;
* W; D/ S! {5 s& W/ ^' x* o6 W        no:=@.getNo;
8 O2 O* _+ L. }/ E$ y  z        for i:=1 to PartsTable.Ydim loop
+ ?- u: }- U2 C: _, ]# R& n0 X                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
& R( r, ^" l, z" d! z7 Q7 E! M                        @._From:=PartsTable[5,i];
1 T+ r9 d4 e  A! {8 A; r  c                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
- ^0 D: D$ o8 R8 n                        end;
8 O% t) n. b0 ~1 H' F% f/ R9 _                        i:=PartsTable.Ydim+1;--跳出循环
2 u. `5 N2 P  T6 F8 x8 I( M                end;
+ l1 |3 [; ^( J& A, ?( g                m:=m+PartsTable[2,i];
; r' H0 R2 x7 K6 n                print m;
3 Q, z; G5 C, M! m$ }1 i/ \        next;
" X; J5 F" E# {/ [0 M# W        --先将零件送到From位置
, t* s. C' b  U4 z1 W4 D, m        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
& x4 m4 p' S6 n# j! a: i0 D        @.move(Buf);
end;
# F2 F6 g+ F6 d, f$ g, B9 R
3 ]) X/ L8 Q! }0 j这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
: Q" A% B' Z7 X' \不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
7 _) C' q2 W* W; I/ d- p        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                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
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
  ]# E" P+ r/ m
                        end;
6 L* D" s' ^' E" |2 ~                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
        next;
3 q+ c% ~+ J) W. V( Q3 u       
! u  R1 F& `6 F% X& f4 K        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

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

1 {  n. W- M3 W1 S非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的