www.pudn.com > TJU.rar > ac1035.pas

program tju1035; 
const 
  maxn=10; 
  sols=6563; 
type 
  soltype=record wid:byte;code:longint;end; 
var 
  map:array[-maxn..maxn,-maxn..maxn]of boolean; 
  sol:array[1..sols]of soltype; 
  ans:array[1..maxn]of word; 
  count,n:word; 
function min(a,b:shortint):shortint; 
  begin 
    if ab then max:=a else max:=b; 
  end; 
procedure search(l,x1,x2,y1,y2:shortint); 
  var 
    i,j:shortint; 
  function store:boolean; 
    var 
      w,c,x,i,j:longint; 
    begin 
      w:=max(x2-x1,y2-y1);c:=maxlongint; 
      if x2-x1<=y2-y1 then begin 
        x:=0;for i:=x1 to x2 do for j:=y1 to y2 do x:=x*2+ord(map[i,j]);if x