P1093 奖学金

奖学金

题目描述

　　某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前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）。

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

输出格式：

　　输出文件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

输出样例1

6 265

4 264

3 258

2 244

1 237

2

输入样例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

输出样例2

8 265

2 264

6 264

1 258

5 258

(本题地址)[http://www.luogu.org/problem/show?pid=1093]

---

---

这么水的一题，之所以放出来，是因为

纪念编译一次通过 JoKe

纪念编译一次通过且得分最低 JK

好吧是因为这题特别有代表性 ·严肃·

先贴下我的复杂度低但时间超慢的程序（三关键字快速排序+存储所有的数据）

program p1093;
type
   LL  = longint;
   rec = record
	    chinese, total, order : LL;
	 end;
var
   a		    : array[1..1000] of rec;
   tmp1, tmp2, i, n : LL;

procedure qsort(var l,r	: LL);
var
   x,y : rec;
   i,j : LL;
begin
   x:=a[(l+r) div 2];
   i:=l;
   j:=r;
   repeat
      while (a[i].total>x.total)or((a[i].total=x.total)and(a[i].chinese>x.chinese))or(((a[i].total=x.total)and(a[i].chinese=x.chinese)and(a[i].order<x.order))) do inc(i);
      while (x.total>a[j].total)or((a[j].total=x.total)and(x.chinese>a[j].chinese))or(((a[j].total=x.total)and(a[j].chinese=x.chinese)and(x.order<a[i].order)))do dec(j);
      if i<=j then
      begin
	 y:=a[i];
	 a[i]:=a[j];
	 a[j]:=y;
	 inc(i);
	 dec(j);
      end;
   until i>j;
   if (i<r) then qsort(i,r);
   if (j>l) then qsort(l,j);
end;

begin
   readln(n);
   for i:=1 to n do
   begin
      readln(a[i].chinese,tmp1,tmp2);
      a[i].total:=a[i].chinese+tmp1+tmp2;
      a[i].order:=i;
   end;
   tmp1:=1;
   tmp2:=n;
   qsort(tmp1,tmp2);
   for i:=1 to 5 do writeln(a[i].order,' ',a[i].total);
end.

测试都是对的，但是dear Lord，runtimeerror202，10分

然后贴下题解

    var n,i,j,k,x,y,z:longint;
    s:qword;
    a:array[1..5] of qword;
    begin
      readln(n);
      fillchar(a,sizeof(a),0);
      for i:=1 to n do
        begin
          readln(x,y,z);
          s:=x+y+z;
          s:=s*1000+x;
          s:=s*10000+10000-i;
          j:=1;
          while (a[j]>s)and(j<6) then inc(j);
          if j<6 then
            begin
              for k:=5 downto j+1 do
                a[k]:=a[k-1];
              a[j]:=s;
            end;
        end;
      for i:=1 to 5 do
        writeln(10000-(a[i] mod 10000),' ',a[i] div 10000000);
    end.

细节就不分析了，有一个要点我觉得要注意：

** 位数固定时可以用一个数存一打数 **