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.  

细节就不分析了，有一个要点我觉得要注意：
** 位数固定时可以用一个数存一打数 **