noip2005谁拿最多奖学金（模拟）题解

描述

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

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元。

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

格式

输入格式

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

输出格式

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

样例1

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

限制

1s

 

思路：

读入数据，判断即可，注意读入的方式

下面给出代码：

program a_1;

var

na:array[1..1000]of string;//名字

p:char;

b,x:array[1..10000]of char;//班干部或西部学生

g,c,atr,money:array[1..10000] of longint;//期末平均成绩和班级评议成绩以及发表的论文数和奖学金

n,max,all,i,k:longint;

used,xi:array[1..10000] of longint;//是否为班干部或西部学生

begin

readln(n);

for i:= 1 to n do

begin

 p:='1';

 while p<>' ' do

 begin

 read(p);

 if p<>' ' then na[i]:=na[i]+p;

 end;

 read(g[i]);

 read(c[i]);

 read(p);

 read(b[i]);

 read(p);

 read(x[i]);

 read(atr[i]);

 if b[i]='Y'

 then used[i]:=1

 else used[i]:=0;

 if x[i]='Y'

 then xi[i]:=1

 else xi[i]:=0;

 readln;

 end;

for i:= 1 to n do

begin

if g[i]>90 then money[i]:= money[i]+2000;

if (g[i]>85) and(c[i]>80) then money[i]:=money[i]+4000;

if (g[i]>85)  and(xi[i]=1) then money[i]:=money[i]+1000;

if (g[i]>80) and (atr[i]>0) then money[i]:=money[i]+8000;

if (used[i]=1) and(c[i]>80) then money[i]:=money[i]+850;

end;

max:=0;

for i:=1 to n do

begin

  if  max<money[i] then

      begin

      max:=money[i];

      k:=i;

      end;

      all:=all+money[i];

end;

{for i:= 1 to n do

if max=money[i] then

k:=i

else

k:=0;}

writeln(na[k]);

writeln(max);

writeln(all);

end.

 [/code]