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

热翔啊

is
        i,no,m:integer;
$ ^, n) J) `. V, [, K$ Q8 o9 M( h        Buf:object;
do
        m:=0;
' n& G9 T2 G, s; J# [        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
% L) W1 `0 y& @  A) K0 ]" y                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
: {* @  O/ S. n- [: v. H                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
: k3 q& t) s- K7 k                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
                        i:=PartsTable.Ydim+1;--跳出循环
" B3 N, c3 U7 C6 P0 p                end;
6 [% u0 B- v- _! b* V  J! C- O. j                m:=m+PartsTable[2,i];
7 z  l( K, B$ y, x9 u* ?                print m;
& C1 t8 }; |2 z8 t( R0 k        next;
: o8 Y* q4 ]- U1 c        --先将零件送到From位置
% l, i- \0 n/ T& T3 r        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
3 d, M. Y- W' I* u        @.move(Buf);
* e* `' {" `  ~end;
& |6 i4 n4 D0 C) G' z
( T  N! x- m1 N& a' V这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
$ p6 O. J8 }. g$ y6 a- b" @不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
, @  |/ X+ b7 o3 m9 E        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
do
0 y. V7 u: I" p9 Z  k. N        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
* y) G/ K& {+ N3 }; H* N                        @._From:=PartsTable[5,i];            
1 }5 E, O4 A2 A5 l2 t0 _6 e                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
/ w& _( `' |8 _1 ?- i
" K, t$ F& ]5 p+ G: f7 q# i4 S3 ]/ ?  p  C                        end;
                        i:=PartsTable.YDim+1;
                end;
7 U* `, m5 w$ M                m:=m+PartsTable[2,i];
        next;
       
5 g6 L8 d8 i% J  O  P4 B0 F        Buf:=str_to_obj(sprint("BF",@._From));
' }1 z! o; A9 c" u$ N        @.move(Buf);
/ Y! R$ a4 A- I/ ^end;

热翔啊

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

3 a. M) z5 K) n5 k' ~非常谢谢你 T  T 我都已经觉得问的太傻了 没人会回复的