竞赛排名_纪中1743_模拟

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.

转载于:https://www.cnblogs.com/olahiuj/p/5781243.html