Square

题目描述

今天小D在他的课桌上玩方格纸，现在有一个平面直角坐标系，小D将方块纸放在这个坐标系中，并且方格纸的都与x轴、y轴平行，小D在这上面放了许多的方格纸，然后想知道对于平面直角坐标系中的一个点有多少个方格纸覆盖（包括方格纸的边和点），因为方格纸太多了，所以请聪明的你帮小D解决问题。

输入

第一行 一个正整数N，接下来N行 每行四个正整数x1，y1，x2，y2，分别表示方格纸左下角的坐标和右上角的坐标。
第n+2行一个正整数Q，接下来Q行 每行两个正整数x，y，表示询问点的坐标。

输出

一共Q行，表示对应坐标。

样例输入

3
1 1 5 5
2 2 6 6
3 1 4 3
2
2 2
4 3

样例输出

2
3

数据范围限制

30%的数据， N*Q≤10^7。
100%的数据， N,Q≤10^5,0

思路

因为方格纸所放在的平面直角坐标系的地方十分的小，只有(0,0)到（2000,2000），面积不足，所以只用将
每个点被多少个方格纸覆盖算出来就可以了，直接一个一个加显然不可行，我们可以用差分的思想，把这张方
格纸的四个角加上差分的系数，最后把前缀和求出来就可以了。

时间复杂度 O(N+Q+max x2*max y2)。

---

程序

var
  i,j,n,m,x,y,x1,y1:longint;
  a,f:array[0..3001,0..3001] of longint;
begin
  assign(input,'square.in');
  assign(output,'square.out');
  reset(input);
  rewrite(output);
  readln(n);
  for i:=1 to n do
  begin
    readln(x,y,x1,y1);
    inc(a[x,y]);
    inc(a[x1+1,y1+1]);
    dec(a[x,y1+1]);
    dec(a[x1+1,y]);
  end;
  for i:=1 to 3000 do
    for j:=1 to 3000 do
      f[i,j]:=f[i-1,j]+f[i,j-1]-f[i-1,j-1]+a[i,j];
  readln(m);
  for i:=1 to m do
  begin
    readln(x,y);
    writeln(f[x,y]);
  end;
  close(input);
  close(output);
end.