NOIP 2011 提高组 铺地毯（vijos 1736）（方法：纯枚举）

     <————————————————————————————————————————————————————————>

         附： 题目链接，               vijos 1736                                                  地址  https://www.vijos.org/p/1736

     <————————————————————————————————————————————————————————>

         var

          a,b,c,d:array[0..10001] of longint;

          n,m,i,j,k:longint;

     <————————————————————————————————————————————————————————>

         纯枚举 - = 一开始想到离散化 - = 然后逗比了                                     数据范围不大，完全可以枚举  - = 大水题-  -

     <————————————————————————————————————————————————————————>

         begin

           readln(n);

           for i := 1 to n do readln(a[i],b[i],c[i],d[i]);

         readln(j,k);

     <————————————————————————————————————————————————————————>

                                                                        读入数据

     <————————————————————————————————————————————————————————>

         for i := n downto 1 do                                                                                        //从   后放的   开始 枚举

         if (a[i] <= j) and (a[i] + c[i] >=j) and(b[i] <= k) and (b[i] + d[i] >=k) then begin      //如果 有覆盖  ，跳出 循环

           writeln(i);

           halt;

         end;

     <————————————————————————————————————————————————————————>

         writeln(-1);                                                                                                        //做到这代表     没有覆盖 ， 输出-1

       end.

转载于:https://www.cnblogs.com/qq359084415/p/3371020.html