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

热翔啊

is
        i,no,m:integer;
9 X# t* L, x* \( B- W2 C' S: h& f        Buf:object;
do
- e! ?) B7 p' b        m:=0;
        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
: j! l6 H# B$ i! E1 h                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
# y  E' U# ^0 j: o                        if no=PartsNo+PartsTable[2,i] then
0 y1 {# _8 z# @& J" U                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
4 g2 o$ {6 p4 W- H7 b& [                        i:=PartsTable.Ydim+1;--跳出循环
                end;
& y0 G; l0 R' d" d$ S                m:=m+PartsTable[2,i];
                print m;
        next;
4 z2 V0 `# V0 \6 A' w& n        --先将零件送到From位置
8 }4 W, o! J+ Q0 J* L8 W" P/ [0 Z        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
0 d7 m% f. N# C4 D2 |9 f; D6 P' m        @.move(Buf);
end;
4 U7 E! B. S. h) s6 N
# V* M. B6 M+ C' |& ^1 }这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
is
; x3 w3 `" w8 i. H& }+ p% C: `" p4 `        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
6 z+ c/ W9 y8 ~do
        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
# U$ w, h9 `6 u# }  Q                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
# J+ I# [" C4 K. U! ~                        @._From:=PartsTable[5,i];            
) s7 Q$ d, g6 Y" H2 D4 Y' N                        @._To:=PartsTable[6,i];
                        if no=PartsNo+PartsTable[2,i] then
8 Z: A7 ^: j6 J                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）
: O" \7 a4 d! A) Y: _9 w, E  Z
                        end;
# g! v6 k( i4 \2 }2 I6 f& B                        i:=PartsTable.YDim+1;
                end;
7 p; r; E  e  x/ L! \                m:=m+PartsTable[2,i];
% J+ ?4 t1 q+ v" a+ z: {. y0 w1 g        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
end;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
8 [8 M2 N: ~4 q5 T' e这个例子昨天正好看了，话说那本书的例子都很不错~
0 _9 S8 \/ D8 T  m; h* z不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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