首页 > 代码库 > 2007奖学金

2007奖学金

题目描述 Description

某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末,每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序,如果两个同学总分相同,再按语文成绩从高到低排序,如果两个同学总分和语文成绩都相同,那么规定学号小的同学排在前面,这样,每个学生的排序是唯一确定的。

任务:先根据输入的3门课的成绩计算总分,然后按上述规则排序,最后按排名顺序输出前5名学生的学号和总分。注意,在前5名同学中,每个人的奖学金都不相同,因此,你必须严格按上述规则排序。例如,在某个正确答案中,如果前两行的输出数据(每行输出两个数:学号、总分)是:

7 279

5 279

这两行数据的含义是:总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是279(总分等于输入的语文、数学、英语三科成绩之和),但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是:

5 279

7 279

则按输出错误处理,不能得分。

输入描述 Input Description

包含n+1行:

第1行为一个正整数n,表示该校参加评选的学生人数。

第2到n+1行,每行有3个用空格隔开的数字,每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为1~n(恰好是输入数据的行号减1)。

输出描述 Output Description

共有5行,每行是两个用空格隔开的正整数, 依次表示前5名学生的学号和总分。

样例输入 Sample Input

6

90 67 80

87 66 91

78 89 91

88 99 77

67 89 64

78 89 98

样例输出 Sample Output

6 265

4 264

3 258

2 244

1 237

数据范围及提示 Data Size & Hint

50%的数据满足:各学生的总成绩各不相同

100%的数据满足:6<=n<=300

 

 

 

题解:

双(多)关键字排序。

排序部分就不说了,比较部分说一下。先比较总分,如果总分相等比较语文,如果语文还相等就比较学号(1~n)。

type ji=record

         yu,shu,ying,xue,zong:longint;

        end;

function f(x,y:ji):boolean;

 begin

  if x.zong<>y.zong then exit(x.zong<y.zong);

  if x.yu<>y.yu then exit(x.yu<y.yu);

  if x.xue<>y.xue then exit(x.xue>y.xue);

 end;

var n,i,j:longint;

    bo:boolean;

    a:array[0..301]of ji;

begin

 readln(n);

 for i:=1 to n do

  begin

   a[i].xue:=i;

   readln(a[i].yu,a[i].shu,a[i].ying);

   a[i].zong:=a[i].yu+a[i].shu+a[i].ying;

  end;

 for i:=1 to n-1 do

  for j:=i+1 to n do

   if f(a[i],a[j]) then

    begin

     a[0]:=a[i];

     a[i]:=a[j];

     a[j]:=a[0];

    end;

 for i:=1 to 5 do writeln(a[i].xue,‘ ‘,a[i].zong);

end.

2007奖学金