射命丸文 (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.