P1003 铺地毯

题目描述

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

样例输入

31 0 2 30 2 3 32 1 3 32 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.