description
在幻想鄉,射命丸文是以**聞名的鴉天狗。當然,文文的照相機可不止能夠照相,還能夠消除取景框裡面所有的彈幕。假設現在文文面前有一塊n行m列的彈幕群,每乙個單位面積內有分值有num[i][j]的彈幕。相機的取景框可以將一塊r行c列的彈幕消除,並且得到這一塊區域內所有彈幕的分值(累加)。現在文文想要取得盡可能多的分值,請你計算出她最多能夠得到的分值。
input
第1行:4個正整數n,m,r,c
第2..n+1行:每行m個正整數,第i+1行第j個數表示num[i][j]
output
第1行:1個整數,表示文文能夠取得的最大得分
題解 預處理出每個點向左上方的和,然後暴力得正解。
如何求r,c的矩形呢?設預處理的陣列為a,則(a[i,j]-a[i,j-r]-a[i-l,j]+a[i-l,j-r])就是了。
**
var
n,m,l,r,ans:longint;
a:array [0..1001,0..1001] of longint;
procedure
init;
var i,j:longint;
begin
readln(n,m,l,r);
for i:=1
to n do
begin
for j:=1
to m do
read(a[i,j]);
readln;
end;
for i:=1
to n do
for j:=1
to m do
a[i,j]:=a[i,j]+a[i-1,j]+a[i,j-1]-a[i-1,j-1];
end;
function
max(o,p:longint):longint;
begin
if o>p then
exit(o);
exit(p);
end;
procedure
main;
var i,j:longint;
begin
ans:=0;
for i:=l to n do
for j:=r to m do
ans:=max(ans,a[i,j]-a[i,j-r]-a[i-l,j]+a[i-l,j-r]);
write(ans);
end;
begin
init;
main;
end.
codevs 1373 射命丸文
題目描述 description 在幻想鄉,射命丸文是以 聞名的鴉天狗。當然,文文的照相機可不止能夠照相,還能夠消除取景框裡面所有的彈幕。假設現在文文面前有一塊n行m列的彈幕群,每乙個單位面積內有分值有num i j 的彈幕。相機的取景框可以將一塊r行c列的彈幕消除,並且得到這一塊區域內所有彈幕的分...
codevs1373 射命丸文
題目描述 description 在幻想鄉,射命丸文是以 聞名的鴉天狗。當然,文文的照相機可不止能夠照相,還能夠消除取景框裡面所有的彈幕。假設現在文文面前有一塊n行m列的彈幕群,每乙個單位面積內有分值有num i j 的彈幕。相機的取景框可以將一塊r行c列的彈幕消除,並且得到這一塊區域內所有彈幕的分...
codevs 1373 射命丸文
在幻想鄉,射命丸文是以 聞名的鴉天狗。當然,文文的照相機可不止能夠照相,還能夠消除取景框裡面所有的彈幕。假設現在文文面前有一塊n行m列的彈幕群,每乙個單位面積內有分值有num i j 的彈幕。相機的取景框可以將一塊r行c列的彈幕消除,並且得到這一塊區域內所有彈幕的分值 累加 現在文文想要取得盡可能多...