洛谷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.