Tyvj P1130 奖学金

(07年普及组第一题)

奖学金

(scholar.pas/c/cpp)

【问题描述】

某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前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个用空格隔开的数字，每个数字都在O到100之间z第1行的3个数 字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为l~n (恰好是输入数据的行号减1)。

所给的数据都是正确的，不必检验。

【输出】

输出文件scholar.out共有5行，每行是两个用空格隔开的正整数，依次表示前5名学生的学号和总分。

【输入输出样例1】

scholar.in	scholar.out
6 90 67 80 87 66 91 78 89 91 88 99 77 67 89 64 78 89 98	6 265 4 264 3 258 2 244 1 237

【输入输出样例2】

scholar. in	scholar. out
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	8 265 2 264 6 264 1 258 5 258

【限制】

50%的数据满足:各学生的总成绩各不相同 100%的数据满足: 6<=n<=300

 

program puji2007t1;
 var
  n,i,j:integer;
  yw,sx,yy,t,no:array[1..300]of integer;
 procedure swap(x,y:integer);
  var tot:integer;
  begin
   tot:=t[x];t[x]:=t[y];t[y]:=tot;
   tot:=no[x];no[x]:=no[y];no[y]:=tot;
   tot:=yw[x];yw[x]:=yw[y];yw[y]:=tot;
  end;
 begin
  read (n);
  for i := 1 to n do
   begin
    no[i]:=i;
    read (yw[i],sx[i],yy[i]);
    t[i]:=yw[i]+sx[i]+yy[i];
   end;
  for i := 1 to n do
   for j := 1 to n do
    begin
     if t[i]>t[j]then swap(i,j);
     if t[i]=t[j]then
      begin
       if yw[i]>yw[j]then swap(i,j);
       if yw[i]=yw[j]then
        if no[i]<no[j]then swap(i,j);
      end;
    end;
  for i := 1 to 5 do writeln(no[i],' ',t[i]);
 end.

时隔四年重写，当初0分的速度AC啦~有趣的记忆啊~