【NOIP2011PJ】瑞士轮

【NOIP2011PJ】瑞士轮

题目：

【背景】  

在双人对决的竞技性比赛，如乒乓球、羽毛球、国际象棋中，最常见的赛制是淘汰赛和循环赛。前者的特点是比赛场数少，每场都紧张刺激，但偶然性较高。后者的特点是较为公平，偶然性较低，但比赛过程往往十分冗长。  

本题中介绍的瑞士轮赛制，因最早使用于 1895 年在瑞士举办的国际象棋比赛而得名。它可以看作是淘汰赛与循环赛的折衷，既保证了比赛的稳定性又能使赛程不至于过长。

【问题描述】  

2*N 名编号为1~2N 的选手共进行R 轮比赛。每轮比赛开始前，以及所有比赛结束后，都会按照总分从高到低对选手进行一次排名。选手的总分为第一轮开始前的初始分数加上已参加过的所有比赛的得分和。总分相同的，约定编号较小的选手排名靠前。 每轮比赛的对阵安排与该轮比赛开始前的排名有关：第 1 名和第2 名、第3 名和第4名、……、第2K – 1 名和第2K 名、…… 、第 2N – 1 名和第2N 名，各进行一场比赛。每场比赛胜者得1 分，负者得0 分。也就是说除了首轮以外，其它轮比赛的安排均不能事先确定，而是要取决于选手在之前比赛中的表现。 现给定每个选手的初始分数及其实力值，试计算在 R 轮比赛过后，排名第Q 的选手编号是多少。我们假设选手的实力值两两不同，且每场比赛中实力值较高的总能获胜。

水分很容易，暴力快排模拟就可以

满分的做法是归并排序

首先一开始排一次序每次把数组分成两个部分，赢的人和输的人

推一推就会发现这两个数组一定是有序的

然后用一次归并在把两个数组合并成一个有序的数组（具体可参考书）

就可以了

这里给出归并的代码，仅供参考

procedure merge;

var i,j,k,l,w1,l1:longint;

begin  

fillchar(c,sizeof(c),0);  

i:=1;    

j:=1;  

k:=0;  

while(i<=n)and(j<=n)do  

begin  

if(win[i,1]>lose[j,1])or(win[i,1]=lose[j,1])and(win[i,3]  

begin  

inc(k);  

c[k]:=win[i];  

inc(i)  

end  

else  

begin  

inc(k);  

c[k]:=lose[j];  

inc(j);  

end;  

end;  

if i<=n then  

repeat  

inc(k);  

c[k]:=win[i];  

inc(i);  

until i>n  

else  

repeat  

inc(k);  

c[k]:=lose[j];  

inc(j);  

until j>n;  

a :=c;

end;