洛谷1093奖学金

题目

某小学打算为学习成绩优秀的前5名学生发奖学金。每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。
要求按排名顺序输出前五名名学生的学号和总分。

题解

多关键字排序：
第一关键字——总分
第二关键字——语文
第三关键字——学号
数据范围： n<=300
时间复杂度O(n log n)

代码

var
  i,j,n,x,y:longint;
  a,b,c:array[1..300]of longint;

procedure qsort(l,r:longint);
var
  i,j,key1,key2,key3,p,t:longint;
begin
  if l>=r then exit;
  i:=l;j:=r;
  p:=random(r-l+1)+l;
  key1:=a[p];
  key2:=b[p];
  key3:=c[p];
  repeat
    while ( (a[i]>key1) or ((a[i]=key1)and(b[i]>key2))
            or ((a[i]=key1)and(b[i]=key2)and(c[i]<key3)))and(i<r) do inc(i);
    while ( (a[j]<key1) or ((a[j]=key1)and(b[j]<key2))
            or ((a[j]=key1)and(b[j]=key2)and(c[j]>key3)))and(j>l) do dec(j);
    if i<=j then
      begin
        t:=a[i];a[i]:=a[j];a[j]:=t;
        t:=b[i];b[i]:=b[j];b[j]:=t;
        t:=c[i];c[i]:=c[j];c[j]:=t;
        inc(i);dec(j);
      end;
  until i>j;
  qsort(i,r);
  qsort(l,j);
end;

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