奖学金
问题描述
某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前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.