2017.03.10【NOIP 普及组】模拟赛C组 三条直线Three lines 题解

原题：

http://172.16.0.132/junior/#contest/show/1375/0

题目描述：

FJ想使用购买的新监控系统监视他的N头奶牛（1 <=N<= 50,000）。

第i头牛位置在(x_i, y_i)，这是一对整数坐标，范围在0…1,000,000,000之内。FJ的监控系统有3个特殊的镜头，每一个镜头能够观察垂直或者水平的一行。

请决定FJ是否有可能架设这3个镜头，使他能够观察到所有的N头牛。也就是说，请决定N头牛的位置是否能同时被3条直线所覆盖。这3条直线必须是垂直或者水平的。

输入：

第1行：1个整数N

第2..N+1行：2个整数x_i和y_i，表示第i头牛的坐标

输出：

第1行：如果能监控所有的N头牛，则输出1，否则输出0

样例输入：

6

1 7

0 0

1 2

2 0

1 4

3 4

样例输出：

1

分析：

爆搜······

实现：

type
arr=array[1..5,1..2] of longint;
var
w:arr;
n,i,j:longint;
s:array[0..50007,1..2] of longint;
function check(l,x:longint;w:arr):boolean;
var
i:longint;
begin
for i:=1 to l-1 do
if ((w[i,1]=1) and (w[i,2]=s[x,1])) or ((w[i,1]=2) and (w[i,2]=s[x,2])) then exit(true);
exit(false);
end;
function get(l,x:longint;w:arr):longint;
var
i,j:longint;
bz:boolean;
begin
for j:=x to n do
begin
bz:=false;
for i:=1 to l-1 do
if ((w[i,1]=1) and (w[i,2]=s[j,1])) or ((w[i,1]=2) and (w[i,2]=s[j,2])) then
begin
bz:=true;
break;
end;
if not bz then exit(j);
end;
exit(n+1);
end;
procedure dg(l,x:longint;w:arr);
var
ww:arr;
begin
if (x>n) then
if (l<=4) then
begin
writeln(1);
close(input);close(output);
halt;
end
else exit;
if l>4 then exit;
if check(l,x,w) then dg(l,get(l,x+1,w),w)
else
begin
ww:=w;
ww[l,1]:=1;
ww[l,2]:=s[x,1];
dg(l+1,x+1,ww);
ww:=w;
ww[l,1]:=2;
ww[l,2]:=s[x,2];
dg(l+1,x+1,ww);
end;
end;
begin
assign(input,'3lines.in');reset(input);
assign(output,'3lines.out');rewrite(output);
readln(n);
for i:=1 to n do readln(s[i,1],s[i,2]);
dg(1,1,w);
writeln(0);
close(input);close(output);
end.