洛谷1093 奖学金
本题地址：http://www.luogu.org/problem/show?pid=1093
题目描述
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前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）。
所给的数据都是正确的，不必检验。
//感谢 黄小U饮品 修正输入格式
输出格式：
输出文件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 【输入样例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
输出样例#1：
【输出样例1】 6 265 4 264 3 258 2 244 1 237 【输出样例2】 8 265 2 264 6 264 1 258 5 258
题解
排序
一道简单的排序题，多次排序。
将各科成绩求和，将总分降序排序。在这之前不要忘了记录学号，因为排好序后序号很可能改变（还有语文成绩，详见下面的特判）。
特判情况：若多名同学成绩并列，按语文成绩降序排序。如若还存在并列情况，按学号升序排序。
下面附上代码。
代码
- program scholar;
- var
- n,m,i,j,k:longint;
- a:array[1..300,0..4] of longint;
- begin
- readln(n);
- m:=0;
- for i:=1 to n do
- begin
- readln(a[i,1],a[i,2],a[i,3]);
- a[i,0]:=i;
- a[i,4]:=a[i,1]+a[i,2]+a[i,3];
- end;
- for i:=1 to 5 do
- for j:=i+1 to n do
- if (a[i,4]<a[j,4]) or ((a[i,4]=a[j,4]) and (a[i,1]<a[j,1])) or
- ((a[i,4]=a[j,4]) and (a[i,1]=a[j,1]) and (a[i,0]>a[j,0])) then
- begin
- m:=a[i,0];
- a[i,0]:=a[j,0];
- a[j,0]:=m;
- m:=a[i,1];
- a[i,1]:=a[j,1];
- a[j,1]:=m;
- m:=a[i,4];
- a[i,4]:=a[j,4];
- a[j,4]:=m;
- end;
- for i:=1 to 5 do
- writeln(a[i,0],‘ ‘,a[i,4]);
- end.
（本文系笔者原创，未经允许不得转载）