NOIP2011复赛普级组 瑞士轮
2016-04-08 21:47
267 查看
瑞士轮" TITLE="NOIP2011复赛普级组 瑞士轮" />
瑞士轮" TITLE="NOIP2011复赛普级组 瑞士轮" />
瑞士轮" TITLE="NOIP2011复赛普级组 瑞士轮" />
解题思路:先读入数据,用快排对所有选手按照实力值排序,然后模拟,每打一场比赛就把赢的和输的分为两个有序数组,再进行归并,最后按要求输出即可。
程序:
const
maxn=100000;
var
a:array[0..2*maxn,1..3] of longint;
b,c:array[0..maxn,1..3] of longint;
n:longint;
procedure qsort(l,r:longint);
var
i,j,k1,k2:longint;
begin
if l>=r then
exit;
i:=l; j:=r;
k1:=a[(i+j) div
2,1];
k2:=a[(i+j) div
2,3];
repeat
while
(a[i,1]>k1)or(a[i,1]=k1)and(a[i,3]
while
(a[j,1]k2) do dec(j);
if
i<=j then
begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
inc(i);dec(j);
end;
until i>j;
qsort(i,r);
qsort(l,j);
end;
procedure merge;
var
p,q,a1,i:longint;
begin
p:=1; q:=1; a1:=0;
while
(p<=n)and(q<=n) do
if
(b[p,1]>c[q,1])or(b[p,1]=c[q,1])and(b[p,3]
else
begin inc(a1); a[a1]:=c[q]; inc(q); end;
for i:=p to n do
begin
inc(a1);
a[a1]:=b[i];
end;
for i:=q to n do
begin
inc(a1);
a[a1]:=c[i];
end;
end;
procedure main;
var
r,q,i,j:longint;
begin
readln(n,r,q);
for i:=1 to n*2 do
read(a[i,1]);
readln;
for i:=1 to n*2 do
begin
read(a[i,2]);
a[i,3]:=i;
end;
qsort(1,n*2);
for i:=1 to r do
begin
for
j:=1 to n do
if a[j*2-1,2]>a[j*2,2] then begin
inc(a[j*2-1,1]); b[j]:=a[j*2-1]; c[j]:=a[j*2]; end
else begin inc(a[j*2,1]);
b[j]:=a[j*2]; c[j]:=a[j*2-1]; end;
merge;
end;
writeln(a[q,3]);
end;
begin
main;
end.
版权属于: Chris
原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v6tf.html
转载时必须以链接形式注明原始出处及本声明。
相关文章推荐
- NOIP2011复赛普级组&nbsp;瑞士轮
- NOIP&nbsp;2011&nbsp;提高组第一试&nbsp;选择客栈
- NOIP&nbsp;2011&nbsp;提高组第一试&nbsp;选择客栈
- NOIP&nbsp;2011&nbsp;提高组第一试&nbsp;铺地毯
- NOIP&nbsp;2011&nbsp;提高组第一试&nbsp;铺地毯
- NOIP2011复赛普级组&nbsp;统计单词数
- NOIP2011复赛普级组&nbsp;统计单词数
- NOIP2011复赛普级组&nbsp;数字反转
- NOIP2011复赛普级组&nbsp;数字反转
- NOIP2010&nbsp;普级组&nbsp;导弹拦截
- NOIP2010&nbsp;普级组&nbsp;导弹拦截
- NOIP2010&nbsp;普级组&nbsp;三国游戏
- NOIP2010&nbsp;普级组&nbsp;三国游戏
- 2012年分区联赛提高组第一天第一题…
- 2012年分区联赛提高组第一天第一题…
- Codeforces Round #316 (Div. 2) D 【dfs序+二分】
- swust 1646 迷宫与宝藏
- hexo资源--theme等
- Linux内核分析(七)
- cenos安装jdk