d555: 平面上的极大点

内容 ：

       在平面上如果有两个点(x,y)与(a,b),我们说(x,y)支配(Dominate)了(a,b)
，这就是指x≧a而且y≧b；用图来看就是(a,b)座落在以(x,y)为右上角的一点无
限的区域中。

       对于平面上的任意一个有限点集合而言，一定存在有若干个点，它们不会被
集合中的内一点所支配，这些个数就构成一个所谓的极大集合。请写一个程式，
读入一个新的集合，找出这个集合中的极大值。

    ※简单的说  若找不到一点在(x,y)的右上方,则(x,y)就要输出

输入说明 ：

每个测资的第一行有一个数字N(1≦N≦50,0000)，代表接下来有N行，
每行上有两个数字x,y (0≦X,Y≦100000)分别代表一点的X轴座标，与Y轴座标。

输出说明 ：

请依照X轴的大小,由小输出至大,剩余的请参考Sample Out。

范例输入 ：

若题目没有特别说明，则应该以多测资的方式读取，若不知如何读取请参考 a001 的范例程式。

11
0 8
1 10
3 4
4 6
4 9
5 8
6 9
7 5
8 7
9 8
10 6 

 

范例输出 ：

Case 1:                               //第几笔测资
Dominate Point: 4                     //点的个数
(1,10)
(6,9)
(9,8)
(10,6)

提示 ：

以上为测资的图  大黑点即为输出的点。 (左下角为(0,0))

 

 

大致是桶排序的原理,建一个1..100000的数组作Y轴,存X轴最大值
再由Y轴从上往下搜,a[i]>b[res,1]就加入.

 

我的程序:

 (**********************************************************************************) (* Problem: d555 "平面上的極大點" from 名題百則 *) (* Language: PASCAL *) (* Result: AC (107ms, 1010KB) on ZeroJudge *) (* Author: hans at 2009-12-05 17:36:23 *) (**********************************************************************************) program Project1; var a:array[0..100000]of longint; b:array[1..500000,1..2]of longint; n,i,x,y,max,min,res,t:longint; begin t:=0; while not eof do begin inc(t); readln(n); for i:=0 to 100000 do a[i]:=-1; max:=-1; min:=100001; for i:=1 to n do begin readln(x,y); if a[y]<x then a[y]:=x; if y>max then max:=y; if y<min then min:=y; end; res:=1; b[1,2]:=max; b[1,1]:=a[max]; for i:=max-1 downto min do begin if a[i]>b[res,1] then begin inc(res); b[res,2]:=i; b[res,1]:=a[i]; end; end; writeln('Case ',t,':'); writeln('Dominate Point: ',res); for i:=1 to res do writeln('(',b[i,1],',',b[i,2],')'); end; end.