CODE[VS] 1652 淘汰赛制 签到暴力

【问题描述】

淘汰赛制是一种极其残酷的比赛制度。2n名选手分别标号1，2，3，…，2n-1，2n，他们将要参加n轮的激烈角逐。每一轮中，将所有参加该轮的选手按标号从小到大排序后，第1位与第2位比赛，第3位与第4位比赛，第5位与第6位比赛……只有每场比赛的胜者才有机会参加下一轮的比赛（不会有平局）。这样，每轮将淘汰一半的选手。n轮过后，只剩下一名选手，该选手即为最终的冠军。

现在已知每位选手分别与其他选手比赛获胜的概率，请你预测一下谁夺冠的概率最大。

【输入文件】

输入文件elimination.in。第一行是一个整数n(l≤n≤l0)，表示总轮数。接下来2n行，每行2n个整数，第i行第j个是pij(0≤pij≤100，pii=0，pij+pji=100)，表示第i号选手与第j号选手比赛获胜的概率。

【输出文件】

输出文件elimination.out。只有一个整数c，表示夺冠概率最大的选手编号（若有多位选手，输出编号最小者）。

【样例输入】

2

0 9050 50

100 10 10

5090 0 50

5090 50 0

【样例输出】

1

【数据规模】

30%的数据满足n≤3；100%的数据满足n≤10。

虽然题目在CV上面是钻石难度但是只要暴力把每一个人的概率算出来就可以AC，我是枚举每一次比赛，更新每一个人的（到这场比赛然后）胜利的概率。

贴代码

var

max:real;

n,i,m,j,q,p,ans:longint;

a:array[0..1025,0..1025]of real;

b,d:array[0..1025]of real;

procedure bl(a1:longint);

var i,p,qq,mid,j,k:longint;

c:real;

begin

for i:=1 to a1 do begin

p:=i*q;

qq:=(i-1)*q+1;

mid:=(p+qq-1) div 2;

j:=qq;

repeat

c:=0;

for k:=mid+1 to p do c:=c+a[j,k]*b[k];

d[j]:=b[j]*c;

inc(j);

until j>mid;

p:=i*q;

qq:=(i-1)*q+1;

mid:=(p+qq-1) div 2;

j:=mid+1;

repeat

c:=0;

for k:=qq to mid do c:=c+a[j,k]*b[k];

d[j]:=b[j]*c;

inc(j);

until j>p

end;

for i:=1 to m do b[i]:=d[i];

end;

begin

read(n);

m:=1;

for i:=1 to n do m:=m*2;

for i:=1 to m do

for j:=1 to m do begin

read(a[i,j]);

a[i,j]:=a[i,j]/100;

end;

for i:=1 to m div 2 do b[i*2-1]:=a[i*2-1,i*2];

for i:=1 to m div 2 do b[i*2]:=a[i*2,i*2-1];

q:=2;

for i:=2 to n do begin

q:=q*2;

bl(m div q);

end;

for i:=1 to m do if b[i]>max then begin

max:=b[i];

ans:=i;

end;

writeln(ans);

end.