Description
Input
输入文件为compe.in。文件的第一行为参赛总人数N(1<=N<=100),从第二行到第N行依次为编号1到编号N的选手的成绩,每行有8个0~100之间的整数,代表该选手的8项竞赛成绩xi1,xi2,。。。,xi8。同一行相邻两个数之间用一个空格符隔开。
Output
输出文件为compe.out。文件有N行,从第一行到第N行依次为排名第1的选手的编号,排名第2的选手的编号,。。。,排名第N的选手的编号。
分析
纯考公式的理解和循环,照做就好
数据有毒,范围实际上是1000而不是100,RE一坨
最好还是不用快排,选择和冒泡都可以考虑
代码
var
x:array[1..1001,1..8]of real;
sumx,sumy,avg,t:array[1..1001]of real;
l:array[1..1001]of longint;
n,i,j,temp:Longint;
tmp:real;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to 8 do
begin
read(x[i,j]);
sumx[i]:=sumx[i]+x[i,j];
avg[j]:=avg[j]+x[i,j];
end;
l[i]:=i;
end;
for j:=1 to 8 do
begin
avg[j]:=avg[j]/n;
for i:=1 to n do
t[j]:=t[j]+abs(x[i,j]-avg[j]);
end;
for i:=1 to n do
begin
for j:=1 to 3 do
if t[j]<>0 then
sumy[i]:=sumy[i]+(x[i,j]-avg[j])*n/t[j];
for j:=4 to 8 do
if t[j]<>0 then
sumy[i]:=sumy[i]+(x[i,j]-avg[j])*n/t[j]*0.8;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (sumy[i]<sumy[j])
or((sumy[i]=sumy[j])and(sumx[i]<sumx[j]))
or((sumy[i]=sumy[j])and(sumx[i]=sumx[j])and(l[i]>l[j]))then
begin
tmp:=sumy[i];
sumy[i]:=sumy[j];
sumy[j]:=tmp;
tmp:=sumx[i];
sumx[i]:=sumx[j];
sumx[j]:=tmp;
temp:=l[i];
l[i]:=l[j];
l[j]:=temp;
end;
for i:=1 to n do
writeln(l[i]);
end.