2005年分区联赛提高组之一 谁拿了…

Description

　　某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同： 
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元。 

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

Input

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

Output

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

Sample Input

 

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

 

Sample Output

 

ChenRuiyi 

9000 

28700

解题思路：用记录类型储存学生的各项信息，再用if语句，若匹配则在总额加上奖金，最后输出奖金、总人数和总奖金数即可。

程序：

type x=record 

 nam:string; 

 qm:longint; 

 ban:longint; 

 ganbu:char; 

 xibu:char; 

 lunwen:longint; 

 jj:longint; 

 end; 

var n,b,i,j,d:longint; 

 a:array[1..100] of x; 

 t:x; 

 b2:char; 

procedure bi(i:longint); 

begin 

 if (a[i].qm>80) and (a[i].lunwen>=1) then a[i].jj:=a[i].jj+8000; 

 if (a[i].qm>85) and (a[i].ban>80) then a[i].jj:=a[i].jj+4000; 

 if a[i].qm>90 then a[i].jj:=a[i].jj+2000; 

 if (a[i].qm>85) and (a[i].xibu='Y') then a[i].jj:=a[i].jj+1000; 

 if (a[i].ban>80) and (a[i].ganbu='Y') then a[i].jj:=a[i].jj+850; 

end; 

begin 

 readln(n); 

 for i:=1 to n do begin 

 with a[i] do begin 

 read(b2); 

 while b2<>' ' do 

 begin 

 nam:=nam+b2; 

 read(b2); 

 end; 

 readln(qm,ban,ganbu,ganbu,xibu,xibu,lunwen); 

 end; 

 bi(i); 

 end; 

 for b:=1 to n-1 do 

 for j:=1 to n-b do 

 if a[j].jj

 begin 

 t:=a[j];a[j]:=a[j+1];a[j+1]:=t; 

 end; 

 writeln(a[1].nam); 

 writeln(a[1].jj); 

 for b:=1 to n do d:=d+a[b].jj; 

 writeln(d); 

end.

版权属于: Chris
原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v0i3.html
转载时必须以链接形式注明原始出处及本声明。