餐桌 (Standard IO)"/>
餐桌 (Standard IO)
题意/Description:
你家刚买了一套新房,想邀请朋友回来庆祝,所以需要一个很大的举行餐桌,餐桌能容纳的人数等于餐桌的周长,你想买一个能容纳最多人的餐桌,餐桌的边必须跟房间的边平行。
给你的房间的设计,计算最多能邀请的客人数。
读入/Input:
第一行包含两个整数R和C(1<=R,C<=2000),表示房子的长和宽。
接下来R行每行S个字符(中间没有空格),“.”表示空白区域,“X”表示有障碍物,餐桌所占区域必须是空白的。
输出/Output:
输出最多能要求的客人数量。
题解/solution:
找出每个空地能向上延长的最高高度。然后枚举每一个空地,让空地向右延长I个空地,随便得出这个空地的最小高度,然后算出边长-1,得出ANS。详情见程序。(水)
代码/Code:
varn,m,ans:longint;f:array [0..2001,0..2001] of integer;a:array [0..2001,0..2001] of char;
procedure init;
vari,j:longint;
beginreadln(n,m);for i:=1 to n dobeginfor j:=1 to m doread(a[i,j]);readln;end;for i:=0 to m+1 dobegina[0,i]:='X';a[n+1,i]:='X';end;for i:=0 to n+1 dobegina[i,0]:='X';a[i,m+1]:='X';end;ans:=0;
end;procedure main;
vari,j,x,min:longint;
beginfillchar(f,sizeof(f),0);for i:=1 to n dofor j:=1 to m doif (a[i,j]='.') thenif (a[i-1,j]='X') then f[i,j]:=1else f[i,j]:=f[i-1,j]+1;for i:=1 to n dofor j:=1 to m doif a[i,j]='.' thenbeginx:=j; min:=maxlongint;while a[i,x]='.' dobeginif 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;begininit;main;
end.
更多推荐
餐桌 (Standard IO)
发布评论