餐桌 (Standard IO)

题意/Description:

       你家刚买了一套新房，想邀请朋友回来庆祝，所以需要一个很大的举行餐桌，餐桌能容纳的人数等于餐桌的周长，你想买一个能容纳最多人的餐桌，餐桌的边必须跟房间的边平行。
       给你的房间的设计，计算最多能邀请的客人数。

 

读入/Input：

       第一行包含两个整数R和C(1<=R,C<=2000)，表示房子的长和宽。
       接下来R行每行S个字符（中间没有空格），“.”表示空白区域，“X”表示有障碍物，餐桌所占区域必须是空白的。

 

输出/Output：

       输出最多能要求的客人数量。

 

题解/solution：

       找出每个空地能向上延长的最高高度。然后枚举每一个空地，让空地向右延长I个空地，随便得出这个空地的最小高度，然后算出边长-1，得出ANS。详情见程序。（水）

 

代码/Code：

var
  n,m,ans:longint;
  f:array [0..2001,0..2001] of integer;
  a:array [0..2001,0..2001] of char;
procedure init;
var
  i,j:longint;
begin
  readln(n,m);
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(a[i,j]);
      readln;
    end;
  for i:=0 to m+1 do
    begin
      a[0,i]:='X';
      a[n+1,i]:='X';
    end;
  for i:=0 to n+1 do
    begin
      a[i,0]:='X';
      a[i,m+1]:='X';
    end;
  ans:=0;
end;

procedure main;
var
  i,j,x,min:longint;
begin
  fillchar(f,sizeof(f),0);
  for i:=1 to n do
    for j:=1 to m do
      if (a[i,j]='.') then
        if (a[i-1,j]='X') then f[i,j]:=1
                          else f[i,j]:=f[i-1,j]+1;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]='.' then
        begin
          x:=j; min:=maxlongint;
          while a[i,x]='.' do
            begin
              if f[i,x]<min then min:=f[i,x];
              if (x-j+1+min)*2-1>ans then ans:=(x-j+1+min)*2-1;
              inc(x);
            end;
        end;
  write(ans);
end;

begin
  init;
  main;
end.