[USACO] Big Barn

最新推荐文章于 2018-12-20 13:09:29 发布

weixin_30950607

最新推荐文章于 2018-12-20 13:09:29 发布

阅读量92

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/wwzhwdwd/archive/2011/08/27/2155578.html

本文探讨了在给定农场布局中，如何通过算法寻找不破坏树木且能建造最大面积正方形牛棚的位置。通过编程实现，解决了农场规划问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

【题目描述】

农夫约翰想要在他的正方形农场上建造一座正方形大牛棚。他讨厌在他的农场中砍树，想找一个能够让他在空旷无树的地方修建牛棚的地方。我们假定，他的农场划分成 N x N 的方格。输入数据中包括有树的方格的列表。你的任务是计算并输出，在他的农场中，不需要砍树却能够修建的最大正方形牛棚。牛棚的边必须和水平轴或者垂直轴平行。

【解题报告】

原来USACO第五章也尼玛有水题啊。

 1 {
 2 ID:wwzhwdw1
 3 PROG:bigbrn
 4 LANG:PASCAL
 5 }
 6 program bigbrn;
 7 var
 8   x,y,j,n,m,maxn,i:longint;
 9   f:array[0..1001,0..1001]of longint;
10 
11 procedure init;
12 begin
13   assign(input,'bigbrn.in');
14   reset(input);
15   assign(output,'bigbrn.out');
16   rewrite(output);
17 end;
18 
19 procedure outit;
20 begin
21   close(input);
22   close(output);
23 end;
24 
25 function min(a,b,c:longint):longint;
26 begin
27   if a>b then a:=b;
28   if a>c then a:=c;
29   exit(a);
30 end;
31 
32 function max(a,b:longint):longint;
33 begin
34   if a>b then exit(a);
35   exit(b);
36 end;
37 
38 procedure main;
39 begin
40   readln(n,m);
41   fillchar(f,sizeof(f),0);
42   for i:=1 to n do
43   for j:=1 to n do f[i,j]:=1;
44   
45   for i:=1 to m do
46   begin
47     readln(x,y);
48     f[x,y]:=0;
49   end;
50 
51   for i:=1 to n do
52   for j:=1 to n do
53   begin
54     if f[i,j]=0 then continue;
55     f[i,j]:=min(f[i-1,j-1],f[i-1,j],f[i,j-1])+1;
56   end;
57   maxn:=0;
58   for i:=1 to n do
59   for j:=1 to n do maxn:=max(maxn,f[i,j]);
60   writeln(maxn);
61 end;
62 
63 begin
64   init;
65   main;
66   outit;
67 end.
68