P1003 铺地毯

题目描述

在一个平面直角坐标中，铺了n张矩形地毯，编号从1到n，每张地毯按从大到小平行于坐标轴铺设，后铺地毯在先铺地毯之上。

样例输入

3
1 0 2 3
0 2 3 3
2 1 3 3
2 2

样例输出

3

思路

O（2n）
把每一张地毯和问的坐标对比，统计包括坐标的最后一张地毯。

var
  a,b:array[1..10000,1..2] of longint;
  n,i,x,y,ans:longint;
begin
  readln(n);
  for i:=1 to n do
    begin
      readln(a[i,1],a[i,2],b[i,1],b[i,2]);
      b[i,1]:=b[i,1]+a[i,1];
      b[i,2]:=b[i,2]+a[i,2];
    end;
  readln(x,y);
  for i:=1 to n do
    if (x>=a[i,1])and(x<=b[i,1]) then
      if (y>=a[i,2])and(y<=b[i,2]) then
        ans:=i;
  if ans=0 then writeln(-1)
  else writeln(ans);
end.