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

热翔啊

is
& U) }& H6 j/ |6 f# t. s        i,no,m:integer;
8 c2 m( R! E8 l. W7 m' B# n        Buf:object;
$ q+ Y2 K# U" w' i  Xdo
        m:=0;
! I" c: M' G' {0 M2 l  }        no:=@.getNo;
. O4 J$ E6 I- M+ Y, @, R        for i:=1 to PartsTable.Ydim loop
, E$ p- n" e0 `$ D* f  z( \                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
/ G5 J7 Y8 N) r- Q/ _8 C7 m8 d                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
5 D3 o% X0 W0 s5 ~8 h" i( T% v                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];
! p1 B4 g' B: c, l+ Q5 x, J( e& c                        end;
( a( C2 s" R0 X2 ]7 G( k+ z$ g: S                        i:=PartsTable.Ydim+1;--跳出循环
! N* \( E: C; Z* l$ x                end;
$ }1 ~# x: y5 ~  m5 k0 ]3 S% l                m:=m+PartsTable[2,i];
( g2 S# [# n- `. c- F                print m;
3 w$ M5 P2 ^* ?' ?4 T        next;
( a8 s) L% E  |% G6 N! A        --先将零件送到From位置
7 g: T, G3 X+ f0 ~5 }8 H$ x        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
! z1 T& I* g1 I5 {, U        @.move(Buf);
7 y& B$ |/ V- l- S2 L" ^& l5 j" xend;

这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
3 q: l* G- ?# h9 j9 z不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
        i,no,m:integer;       --定义整型
9 r! ?$ ?7 [6 g        Buf:object;            --定义object
& m2 U1 ^: t- b4 b. S* l; _do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
# L( i9 D2 _5 D9 l* V        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
# w. t8 m+ b, t  s1 E5 J2 d, l                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
( A  Z; K; r6 N  o* i5 [: l                        @._From:=PartsTable[5,i];            
! a4 i' O9 l: W- C$ ~7 c                        @._To:=PartsTable[6,i];
: p8 A9 R( l4 q3 Y' z# h                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
: d3 e& H  W1 m4 \8 S4 ?; P. O: J
                        end;
( D1 a! W4 l8 }6 _                        i:=PartsTable.YDim+1;
                end;
                m:=m+PartsTable[2,i];
1 R; I& M9 C1 K" Y        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
- A. L1 Q6 n2 f% h0 X' b6 Z! m' `这个例子昨天正好看了，话说那本书的例子都很不错~
$ q0 e4 |% E; V4 k不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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