題目描述

在一個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

這題我用的是比較慢一點的方法。
首先，列舉整個方陣。再依次列舉邊長，在兩重迴圈判斷這裡有沒有0，有0則退出false，沒有則邊長加一。

程式碼如下：

var i,j,n,m,ans,num,k,l,h,l1,h1:longint;
    a:array
 
[0..1000,0..1000] of longint;

function try(h,l,h1,l1:longint):boolean;
var i,j,n,m:longint;
begin
  for i:=h to h1 do
    for j:=l to l1 do
      if a[i,j]=0 then exit(false);
  exit(true);
end;

begin
  readln(n,m);
  ans:=1;
  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
      if a[i,j]=1 then
        begin
          k:=1;
          h:=i+1; 
          l:=j+1;
          while try(i,j,h,l) do
            begin 
              inc(h); 
              inc(l); 
              inc(k); 
            end;
          if k>ans then ans:=k;
        end;
  writeln(ans);
end
 
.