洛谷1051 谁拿了最多奖学金 解题报告

洛谷1051 谁拿了最多奖学金

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

题目描述

某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同：



1)     院士奖学金，每人8000元，期末平均成绩高于80分（>80），并且在本学期内发表1篇或1篇以上论文的学生均可获得；

2)     五四奖学金，每人4000元，期末平均成绩高于85分（>85），并且班级评议成绩高于80分（>80）的学生均可获得；

3)     成绩优秀奖，每人2000元，期末平均成绩高于90分（>90）的学生均可获得；

4)     西部奖学金，每人1000元，期末平均成绩高于85分（>85）的西部省份学生均可获得；

5)     班级贡献奖，每人850元，班级评议成绩高于80分（>80）的学生干部均可获得；



只要符合条件就可以得奖，每项奖学金的获奖人数没有限制，每名学生也可以同时获得多项奖学金。例如姚林的期末平均成绩是87分，班级评议成绩82分，同时他还是一位学生干部，那么他可以同时获得五四奖学金和班级贡献奖，奖金总数是4850元。



现在给出若干学生的相关数据，请计算哪些同学获得的奖金总数最高（假设总有同学能满足获得奖学金的条件）。

输入输出格式

输入格式：

输入文件scholar.in的第一行是一个整数N（1 <= N <= 100），表示学生的总数。接下来的N行每行是一位学生的数据，从左向右依次是姓名，期末平均成绩，班级评议成绩，是否是学生干部，是否是西部省份学生，以及发表的论文数。姓名是由大小写英文字母组成的长度不超过20的字符串（不含空格）；期末平均成绩和班级评议成绩都是0到100之间的整数（包括0和100）；是否是学生干部和是否是西部省份学生分别用一个字符表示，Y表示是，N表示不是；发表的论文数是0到10的整数（包括0和10）。每两个相邻数据项之间用一个空格分隔。

输出格式：

输出文件scholar.out包括三行，第一行是获得最多奖金的学生的姓名，第二行是这名学生获得的奖金总数。如果有两位或两位以上的学生获得的奖金最多，输出他们之中在输入文件中出现最早的学生的姓名。第三行是这N个学生获得的奖学金的总数。

输入输出样例

输入样例#1：

4
YaoLin 87 82 Y N 0
ChenRuiyi 88 78 N Y 1
LiXin 92 88 N N 0
ZhangQin 83 87 Y N 1

输出样例#1：

ChenRuiyi
9000
28700

说明

2005提高组第一题

题解

模拟+字符串

根据题意，我们很容易想到可以分别计算出每个人满足相应条件所获得的奖学金，然后比较得出最大值和总和。

但是这道题的难点并不在程序设计，而是在实现上。因为字符串都需要readln读入所以读入的字符串不仅包含姓名，还应该包含各个信息。

那么怎样将字符串中的数字或字符信息分离出来呢？笔者采用的方法是枚举字符串中的每一个字符，如果为“ ”（空格），就将当前信息copy（过程）出来，并用val（过程）将数字信息转化为数字。

至此，问题便可以解决。

下面附上代码。

代码

program scholar2;
var
  n,q,b,l,mon,sch,sum,i,j,code:longint;
  s,t,g,x,nam:string;
begin
  readln(n);
  mon:=0;
  sch:=0;
  sum:=0;
  for i:=1 to n do
    begin
      readln(s);
      for j:=1 to length(s) do
        if s[j]=' ' then
          begin
            t:=copy(s,1,j-1);
            delete(s,1,j);
            break;
          end;
      for j:=1 to length(s) do
        if s[j]=' ' then
          begin
            val(copy(s,1,j-1),q,code);
            delete(s,1,j);
            break;
          end;
      for j:=1 to length(s) do
        if s[j]=' ' then
          begin
            val(copy(s,1,j-1),b,code);
            delete(s,1,j);
            break;
          end;
      g:=copy(s,1,1);
      delete(s,1,2);
      x:=copy(s,1,1);
      delete(s,1,2);
      val(s,l,code);
      if (q>80) and (l>0) then
        begin
          inc(mon,8000);
          inc(sum,8000);
        end;
      if (q>85) and (b>80) then
        begin
          inc(mon,4000);
          inc(sum,4000);
        end;
      if q>90 then
        begin
          inc(mon,2000);
          inc(sum,2000);
        end;
      if (q>85) and (x='Y') then
        begin
          inc(mon,1000);
          inc(sum,1000);
        end;
      if (b>80) and (g='Y') then
        begin
          inc(mon,850);
          inc(sum,850);
        end;
      if mon>sch then
        begin
          nam:=t;
          sch:=mon;
          mon:=0;
        end
      else mon:=0;
    end;
  writeln(nam);
  writeln(sch);
  writeln(sum);
end.

（本文系笔者原创，未经允许不得转载）