洛谷 P1387 最大正方形 dp

题目描述

在一个n*m的只包含0和1的矩阵里找出一个不包含0的最大正方形，输出边长。

输入输出格式

输入格式：
输入文件第一行为两个整数n,m（1<=n,m<=100），接下来n行，每行m个数字，用空格隔开，0或1.

输出格式：
一个整数，最大正方形的边长

输入输出样例

输入样例#1：
4 4
0 1 1 1
1 1 1 0
0 1 1 0
1 1 0 1
输出样例#1：
2

分析：突然发现了一道dp水题= =

代码：

var
 f,a:array [0..100,0..100] of longint;
 ans,i,j,n,m:longint;

function min(a,b,c:longint):longint;
 begin
  if a>b then min:=b
         else min:=a;
  if c<min then min:=c;
 end;

begin
 readln(n,m);
 for i:=1 to n do
  for j:=1 to m do
   read(a[i,j]);
 for i:=1 to n do
  for j:=1 to m do
   begin
    if a[i,j]=1 then
    begin
     f[i,j]:=min(f[i-1,j],f[i,j-1],f[i-1,j-1])+1;
     if f[i,j]>ans then ans:=f[i,j];
    end; 
   end;
 writeln(ans);
end.