射命丸文 (Standard IO)

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]）就是了。

代码

varn,m,l,r,ans:longint;a:array [0..1001,0..1001] of longint;
procedure init;
vari,j:longint;
beginreadln(n,m,l,r);for i:=1 to n dobeginfor j:=1 to m doread(a[i,j]);readln;end;for i:=1 to n dofor j:=1 to m doa[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;
beginif o>p then exit(o);exit(p);
end;procedure main;
vari,j:longint;
beginans:=0;for i:=l to n dofor j:=r to m doans:=max(ans,a[i,j]-a[i,j-r]-a[i-l,j]+a[i-l,j-r]);write(ans);
end;begininit;main;
end.