简单的模拟——铺地毯

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

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

分析
很简单的一道水题
总之就是标记好那个点，然后每次判断它的坐标有没有在任何一个地毯里面，若有加一，很简单。

var
  n,i,s1,s2,k:longint;
  a,b,c,d:array[1..10000]of longint;
begin
  readln(n);
  for i:=1 to n do
   readln(a[i],b[i],c[i],d[i]);
  readln(s1,s2);
  for i:=1 to n do
   if (s1>=a[i])and(s1<=a[i]+c[i])and(s2>=b[i])and(s2<=b[i]+d[i]) then
      k:=i;
  if k=0 then writeln(-1)
   else writeln(k);
end.