NOIP 2011 提高组第一试 铺地毯

2011 提高组第一试 铺地毯" TITLE="NOIP 2011 提高组第一试 铺地毯" />


2011 提高组第一试 铺地毯" TITLE="NOIP 2011 提高组第一试 铺地毯" />


2011 提高组第一试 铺地毯" TITLE="NOIP 2011 提高组第一试 铺地毯" />

解题思路：读入数据，用一个二维数组储存，然后从n到1循环，如果在那个点上面有地毯覆盖就输出该地毯的编号并退出循环。如果没有到循环结束就没有找到地毯就输出-1。

程序：

var
n,x,y,i:longint;
a:array[1..10000,1..4] of longint;
begin
readln(n);
for i:=1 to n do

readln(a[i,1],a[i,2],a[i,3],a[i,4]);
read(x,y);
for i:=n downto 1 do
if
(a[i,1]<=x)and(a[i,2]<=y) then if
(a[i,1]+a[i,3]>=x)and(a[i,2]+a[i,4]>=y) then begin write(i);
exit; end;
writeln('-1');
end.

版权属于: Chris
原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v6tc.html
转载时必须以链接形式注明原始出处及本声明。