射命丸文 (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]）就是了。

代码

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.