【模拟】[NOIP2011提高组]铺地毯

题目:[NOIP2011提高组]铺地毯 rqnoj654

题目描述

为了准备一个独特的颁奖典礼，组织者在会场的一片矩形区域（可看做是平面直角坐标
系的第一象限）铺上一些矩形地毯。一共有n 张地毯，编号从1 到n。现在将这些地毯按照
编号从小到大的顺序平行于坐标轴先后铺设，后铺的地毯覆盖在前面已经铺好的地毯之上。
地毯铺设完成后，组织者想知道覆盖地面某个点的最上面的那张地毯的编号。注意：在矩形
地毯边界和四个顶点上的点也算被地毯覆盖。


【数据范围】
对于 30%的数据，有n≤2；
对于 50%的数据，0≤a, b, g, k≤100；
对于 100%的数据，有0≤n≤10,000，0≤a, b, g, k≤100,000。

输入格式

输入共 n+2 行。
第一行，一个整数 n，表示总共有n 张地毯。
接下来的 n 行中，第i+1 行表示编号i 的地毯的信息，包含四个正整数a，b，g，k，每
两个整数之间用一个空格隔开，分别表示铺设地毯的左下角的坐标（a，b）以及地毯在x
轴和y 轴方向的长度。
第 n+2 行包含两个正整数x 和y，表示所求的地面的点的坐标（x，y）。

输出格式

输出共 1 行，一个整数，表示所求的地毯的编号；若此处没有被地毯覆盖则输出-1。

样例输入

[temple 1] 3 1 0 2 3 0 2 3 3 2 1 3 3 2 2 [temple 2] 3 1 0 2 3 0 2 3 3 2 1 3 3 4 5

样例输出

[temple 1] 3 [temple 2] -1

【输入输出样例说明1】
如下图，1 号地毯用实线表示，2 号地毯用虚线表示，3 号用双实线表示，覆盖点（2，
2）的最上面一张地毯是3 号地毯。

【输入输出样例说明2】
如上图，1 号地毯用实线表示，2 号地毯用虚线表示，3 号用双实线表示，点（4，5）
没有被地毯覆盖，所以输出-1。

 

Pascal Code

program rqnoj654;

var
  n:longint;
  x,y,xx,yy:array[0..10000+10] of longint;
  j,k,ans:longint;

procedure init;
begin
  assign(input,'rqnoj654.in');
  assign(output,'rqnoj654.out');
  reset(input);
  rewrite(output);
end;
procedure outit;
begin
  close(input);
  close(output);
  halt;
end;

procedure readdata;
var
  i,a,b:longint;
begin
  read(n);
  for i:=1 to n do
  begin
    read(x[i],y[i],a,b);
    xx[i]:=x[i]+a;
    yy[i]:=y[i]+b;
  end;
  read(j,k);
end;

procedure main;
var
  i:longint;
begin
  ans:=-1;
  for i:=1 to n do
  begin
    if (j>=x[i])and(j<=xx[i])and(k>=y[i])and(k<=yy[i]) then
      ans:=i;
  end;
  writeln(ans);
end;

begin
  init;
  readdata;
  main;
  outit;
end.