單一矩形排樣問題﹐急﹗大俠幫忙﹗

Question

把一張大料（矩形﹐規格為1020.0*1220.0）分割成小料（即生產用料﹐矩形﹐規格為266.0*166.0）﹐求最大分割數目。
急﹐拜托各位大俠﹗給出算法最好不過。

Answer 1

这个不行是吗？你试了没有啊？朋友
procedure TForm1.Button1Click(Sender: TObject);
var
  X1,X2,Y1,Y2: double;
  n1,n2,n3,n4: integer;
begin
  X1:= 1020.0;
  X2:= 266.0;
  Y1:= 1220.0;
  Y2:= 166.0;
  n1:= round(X1/X2);
  n2:= round(Y1/Y2);
  n3:= n1*n2;
  n1:= round(X1/Y2);
  n2:= round(Y1/X2);
  n4:= n1*n2;
  if n3>n4 then
  showmessage(inttostr(n3)) else showmessage(inttostr(n4));
end;