铺地毯

题目：

题目描述

为了准备一个独特的颁奖典礼，组织者在会场的一片矩形区域（可看做是平面直角坐标系的第一象限）铺上一些矩形地毯。一共有 n 张地毯，编号从 1 到n 。现在将这些地毯按照编号从小到大的顺序平行于坐标轴先后铺设，后铺的地毯覆盖在前面已经铺好的地毯之上。

地毯铺设完成后，组织者想知道覆盖地面某个点的最上面的那张地毯的编号。注意：在矩形地毯边界和四个顶点上的点也算被地毯覆盖。

输入输出格式

输入格式：

输入文件名为carpet.in 。

输入共n+2 行。

第一行，一个整数n ，表示总共有 n 张地毯。

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

第n+2 行包含两个正整数 x 和y，表示所求的地面的点的坐标（x ，y）。

输出格式：

输出文件名为carpet.out 。

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

代码：

const maxn=10005;
var
a:array[1..maxn,1..4]of longint;
n,x,y,i,j:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i,1],a[i,2],a[i,3],a[i,4]);
a[i,3]:=a[i,1]+a[i,3];a[i,4]:=a[i,2]+a[i,4];
end;
readln(x,y);
for i:=n downto 1 do
if (x>=a[i,1])and(x<=a[i,3])and(y>=a[i,2])and(y<=a[i,4]) then
begin
write(i);
exit;
end;
write(-1);
end.