奖学金
题目描述
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。
任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前五名名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的
输出数据(每行输出两个数:学号、总分) 是:
7 279
5 279
这两行数据的含义是:总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是 279 (总分等于输入的语文、数学、英语三科成绩之和) ，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是:
5 279
7 279
则按输出错误处理，不能得分。
输入输出格式
输入格式：
输入文件scholar.in包含n+1行:
第1行为一个正整数n，表示该校参加评选的学生人数。
第2到n+1行，每行有3个用空格隔开的数字，每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为1~n（恰好是输入数据的行号减1）。
所给的数据都是正确的，不必检验。
输出格式：
输出文件scholar.out共有5行，每行是两个用空格隔开的正整数，依次表示前5名学生的学号和总分。
输入输出样例
1
输入样例1
6
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98
输出样例1
6 265
4 264
3 258
2 244
1 237
2
输入样例2
8
80 89 89
88 98 78
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98
输出样例2
8 265
2 264
6 264
1 258
5 258
(本题地址)[http://www.luogu.org/problem/show?pid=1093]
这么水的一题，之所以放出来，是因为
纪念编译一次通过 JoKe
纪念编译一次通过且得分最低 JK
好吧是因为这题特别有代表性 ·严肃·
先贴下我的复杂度低但时间超慢的程序（三关键字快速排序+存储所有的数据）
program p1093;
type
LL = longint;
rec = record
chinese, total, order : LL;
end;
var
a : array[1..1000] of rec;
tmp1, tmp2, i, n : LL;
procedure qsort(var l,r : LL);
var
x,y : rec;
i,j : LL;
begin
x:=a[(l+r) div 2];
i:=l;
j:=r;
repeat
while (a[i].total>x.total)or((a[i].total=x.total)and(a[i].chinese>x.chinese))or(((a[i].total=x.total)and(a[i].chinese=x.chinese)and(a[i].order<x.order))) do inc(i);
while (x.total>a[j].total)or((a[j].total=x.total)and(x.chinese>a[j].chinese))or(((a[j].total=x.total)and(a[j].chinese=x.chinese)and(x.order<a[i].order)))do dec(j);
if i<=j then
begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
inc(i);
dec(j);
end;
until i>j;
if (i<r) then qsort(i,r);
if (j>l) then qsort(l,j);
end;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i].chinese,tmp1,tmp2);
a[i].total:=a[i].chinese+tmp1+tmp2;
a[i].order:=i;
end;
tmp1:=1;
tmp2:=n;
qsort(tmp1,tmp2);
for i:=1 to 5 do writeln(a[i].order,' ',a[i].total);
end.
测试都是对的，但是dear Lord，runtimeerror202，10分
然后贴下题解
var n,i,j,k,x,y,z:longint;
s:qword;
a:array[1..5] of qword;
begin
readln(n);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
readln(x,y,z);
s:=x+y+z;
s:=s*1000+x;
s:=s*10000+10000-i;
j:=1;
while (a[j]>s)and(j<6) then inc(j);
if j<6 then
begin
for k:=5 downto j+1 do
a[k]:=a[k-1];
a[j]:=s;
end;
end;
for i:=1 to 5 do
writeln(10000-(a[i] mod 10000),' ',a[i] div 10000000);
end.
细节就不分析了，有一个要点我觉得要注意：
** 位数固定时可以用一个数存一打数 **