Input poj 1262 计算几何

Problem

一个地板被若干砖所覆盖。现在请你判断，这些砖是否恰好不重复，不遗漏的恰好覆盖了整个地板。

Input

第一行为一个整数N，表示有N组测试数据。

每组测试数据第一行是两个数l, w，表示地板的长和宽（不超过40000）。

第二行是一个数t，表示有t块砖（1<=t<=400）。

下面t行每行是四个数，xl,yl,xh,yh，其中(xl,yl)是砖的左下角坐标，(xh,yh)是砖的右上角坐标。

Output

每组数据输出包含一行。

如果输入中砖有交叉覆盖，则输出”NONDISJOINT”

否则如果有砖超出了地板，则输出”NONCONTAINED”

否则如果有部分地板没有被覆盖，则输出”NONCOVERING”

否则输出”OK”

分析

本题的关键盘是判断是否有交叉覆盖，判断标准如下：
r.left r.right r.up r.down 表示一个矩形r的左边\右边\上边\下边
四个判断(r1.left < r2.right) and(r2.left < r1.right) and (r1.up < r2.down) and (r2.up < r1.down)
如果答案为true,那就交叉了。

代码

const
maxn=1000;

type
arr=record
x,y:longint;
end;

var
n,m:longint;
l,w:longint;
i,j,k:longint;
left,right:array[1..maxn] of arr;
boom:boolean;
area:longint;

function judge(x,y:longint):boolean;
begin
judge:=true;
if (x<0) or (x>l) or (y<0) or (y>w)
then exit(false);
end;

procedure init;
var
i,j,k:longint;
begin
readln(l,w);
readln(m);
boom:=true;
area:=0;
fillchar(left,sizeof(left),0);
fillchar(right,sizeof(right),0);
for i:=1 to m do
begin
read(left[i].x,left[i].y);
readln(right[i].x,right[i].y);
area:=area+(right[i].x-left[i].x)*(right[i].y-left[i].y);
boom:=judge(left[i].x,left[i].y) and judge(right[i].x,right[i].y);
end;
end;

procedure main;
var
i,j,k:longint;
flag:boolean;
begin
flag:=true;
for i:=1 to m do
for j:=i+1 to m do
if (left[i].x<right[j].x) and (left[j].x<right[i].x) and (left[i].y<right[j].y) and (left[j].y<right[i].y)
then flag:=false;
if not flag
then
begin
writeln('NONDISJOINT');
exit;
end;
if boom=false
then
begin
writeln('NONCONTAINED');
exit;
end;
if area<>l*w
then
begin
writeln('NONCOVERING');
exit;
end;
writeln('OK');
end;

begin
readln(n);
for i:=1 to n do
begin
init;
main;
end;
end.