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

热翔啊

is
& D" V; W$ \# ?0 L4 A' j/ Y5 a        i,no,m:integer;
        Buf:object;
7 G1 s/ T  S) c/ V8 m0 n; ~5 V+ J# Wdo
5 I) g2 }  P; w2 a9 D        m:=0;
        no:=@.getNo;
4 O* i/ R$ I$ I8 i8 r9 G* p, c        for i:=1 to PartsTable.Ydim loop
( H& o+ q. r, y% {                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
7 h$ Q1 e% d+ q; g+ T                        @._From:=PartsTable[5,i];
( `7 p0 N' i+ M+ |# `6 c  l/ y                        @._To:=PartsTable[6,i];
2 ~& t. w- S8 s; F' b                        if no=PartsNo+PartsTable[2,i] then
/ y9 h6 m- n& Z- |9 Y1 R5 T3 r                                PartsNo:=PartsNo+PartsTable[2,i];
- J9 ]6 P- I1 y9 t                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
3 y# t/ D  v+ R% L                end;
5 g& T3 p! e6 u) r8 s                m:=m+PartsTable[2,i];
2 S5 i% a7 a4 N/ r0 G4 B                print m;
$ a: H6 M3 l$ @6 J2 m  O8 q8 ]) Y        next;
# `( Q  Z$ l% X! O        --先将零件送到From位置
        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
' I5 H, n* v! V& [' D6 b: ]end;
; E* r# v% s- ^$ |$ S" v
这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
7 n; q, d$ t* z& D不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
  U( n* K- p) Y0 Sis
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
4 |9 k1 v/ N7 {. y5 N5 \: H6 E9 j5 n        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
1 j: h' @7 {9 c: r8 E" N- J        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
1 j  L- U* u" j- T                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
" g; B% r  O! d  V" ?* t7 j                        @._From:=PartsTable[5,i];            
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
+ y4 ]* D9 K% q) {                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

                        end;
                        i:=PartsTable.YDim+1;
                end;
" P, N4 S2 Q3 x                m:=m+PartsTable[2,i];
% Q0 K; E& u8 n9 y( e        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
1 V, Q3 R8 s" j- z2 G( bend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
" ?. j1 u3 s3 G5 I0 \这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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