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

热翔啊

is
        i,no,m:integer;
  a+ ^5 _  ]6 e& Z/ W/ U% ~% ~        Buf:object;
$ h8 j/ Z4 x! Y( Xdo
8 G0 L! w( i4 G* ?& G        m:=0;
# M# Z- Z7 l5 c0 i3 C1 P( d        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
. U7 j, S* F% Z5 O1 A! m                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
1 |9 F0 B. d6 c                        @._To:=PartsTable[6,i];
9 K" ?) E% j; e                        if no=PartsNo+PartsTable[2,i] then
2 _* d7 P0 m# ?0 Z2 X                                PartsNo:=PartsNo+PartsTable[2,i];
$ Y9 j% s, k0 r# ]2 `" _                        end;
* w1 O  _, _1 T$ ?2 l; X/ w                        i:=PartsTable.Ydim+1;--跳出循环
& P: }4 d$ u, O' L: p                end;
( i$ {) f) k3 P! I% B+ h  V                m:=m+PartsTable[2,i];
' Y" \. r; c% ~7 N                print m;
! n, r7 F, C0 l, ?  w        next;
$ `2 f& s( l6 M5 H+ p" z6 R! _1 H        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
2 l1 S. d1 G7 Mend;
8 f6 `) o) _( _6 M9 h6 }" _9 u3 v3 v
; z8 @( |* s) P: a4 w7 T5 l这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
- S5 R, @) Y" {: D0 N4 \is
3 A8 R, q$ B6 a7 \3 C3 `; O; [7 t* r* S        i,no,m:integer;       --定义整型
' G! U; p0 U% U& k  L1 Y/ w        Buf:object;            --定义object
5 `; y! g& c$ |% gdo
        m:=0;
5 O5 T( h5 k% c$ _# H7 y        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
0 [' B; }5 p/ ~: s        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
( Y- G/ j3 z/ q3 c0 U. l% R0 r3 O7 V' C                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
: q7 b! f' N2 G                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
) p: O7 d; |8 E/ \1 ]4 }                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
1 o  @' O: y1 q+ A
                        end;
: y$ g9 V* r) k- Q# `                        i:=PartsTable.YDim+1;
6 p, q* k: x5 r, V7 @" _  Y8 n                end;
6 S1 m6 U" ]6 B0 F( _                m:=m+PartsTable[2,i];
        next;
  a' R# q* x2 Q  M       
        Buf:=str_to_obj(sprint("BF",@._From));
! L  X* c" F/ r. Y8 q% E        @.move(Buf);
# T$ |4 `5 {- ]$ X; M3 M5 q% e- ?end;

热翔啊

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

1 H0 H9 \# T8 C; j非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的