1. 问题
1) 题目描述
某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同：
Ø 院士奖学金，每人8000元，期末平均成绩高于80分（>80），并且在本学期内发表1篇或1篇以上论文的学生均可获得；
Ø 五四奖学金，每人4000元，期末平均成绩高于85分（>85），并且班级评议成绩高于80分（>80）的学生均可获得；
Ø 成绩优秀奖，每人2000元，期末平均成绩高于90分（>90）的学生均可获得；
Ø 西部奖学金，每人1000元，期末平均成绩高于85分（>85）的西部省份学生均可获得；
Ø 班级贡献奖，每人850元，班级评议成绩高于80分（>80）的学生干部均可获得；
只要符合条件就可以得奖，每项奖学金的获奖人数没有限制，每名学生也可以同时获得多项奖学金。例如姚林的期末平均成绩是87分，班级评议成绩82分，同时他还是一位学生干部，那么他可以同时获得五四奖学金和班级贡献奖，奖金总数是4850元。现在给出若干学生的相关数据，请计算哪些同学获得的奖金总数最高（假设总有同学能满足获得奖学金的条件）。
2) 输入格式
输入的第一行是一个整数N（1 <= N <= 100），表示学生的总数。接下来的N行每行是一位学生的数据，从左向右依次是姓名，期末平均成绩，班级评议成绩，是否是学生干部，是否是西部省份学生，以及发表的论文数。姓名是由大小写英文字母组成的长度不超过20的字符串（不含空格）；期末平均成绩和班级评议成绩都是0到100之间的整数（包括0和100）；是否是学生干部和是否是西部省份学生分别用一个字符表示，Y表示是，N表示不是；发表的论文数是0到10的整数（包括0和10）。每两个相邻数据项之间用一个空格分隔。
3) 输出格式
输出包括三行，第一行是获得最多奖金的学生的姓名，第二行是这名学生获得的奖金总数。如果有两位或两位以上的学生获得的奖金最多，输出他们之中在输入文件中出现最早的学生的姓名。第三行是这N个学生获得的奖学金的总数。
4) 样例输入
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
5) 样例输出
ChenRuiyi
9000
28700
2. 分析
1) 大体结构
输入第一行为学生的总数设为k，那么在输入学生总数后，需要一个循环来实现输入学生的信息，循环从1开始到k，循环体内使用字符串接收学生信息
2) 统计最多奖学金与获得者姓名
从上面分析中可得学生信息存储在字符串变量中，需考虑字符串所需个数，由于输入一次信息，可以计算出这个学生所得到的奖学金，所以只需一个字符串来接收信息，设一个整形变量s，s统计最多获得奖学金的学生所得到的奖金，将每次输入学生信息所获得的奖学金计算出来设为v后与s比较，如果大于s则记录获得者姓名，否则继续循环输入学生信息，这里使用大于号是因为当出现奖学金一样的情况时，输出他们之中在输入文件中出现最早的学生的姓名
3) 统计总奖学金
设置变量t来统计总奖学金，上面分析已经把每次输入学生信息所得出的奖学金计算出来，在循环最后使用t=t+v把v值累加进t即可，然后v=0将v值设为0，进行下一轮的输入
4) 字符串分离
根据输入的信息分析，在每一个有用输入数据与下一个有用数据中都存在一个空格，定义a，b，c，d四个字符串变量以及x，y两个整形变量，a保存输入学生字符串的信息，b保存姓名，x保存期末平均分， y保存班级评议成绩，c保存是否是学生干部，d保存是否是西部省份学生，可以通过字符串函数来分离实现
字符串分离具体过程为：
Ø 分离字符
j:=pos(' ',a);//在字符串a中查找出第一个空格的位置，将其所在的位置赋给j
b:=copy(a,1,j-1);//在字符串a中将其下标为1到j-1号的数据复制给b字符串，下标为j的数据为空格，所以j-1
delete(a,1,j);//删除字符串a中下标为1到j的数据，需要把空格去掉所以删除至j
Ø 分离数字
j:=pos(' ',a);//在字符串a中查找出第一个空格的位置，将其所在的位置赋给j
val(copy(a,1,j-1),x,r);//首先进行copy(a,1,j-1)，将字符串a中其下标为1到j-1号的数据复制出来，然后val(复制后的字符串,x,r)来将其转换成整形赋给x，r表示如果赋给x时出错，记录在那个位置出错
delete(a,1,j);// 删除字符串a中下标为1到j的数据
5) 考虑数据类型
学生最多可获奖学金8000+4000+2000+1000+850=15850，人数为1到100，100个人最多可获得158500，而integer类型最多为32767，所以需要将统计总奖学金的变量设置为longint类型
3. 解答
program test;
var
a,b,c,d,n:string;
i,j,k,x,y,z,r,v,s:integer;
t:longint;
begin
readln(k);//输入学生的总人数
for i:=1 to k do
begin
readln(a);//输入每个学生的信息，存入字符串a
//字符串分离
j:=pos(' ',a);
b:=copy(a,1,j-1);
delete(a,1,j);
j:=pos(' ',a);
val(copy(a,1,j-1),x,r);
delete(a,1,j);
j:=pos(' ',a);
val(copy(a,1,j-1),y,r);
delete(a,1,j);
j:=pos(' ',a);
c:=copy(a,1,j-1);
delete(a,1,j);
j:=pos(' ',a);
d:=copy(a,1,j-1);
delete(a,1,j-1);
val(copy(a,1,length(a)),z,r);
//字符串分离结束
//计算奖学金
if (x>80) and (z>=1) then v:=v+8000;
if (x>85) and (y>80) then v:=v+4000;
if x>90 then v:=v+2000;
if (x>85) and (d='Y') then v:=v+1000;
if (x>80) and (c='Y') then v:=v+850;
//计算奖学金结束
//记录最大奖学金与其姓名
if s<v then
begin
s:=v;
n:=b;
end;
//记录最大奖学金与其姓名结束
t:=t+v; //统计所有的奖学金
v:=0;//将v赋值为0进行下一个学生的奖学金统计
end;
//输出信息
writeln(n);
writeln(s);
writeln(t);
//输出信息结束
end.