主题:问一道题
某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种,获取的条件各自不同:
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 Format
输入的第一行是一个整数N(1 <= N <= 100),表示学生的总数。接下来的N行每行是一位学生的数据,从左向右依次是姓名,期末平均成绩,班级评议成绩,是否是学生干部,是否是西部省份学生,以及发表的论文数。姓名是由大小写英文字母组成的长度不超过20的字符串(不含空格);期末平均成绩和班级评议成绩都是0到100之间的整数(包括0和100);是否是学生干部和是否是西部省份学生分别用一个字符表示,Y表示是,N表示不是;发表的论文数是0到10的整数(包括0和10)。每两个相邻数据项之间用一个空格分隔。
输出格式 Output Format
输出包括三行,第一行是获得最多奖金的学生的姓名,第二行是这名学生获得的奖金总数。如果有两位或两位以上的学生获得的奖金最多,输出他们之中在输入文件中出现最早的学生的姓名。第三行是这N个学生获得的奖学金的总数
请问以下答案为何出错
program answer;
type student=record
name:string;
point:integer;
classpoint:integer;
cadre:boolean;
west:boolean;
number:integer;
money:longint;
end;
var students:array[1..100] of student;
n:integer;
i,k,h,j,y:integer;
x:string;
b:array[1..5] of integer;
q,w,w1:longint;
begin
read(n);
for i:=1 to n do
begin
read(x);
h:=length(x);
for j:=1 to h do
if x[j]=' ' then begin k:=k+1; b[k]:=j; end;
students[i].name:=copy(x,1,b[1]-1);
val(copy(x,b[1]+1,b[2]-b[1]-1),students[i].point,y);
val(copy(x,b[2]+1,b[3]-b[2]-1),students[i].classpoint,y);
if copy(x,b[3]+1,1)='Y' then students[i].cadre:=true
else students[i].cadre:=false;
if copy(x,b[4]+1,1)='Y' then students[i].west:=true
else students[i].west:=false;
val(copy(x,b[5]+1,1),students[i].number,y);
end;
for i:=1 to n do
begin
if (students[i].point>80) and (students[i].number>=1)
then students[i].money:=students[i].money+8000;
if (students[i].point>85) and (students[i].classpoint>80)
then students[i].money:=students[i].money+4000;
if students[i].point>90
then students[i].money:=students[i].money+2000;
if (students[i].point>85) and (students[i].west=true)
then students[i].money:=students[i].money+1000;
if (students[i].classpoint>80) and (students[i].cadre=true)
then students[i].money:=students[i].money+850;
end;
for i:=1 to n do
begin
q:=q+students[i].money;
if students[i].money>w then
begin w:=students[i].money; w1:=i; end;
end;
writeln(students[w1].name);
writeln(students[w1].money);
writeln(q);
end.
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 Format
输入的第一行是一个整数N(1 <= N <= 100),表示学生的总数。接下来的N行每行是一位学生的数据,从左向右依次是姓名,期末平均成绩,班级评议成绩,是否是学生干部,是否是西部省份学生,以及发表的论文数。姓名是由大小写英文字母组成的长度不超过20的字符串(不含空格);期末平均成绩和班级评议成绩都是0到100之间的整数(包括0和100);是否是学生干部和是否是西部省份学生分别用一个字符表示,Y表示是,N表示不是;发表的论文数是0到10的整数(包括0和10)。每两个相邻数据项之间用一个空格分隔。
输出格式 Output Format
输出包括三行,第一行是获得最多奖金的学生的姓名,第二行是这名学生获得的奖金总数。如果有两位或两位以上的学生获得的奖金最多,输出他们之中在输入文件中出现最早的学生的姓名。第三行是这N个学生获得的奖学金的总数
请问以下答案为何出错
program answer;
type student=record
name:string;
point:integer;
classpoint:integer;
cadre:boolean;
west:boolean;
number:integer;
money:longint;
end;
var students:array[1..100] of student;
n:integer;
i,k,h,j,y:integer;
x:string;
b:array[1..5] of integer;
q,w,w1:longint;
begin
read(n);
for i:=1 to n do
begin
read(x);
h:=length(x);
for j:=1 to h do
if x[j]=' ' then begin k:=k+1; b[k]:=j; end;
students[i].name:=copy(x,1,b[1]-1);
val(copy(x,b[1]+1,b[2]-b[1]-1),students[i].point,y);
val(copy(x,b[2]+1,b[3]-b[2]-1),students[i].classpoint,y);
if copy(x,b[3]+1,1)='Y' then students[i].cadre:=true
else students[i].cadre:=false;
if copy(x,b[4]+1,1)='Y' then students[i].west:=true
else students[i].west:=false;
val(copy(x,b[5]+1,1),students[i].number,y);
end;
for i:=1 to n do
begin
if (students[i].point>80) and (students[i].number>=1)
then students[i].money:=students[i].money+8000;
if (students[i].point>85) and (students[i].classpoint>80)
then students[i].money:=students[i].money+4000;
if students[i].point>90
then students[i].money:=students[i].money+2000;
if (students[i].point>85) and (students[i].west=true)
then students[i].money:=students[i].money+1000;
if (students[i].classpoint>80) and (students[i].cadre=true)
then students[i].money:=students[i].money+850;
end;
for i:=1 to n do
begin
q:=q+students[i].money;
if students[i].money>w then
begin w:=students[i].money; w1:=i; end;
end;
writeln(students[w1].name);
writeln(students[w1].money);
writeln(q);
end.