谁拿了最多奖学金

 

谁拿了最多奖学金

(scholar.pas/c/cpp)

 

【问题描述】

 

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

 

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个学生获得的奖学金的总数。

 

【样例输入】

 

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

 

【样例输出】

 

ChenRuiyi

9000

28700

===================

模拟，注意细节

===================

var  n:longint;procedure init;begin  assign(input,'p1054.in');  assign(output,'p1054.out');  reset(input); rewrite(output);end;procedure terminate;begin  close(input); close(output);  halt;end;procedure main;var  i:longint;  ch:char;  st:string;  ans_st:string;  ans_worth,ans_tot,tot:longint;  qi_ave,ban_ave,lw:longint;  gb,xb:char;begin  readln(n);  ans_worth:=0;  ans_tot:=0;  for i:=1 to n do    begin      read(ch);      st:='';      tot:=0;      while ch<>' ' do        begin          st:=st+ch;          read(ch);        end;      read(qi_ave);      read(ban_ave);      read(ch);      read(gb);      read(ch);      read(xb);      readln(lw);      if (qi_ave>80) and (lw>=1) then tot:=tot+8000;      if (qi_ave>85) and (ban_ave>80) then tot:=tot+4000;      if qi_ave>90 then tot:=tot+2000;      if (qi_ave>85) and (xb='Y') then tot:=tot+1000;      if (ban_ave>80) and (gb='Y') then tot:=tot+850;      if tot>ans_worth then        begin          ans_worth:=tot;          ans_st:=st;        end;      ans_tot:=ans_tot+tot;    end;  writeln(ans_st);  writeln(ans_worth);  writeln(ans_tot);end;begin  init;  main;  terminate;end.