作业帮free pascal 奖学金题目
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/16 03:28:24
free pascal 奖学金题目
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩：语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学排在前面，这样，每个学生的排序是唯一确定的。
任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前5名学生的学号和总分。注意，在前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名学生的学号和总分。
求代码和解析
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩：语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学排在前面，这样，每个学生的排序是唯一确定的。
任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前5名学生的学号和总分。注意，在前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名学生的学号和总分。
求代码和解析
{
我用了快排，用选择排序、冒泡排序也是可以的。
你写完了可以在http://www.tyvj.cn/Problem_Show.asp?id=1130提交
}
var
n:longint; //学生数量
a,b,c:array [1..300] of longint; //用于保存数据
procedure init; //初始化
var i:longint;
begin
readln(n); //读入学生数量
for i:=1 to n do
begin
readln(a[i],b[i],c[i]); //读入语文、数学、英语成绩
b[i]:=a[i]+b[i]+c[i]; //数学成绩没多大用，替换为总成绩
c[i]:=i; //英语成绩没多大用，替换为学号
end;
end;
procedure swap(var a,b:longint); //交换a、b两个数的过程
var t:longint;
begin
t:=a;
a:=b;
b:=t;
end;
function check(a,b,c,d,e,f:longint):boolean; //用于快速排序过程中的判断
begin
if be then exit(true);
if ad then exit(true);
if c
我用了快排，用选择排序、冒泡排序也是可以的。
你写完了可以在http://www.tyvj.cn/Problem_Show.asp?id=1130提交
}
var
n:longint; //学生数量
a,b,c:array [1..300] of longint; //用于保存数据
procedure init; //初始化
var i:longint;
begin
readln(n); //读入学生数量
for i:=1 to n do
begin
readln(a[i],b[i],c[i]); //读入语文、数学、英语成绩
b[i]:=a[i]+b[i]+c[i]; //数学成绩没多大用，替换为总成绩
c[i]:=i; //英语成绩没多大用，替换为学号
end;
end;
procedure swap(var a,b:longint); //交换a、b两个数的过程
var t:longint;
begin
t:=a;
a:=b;
b:=t;
end;
function check(a,b,c,d,e,f:longint):boolean; //用于快速排序过程中的判断
begin
if be then exit(true);
if ad then exit(true);
if c