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

热翔啊

is
        i,no,m:integer;
        Buf:object;
do
; K' t- r0 ~1 [% F7 J        m:=0;
! `2 r- ?2 Y; n6 g3 B: M* q        no:=@.getNo;
        for i:=1 to PartsTable.Ydim loop
" H8 x  V. D; W/ |, F# T6 a, H. l( c                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then
                        @._From:=PartsTable[5,i];
                        @._To:=PartsTable[6,i];
4 S2 T& |2 J3 h" E5 j4 ~" C                        if no=PartsNo+PartsTable[2,i] then
' l& d  Z* T; {( ]% K2 C( {# L                                PartsNo:=PartsNo+PartsTable[2,i];
                        end;
' k0 T8 [- G& S$ S3 _                        i:=PartsTable.Ydim+1;--跳出循环
                end;
6 g* ]! E% l8 t* g                m:=m+PartsTable[2,i];
                print m;
+ g/ Y" y. j# k# j4 G. U        next;
) N4 S7 A/ ?' U3 `1 h! i, e3 ~        --先将零件送到From位置
: i3 E- K/ e( l- M        Buf:=str_to_obj(sprint("Machine",@._From)).buffer;
        @.move(Buf);
end;

* ~4 I' q4 @& ~/ p+ F5 J- k这是教材上的，我想要详细的语句翻译，编程基础很不好~~~~(>_<)~~~~ ，所以先谢谢

乘月以待晓

这个例子昨天正好看了，话说那本书的例子都很不错~
% S1 f  q6 H3 h9 P% |9 e不过你还得把前面的表格看明白了才行，不然我这边解释也不行的。
3 m: \, L& x% t4 G0 ~& c7 Xis
        i,no,m:integer;       --定义整型
        Buf:object;            --定义object
4 m! I$ T* E6 ^do
  u9 v2 b9 m' n; O        m:=0;
        no:=@.getNo;   --拾取进入系统的实体编号（每一个物体系统都会默认的给他一个编号的，出来你自己定义外）
9 p8 q& U6 a9 _3 K( r, K        for i:=1 to PartsTable.Ydim loop       --YDIm就是指这个表格一共多少行
                if PartsNo=m and no<=PartsNo+PartsTable[2,i] then  
* X) `* Z: P0 O& E# C8 c                        @._From:=PartsTable[5,i];            
' G+ Q9 y$ |+ {% `  q# ?! t, S                        @._To:=PartsTable[6,i];
' E- Y7 c! @. h                        if no=PartsNo+PartsTable[2,i] then
1 p& L) G- J' S! g                                PartsNo:=PartsNo+PartsTable[2,i];  --这边整个语句实际就是在说，PartsNo就是要运送的数目（表格第二列的都是运送数目），而no与m就是用来辅助不断向下读取表格的数据的（这个逻辑你要自己推敲，说的话可就长了，把数字一个个带进去）

" s+ s, _; k  Z2 M! [                        end;
9 d7 H: K! ?2 {) z                        i:=PartsTable.YDim+1;
; O+ f4 Y, _! m- A( Z+ t; s                end;
2 `5 \# n4 M  }$ U2 N3 _                m:=m+PartsTable[2,i];
; s$ b# S; v) k! A9 l8 Y5 r        next;
       
        Buf:=str_to_obj(sprint("BF",@._From));
        @.move(Buf);
( U( g. F2 l# |" \1 gend;

热翔啊

乘月以待晓 发表于 2013-4-23 15:11
( E' s7 g, ?7 t! D这个例子昨天正好看了，话说那本书的例子都很不错~
6 o1 Z: D% \9 b4 @; u不过你还得把前面的表格看明白了才行，不然我这边解释也 ...

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