码迷,mamicode.com
首页 > 其他好文 > 详细

NOIP2011 铺地毯 题解

时间:2015-08-29 17:03:07      阅读:139      评论:0      收藏:0      [点我收藏+]

标签:2011   noip   铺地毯   pascal   

描述

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

格式

输入格式

输入共n+2行。

第一行,一个整数n(0 <= n <= 10,000),表示总共有n张地毯。

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

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

输出格式

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

样例1

样例输入1[复制]

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

样例输出1[复制]

3

样例2

样例输入2[复制]

3
1 0 2 3
0 2 3 3
2 1 3 3
4 5

样例输出2[复制]

-1

限制

1s

思路:

读入数据后搜索即可
代码:
var f:array[1..10000,1..4]of longint;
n,s,x,y,a:longint;
begin
readln(n);
a:=0;
for s:=1 to n do
readln(f[s,1],f[s,2],f[s,3],f[s,4]);{读入数据}
readln(x,y);
for s:=1 to n do
if (x>=f[s,1])and(x<=f[s,3]+f[s,1])and(y>=f[s,2])and(y<=f[s,4]+f[s,2]){判断(X,Y)在不在里面}
then a:=s;
if a<>0 then
writeln(a)
else
writeln(-1);
end.

版权声明:本文为博主原创文章,未经博主允许不得转载。

NOIP2011 铺地毯 题解

标签:2011   noip   铺地毯   pascal   

原文地址:http://blog.csdn.net/zzx2015/article/details/48088089

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!