射命丸文 Standard IO

2021-09-03 00:00:52 字數 1278 閱讀 2155

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列的彈幕消除,並且得到這一塊區域內所有彈幕的分值 累加 現在文文想要取得盡可能多...