• 洛谷1093 奖学金 解题报告


    洛谷1093 奖学金

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

    题目描述

      某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前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)。 
      所给的数据都是正确的,不必检验。 

    //感谢 黄小U饮品 修正输入格式

    输出格式:

      输出文件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
    【输入样例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

    输出样例#1:

    【输出样例1】
    6 265
    4 264
    3 258
    2 244
    1 237
    【输出样例2】
    8 265
    2 264
    6 264
    1 258
    5 258

    题解

    排序

    一道简单的排序题,多次排序。

    将各科成绩求和,将总分降序排序。在这之前不要忘了记录学号,因为排好序后序号很可能改变(还有语文成绩,详见下面的特判)。

    特判情况:若多名同学成绩并列,按语文成绩降序排序。如若还存在并列情况,按学号升序排序。

    下面附上代码。

    代码

    1. program scholar;  
    2. var  
    3.   n,m,i,j,k:longint;  
    4.   a:array[1..300,0..4] of longint;  
    5. begin  
    6.   readln(n);  
    7.   m:=0;  
    8.   for i:=to n do  
    9.     begin  
    10.       readln(a[i,1],a[i,2],a[i,3]);  
    11.       a[i,0]:=i;  
    12.       a[i,4]:=a[i,1]+a[i,2]+a[i,3];  
    13.     end;  
    14.   for i:=to do  
    15.     for j:=i+to n do  
    16.       if (a[i,4]<a[j,4]) or ((a[i,4]=a[j,4]) and (a[i,1]<a[j,1])) or  
    17.       ((a[i,4]=a[j,4]) and (a[i,1]=a[j,1]) and (a[i,0]>a[j,0])) then  
    18.         begin  
    19.           m:=a[i,0];  
    20.           a[i,0]:=a[j,0];  
    21.           a[j,0]:=m;  
    22.           m:=a[i,1];  
    23.           a[i,1]:=a[j,1];  
    24.           a[j,1]:=m;  
    25.           m:=a[i,4];  
    26.           a[i,4]:=a[j,4];  
    27.           a[j,4]:=m;  
    28.         end;  
    29.   for i:=to do  
    30.     writeln(a[i,0],' ',a[i,4]);  
    31. end.  

    (本文系笔者原创,未经允许不得转载)

    博文系博主原创,转载请注明出处 o(* ̄▽ ̄*)ブ 更多博文源自https://www.cnblogs.com/yzm10
  • 相关阅读:
    [转]我们应该做什么样的研究
    [转]面向服务架构(SOA)和企业服务总线(ESB)
    [转]程序员应知——团队精神
    vs2010 调试快捷键
    asp.net 获取ip的6种方法
    解决了防止用户重复登陆和session超时
    IE 10 也能随网站应变,图标决定一切!
    Sony VAIO Duo 11 游戏性能测试
    翻出Windows 8 当中的游戏管理器
    Office 2013预览版已到期,需要付费才可正常使用
  • 原文地址:https://www.cnblogs.com/yzm10/p/4749083.html
Copyright © 2020-2023  润新知