NOIP2011普及组第三题——瑞士轮 noip2011普及组初赛




NOIP2011普及组第三题——瑞士轮 noip2011普及组初赛

当时用的是快排,但如果每次比完都快排的话,只能得50分。

实质上,只需要使用一次快排就可以了,比赛了,分别用a,b两个数组来储存胜利者和失败,当一轮比赛过后,再将这两个数组进行比较,合并为一个ans数组,可以大大节省时间。

ans[i,1]表示排名第i的选手的积分,ans[i,2]表示实力值,ans[i,3]表示他的编号。a储存胜利者,b储存失败者。

var n,r,q,k,l,m,i,j:longint;

win,lose,a:array[0..220000,1..3] of longint;

procedure qsort(x,y:longint);

var i,j,k,kk:longint;

begin

i:=x;

j:=y;

k:=a[(x+y) shr 1,2];

kk:=a[(x+y) shr 1,1];

while i<j dobegin

while(a[i,2]>k)or(a[i,2]=k)and(a[i,1]<kk)do inc(i);

while(a[j,2]<k)or(a[j,2]=k)and(a[j,1]>kk)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;

end;

if i<y thenqsort(i,y);

if j>x thenqsort(x,j);

end;

begin

readln(n,r,q);

for i:=1 to 2*n doread(a[i,2]);

for i:=1 to 2*n doread(a[i,3]);

for i:=1 to 2*n doa[i,1]:=i;

qsort(1,2*n);

for i:=1 to r do begin

for j:=1 to n do begin

ifa[2*j-1,3]>a[2*j,3] then begin

inc(a[2*j-1,2]);

win[j]:=a[2*j-1];

lose[j]:=a[2*j];

end elsebegin

inc(a[2*j,2]);

win[j]:=a[2*j];

lose[j]:=a[2*j-1];

end;

end;

k:=0;

l:=0;

m:=0;

while (k<n)or(l<n)do begin

if k+1>n thenbegin

for j:=l+1 to n do begin

inc(m);

a[m]:=lose[j];

end;

break;

end;

if l+1>n thenbegin

for j:=k+1 to n do begin

inc(m);

a[m]:=win[j];

end;

break;

end;

inc(m);

if(win[k+1,2]>lose[l+1,2])or(win[k+1,2]=lose[l+1,2])and(win[k+1,1]<lose[l+1,1])then begin

inc(k);

a[m]:=win[k];

end else begin

inc(l);

a[m]:=lose[l];;

end;

end;

end;

writeln(a[q,1]);

close(input);

close(output);

end.

  

爱华网本文地址 » http://www.413yy.cn/a/25101016/296116.html

更多阅读

小小盗贼完美三星攻略:6 第三关4-5

小小盗贼完美三星攻略:[6]第三关4-5——简介《小小盗贼(Tiny Thief)》是《愤怒的小鸟》开发商Rovio公司最新推出的益智休闲游戏。游戏描述了一个像侠客一样的小盗贼,运用机智和计谋战胜强大对手的故事。游戏包含一些让玩家费尽脑汁的

2010快乐男声0605,300进60第三场 快乐男声2007

2010快乐男声0605,300进60第三场主持人:V LADY(刘欣然、吴恙、侯雯、沈梦辰、蒋林伶)评委:陈建宁,朱桦,满江,宋柯第一轮:5人一组进行演唱,评委给出晋级,淘汰结果,待定选手进入第二轮第二轮:待定选手按属性分组PK,最终10位选手晋级60强,其它淘汰

声明:《NOIP2011普及组第三题——瑞士轮 noip2011普及组初赛》为网友半月如弓半月琴分享!如侵犯到您的合法权益请联系我们删除