NOIP2007 普及组 奖学金

奖学金

问题描述

某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。

任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前五名名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据(每行输出两个数:学号、总分) 是:

7 279 5 279 这两行数据的含义是:总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是 279 (总分等于输入的语文、数学、英语三科成绩之和) ，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是:

5 279 7 279 则按输出错误处理，不能得分。

分析

快排不多说

时间复杂度

O（nlogn）

代码

const
  maxn=1000;
var
  a,b,c,num:array[0..maxn] of longint;
  i,n:longint;
procedure qsort(l,r:longint);
var
  i,j,key,k1,k2:longint;
begin
  if l>=r then exit;
  i:=l; j:=r;
  key:=c[(l+r) div 2];
  k1:=a[(l+r) div 2];
  k2:=num[(l+r) div 2];
  repeat
    while (c[i]>key) or ((c[i]=key) and (a[i]>k1)) or ((c[i]=key) and (a[i]=k1) and (num[i]<k2)) do inc(i);
    while (c[j]<key) or ((c[j]=key) and (a[j]<k1)) or ((c[j]=key) and (a[j]=k1) and (num[j]>k2)) do dec(j);
    if i<=j then
      begin
        a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
        num[0]:=num[i]; num[i]:=num[j]; num[j]:=num[0];
        c[0]:=c[i]; c[i]:=c[j]; c[j]:=c[0];
        inc(i);
        dec(j);
      end;
  until i>j;
  qsort(l,j);
  qsort(i,r);
end;


begin
  readln(n);
  for i:=1 to n do
   begin
    read(a[i],b[i],c[i]);
    num[i]:=i;
    c[i]:=a[i]+b[i]+c[i];
   end;
  randomize;
  qsort(1,n);
  for i:=1 to 5 do
    writeln(num[i],' ',c[i]);
end.