主题：请教大家：题不难，但怎样才能准确有效地读进数据呢？
pascaler
[专家分：150] 发布于 2006-04-05 06:14:00
某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同：
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个学生获得的奖学金的总数。
样例输入 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
回复列表 （共6个回复）
沙发
贺天行宝 [专家分：2300] 发布于 2006-04-05 19:42:00
你这是vijos上的把，我也做了，但错了。。。。。。
我使用字符串读入的
var
s,name,maxname:string;
qimo,banji,lunwen,i,max1,n,k,max2,sum:longint;
ganbu,xibu:boolean;
begin
readln(n);max1:=0;max2:=0;
sum:=0;
for k:=1 to n do
begin
readln(s);i:=pos(' ',s);
name:=copy(s,1,i-1);
delete(s,1,i);
qimo:=0;
i:=1;
while s[i]<>' ' do
begin
qimo:=qimo*10+ord(s[i])-48;
inc(i);
end;
delete(s,1,i);
banji:=0;
i:=1;
while s[i]<>' ' do
begin
banji:=banji*10+ord(s[i])-48;
inc(i);
end;
delete(s,1,i);
if s[1]='Y' then ganbu:=true else ganbu:=false;
delete(s,1,2);
if s[1]='Y' then xibu:=true else xibu:=false;
delete(s,1,2);
lunwen:=0;
i:=1;
while s[i]<>' ' do
begin
lunwen:=lunwen*10+ord(s[i])-48;
inc(i);
end;
delete(s,1,i);
max1:=0;
if (qimo>80)and(lunwen>=1) then inc(max1,8000);
if (qimo>85)and(banji>80) then inc(max1,4000);
if (qimo>90) then inc(max1,2000);
if (qimo>85)and(xibu=true) then inc(max1,1000);
if (banji>80)and(ganbu=true) then inc(max1,850);
if max1>max2 then begin max2:=max1; maxname:=name; end;
inc(sum,max1);
end;
writeln(maxname);
writeln(max2);
writeln(sum);
end.
你能找找错就感激不敬了
板凳
pascaler [专家分：150] 发布于 2006-04-06 06:43:00
这是我做的，我在机子上测试没问题，为什么就是通过不了VIJOS
program award;
const max=100;
var ch:char;
name,maxer:string[20];
i,n,qimo,banji:1..max;
bangan,xibu:char;
lunwen:integer;
maxaward,awarding:integer;
sum:longint;
procedure readin;
var ch:char;
begin
read(ch);name:='';
repeat
name:=name+ch;
read(ch);
until ch=' ';
read(qimo,banji);read(ch);read(bangan,xibu);read(ch);readln(lunwen);
end;
begin
readln(n);
for i:=1 to n do
begin
readin; awarding:=0;
if (qimo>80) and (lunwen>=1) then
awarding:=awarding+8000;
if (qimo>85) and (banji>80) then
awarding:=awarding+4000;
if qimo>90 then
awarding:=awarding+2000;
if (qimo>85)and(xibu='Y') then
awarding:=awarding+1000;
if (qimo>80) and (bangan='Y') then
awarding:=awarding+850;
if awarding>maxaward
then begin
maxaward:=awarding;
maxer:=name
end;
sum:=sum+awarding
end;
writeln(maxer);
writeln(maxaward);
writeln(sum)
end.
3 楼
acen [专家分：200] 发布于 2006-04-06 16:39:00
其实，pascaler的程序中读如入部分，在读班级以后的东东时可以把他们合在一个read中。
这个题目其实是2005年的决赛题。
4 楼
acen [专家分：200] 发布于 2006-04-06 17:00:00
回，贺天行宝。
我测试了以下你的程序，发现没问题，不过我把读取方式改为了从文件读取，输出到文件，答案更题目一样。
你可以试试！
var
s,name,maxname:string;
qimo,banji,lunwen,i,max1,n,k,max2,sum:longint;
ganbu,xibu:boolean;
f:text;
begin
assign(f,'input.in');
reset(f);
readln(f,n);max1:=0;max2:=0;
sum:=0;
for k:=1 to n do
begin
readln(f,s);i:=pos(' ',s);
name:=copy(s,1,i-1);
delete(s,1,i);
qimo:=0;
i:=1;
while s[i]<>' ' do
begin
qimo:=qimo*10+ord(s[i])-48;
inc(i);
end;
delete(s,1,i);
banji:=0;
i:=1;
while s[i]<>' ' do
begin
banji:=banji*10+ord(s[i])-48;
inc(i);
end;
delete(s,1,i);
if s[1]='Y' then ganbu:=true else ganbu:=false;
delete(s,1,2);
if s[1]='Y' then xibu:=true else xibu:=false;
delete(s,1,2);
lunwen:=0;
i:=1;
while s[i]<>' ' do
begin
lunwen:=lunwen*10+ord(s[i])-48;
inc(i);
end;
delete(s,1,i);
max1:=0;
if (qimo>80)and(lunwen>=1) then inc(max1,8000);
if (qimo>85)and(banji>80) then inc(max1,4000);
if (qimo>90) then inc(max1,2000);
if (qimo>85)and(xibu=true) then inc(max1,1000);
if (banji>80)and(ganbu=true) then inc(max1,850);
if max1>max2 then begin max2:=max1; maxname:=name; end;
inc(sum,max1);
end;
close(f);
assign(f,'output.out');
rewrite(f);
writeln(f,maxname);
writeln(f,max2);
writeln(f,sum);
close(f);
end.
5 楼
贺天行宝 [专家分：2300] 发布于 2006-04-06 17:41:00
??什么意思啊??
6 楼
acen [专家分：200] 发布于 2006-04-07 17:14:00
其实大部分没变,只是把你的读取数据数量和字符串部分改成了从文件读取,即加一个"f,",文件可以用记事本制作,保存为input.in,内容如下:
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
按理说直接从键盘读取也没问题,可能你在输入 数据时输错了.
我来回复
您所在位置：