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

转载时必须以链接形式注明原始出处及本声明。