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

热翔啊

is
        i,no,m:integer;
        Buf:object;
9 u) h+ X# N% g! c; K: ~$ h* sdo
        m:=0;
        no:=@.getNo;
6 S% _6 R& z( Q2 n/ d9 e7 G2 E) U        for i:=1 to PartsTable.Ydim loop
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
8 N* ?% Z' y1 A( D1 O, a8 m( |% E                        @._From:=PartsTable[5,i];
% U2 \6 T4 d% R: d4 `  F                        @._To:=PartsTable[6,i];
' K/ R. b/ T) T/ `' Q1 G                        if no=PartsNo+PartsTable[2,i] then
. Z& U6 y, n0 D) ^2 p$ w. l% M6 I  c                                PartsNo:=PartsNo+PartsTable[2,i];
2 H8 a) F: e, ?1 Y& r- I                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
                end;
5 K( \5 h) p. m% e3 Z                m:=m+PartsTable[2,i];
                print m;
        next;
        --先将零件送到From位置
- D' U  k6 @& v# ~: _% K        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
/ Q  ]( `' }8 N: k        @.move(Buf);
end;
; H, w$ z( p) {  X; Z1 K8 L# I
" C$ a% E  i+ j. c# m7 B" \. ?2 \这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
7 v3 _) W- V; R# m0 y5 Y& {! C        Buf:object;            --定义object
* m5 b) [+ W* R1 m; cdo
: H$ ]8 ?& O* f1 O/ {5 b! @        m:=0;
0 [8 t6 a. T0 K        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
# w' O, q) ~) }        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
                        @._From:=PartsTable[5,i];            
0 y+ F* _6 x2 w. z7 e1 }                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

6 c$ f3 e! t+ B2 n/ E' W: l4 r% t                        end;
% Z* B$ i: k3 N' J! G                        i:=PartsTable.YDim+1;
( z3 t) ~$ ^! s' g1 S4 o2 q                end;
                m:=m+PartsTable[2,i];
        next;
$ \# x; c2 G& T       
        Buf:=str_to_obj(sprint("BF",@._From));
- g9 w- O* }( h* i( T        @.move(Buf);
end;

热翔啊

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

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