pascal题目跪求程序某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。 任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前五名名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例
2019-04-13
pascal题目跪求程序
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。
任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前五名名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据(每行输出两个数:学号、总分) 是:
7 279
5 279
这两行数据的含义是:总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是 279 (总分等于输入的语文、数学、英语三科成绩之和) ，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是:
5 279
7 279
则按输出错误处理，不能得分。
优质解答
这似乎是经典的奖学金问题，数据挺弱，冒泡排序就行。
var n,i,j,p:integer;
c,m,e,s,x:array[1..500]of longint;
procedure jh(var i,j:longint);
var t:longint;
begin
t:=i; i:=j; j:=t;
end;
begin
setio;
readln(n);
for i:=1 to n do
begin
readln(c[i],m[i],e[i]);
s[i]:=c[i]+m[i]+e[i];
end;
for i:=1 to n do x[i]:=i;
for i:=1 to n-1 do
begin
p:=i;
for j:=i+1 to n do
if (s[j]>s[p])or((s[j]=s[p])and(c[j]>c[p])) then p:=j;
jh(s[p],s[i]);
jh(x[p],x[i]);
jh(c[p],c[i]);
end;
for i:=1 to 5 do
writeln(x[i],' ',' ',s[i]);
print;
end.
这似乎是经典的奖学金问题，数据挺弱，冒泡排序就行。
var n,i,j,p:integer;
c,m,e,s,x:array[1..500]of longint;
procedure jh(var i,j:longint);
var t:longint;
begin
t:=i; i:=j; j:=t;
end;
begin
setio;
readln(n);
for i:=1 to n do
begin
readln(c[i],m[i],e[i]);
s[i]:=c[i]+m[i]+e[i];
end;
for i:=1 to n do x[i]:=i;
for i:=1 to n-1 do
begin
p:=i;
for j:=i+1 to n do
if (s[j]>s[p])or((s[j]=s[p])and(c[j]>c[p])) then p:=j;
jh(s[p],s[i]);
jh(x[p],x[i]);
jh(c[p],c[i]);
end;
for i:=1 to 5 do
writeln(x[i],' ',' ',s[i]);
print;
end.