2553. 【NOIP2011模拟9.7】射命丸文 (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个整数，表示文文能够取得的最大得分

Sample Input

3 5 2 3

5 2 7 1 1

5 9 5 1 5

3 5 1 5 3

Sample Output

33

【数据范围】

　　对于60%的数据：1 <= N,M <= 200
　　对于100%的数据：1 <= N,M <= 1,000
　　1 <= R <= N, 1 <= C <= M
　　1 <= num[i][j] <= 1000
　　保证结果不超过2,000,000,000

题解

先枚举出f[i,j]的左上角（包括自己）左右的值
  ——f[i,j]:=f[i,j]+f[i-1,j]+f[i,j-1]-f[i-1,j-1]
然后r*c的矩形相当于减去上面的矩形和左边的矩形加上左上角重复减去的矩形。
  ——f[i,j]:=f[i,j]-f[i-r,j]-f[i,j-c]+f[i-r,j-c]

代码

var
  f,a:array[-1000..1001,-1000..1001] of int64;
  r,c,i,j,k,n,m,s:longint;
  max:int64;
begin
  readln(n,m,r,c);
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f[i,j]);
      readln;
    end;


  for i:=1 to n do
    for j:=1 to m do
      begin
        f[i,j]:=f[i,j]+f[i-1,j]+f[i,j-1]-f[i-1,j-1];
        if f[i,j]+f[i-r,j-c]-f[i-r,j]-f[i,j-c]>max then max:=f[i,j]+f[i-r,j-c]-f[i-r,j]-f[i,j-c];
      end;
  writeln(max);
end.
var
  f,a:array[-1000..1001,-1000..1001] of int64;
  r,c,i,j,k,n,m,s:longint;
  max:int64;
begin
  readln(n,m,r,c);
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f[i,j]);
      readln;
    end;


  for i:=1 to n do
    for j:=1 to m do
      begin
        f[i,j]:=f[i,j]+f[i-1,j]+f[i,j-1]-f[i-1,j-1];
        if f[i,j]+f[i-r,j-c]-f[i-r,j]-f[i,j-c]>max then max:=f[i,j]+f[i-r,j-c]-f[i-r,j]-f[i,j-c];
      end;
  writeln(max);
end.