回 帖 发 新 帖 刷新版面

主题:第十一届全国青少年奥林匹克信息学联赛复赛提高组试题-谁拿了最多奖学金-文件输入常出现的问题,请看看!

[size=5][color=800000]  大家看看这道题,我做过了,原理很简单,可就是输入的时候有点问题,题要求先读名字,再读其它的,这就不免回用到字符串(也可不用,用s:array[1..n]of char),总之是输入的时候用字符串会将后面的一起读进去,请问大家该怎么解决?谢谢!!下面是原题:[/color][/size]
第十一届全国青少年奥林匹克信息学联赛复赛提高组试题 
 
发布日期:  2005-11-21  访问总次数:  20298  
  
(提高组  三小时完成)


谁拿了最多奖学金
(scholar.pas/c/cpp)

【问题描述】
某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种,获取的条件各自不同:

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元。
现在给出若干学生的相关数据,请计算哪些同学获得的奖金总数最高(假设总有同学能满足获得奖学金的条件)。
【输入文件】
输入文件scholar.in的第一行是一个整数N(1 <= N <= 100),表示学生的总数。接下来的N行每行是一位学生的数据,从左向右依次是姓名,期末平均成绩,班级评议成绩,是否是学生干部,是否是西部省份学生,以及发表的论文数。姓名是由大小写英文字母组成的长度不超过20的字符串(不含空格);期末平均成绩和班级评议成绩都是0到100之间的整数(包括0和100);是否是学生干部和是否是西部省份学生分别用一个字符表示,Y表示是,N表示不是;发表的论文数是0到10的整数(包括0和10)。每两个相邻数据项之间用一个空格分隔。
【输出文件】
输出文件scholar.out包括三行,第一行是获得最多奖金的学生的姓名,第二行是这名学生获得的奖金总数。如果有两位或两位以上的学生获得的奖金最多,输出他们之中在输入文件中出现最早的学生的姓名。第三行是这N个学生获得的奖学金的总数。
【样例输入】
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

回复列表 (共13个回复)

11 楼

回答:50:最大位数(姓名是由大小写英文字母组成的长度不超过20的字符串(不含空格);期末平均成绩和班级评议成绩都是0到100之间的整数(包括0和100);是否是学生干部和是否是西部省份学生分别用一个字符表示,Y表示是,N表示不是;发表的论文数是0到10的整数(包括0和10)。)总位数最多为20+3+3+1+1+2+空格符(5)大约为50.

val格式:val(a,b,code){其中a为整数字符串,b和code为整数类型}  作用:把字符串a转为整数并存于b中.    code作用:当a不是整数字符串时(如a='215XYZ'),code为出错位置代码(以上例:经过val(a,b,code)处理后,a值为'215XYZ',b未赋值,code为4);
当a='215'时,经过val(a,b,code)处理后,a值为'215'{字符串类型},b为215{整数类型},code为0.

12 楼

哦,我懂了,谢谢abcwuhang,十分感谢!!

13 楼

取字符串的过程:
PROCEDURE p(student_info: STRING);
VAR
   l, l1, k: INTEGER;
   s1, s2, s3, s4, s5: STRING;
BEGIN
    l := LENGTH(student_info);
    s1 := COPY(student_info, l - 1, 2);
    IF COPY(s1, 1, 1) = ' ' THEN s1 := COPY(s1, 2, 1);
    VAL(s1, composition, k);
    s2 := COPY(student_info, l - LENGTH(s1) - 1, 1);
    IF s2 = 'Y' THEN is_western := TRUE ELSE is_western := FALSE;
    s3 := COPY(student_info, l - LENGTH(s1) - 3, 1);
    IF s3 = 'Y' THEN is_monitor := TRUE ELSE is_monitor := FALSE;
    DELETE(student_info, l - LENGTH(s1) - 3, LENGTH(s1) + 4);
    l := LENGTH(student_info); l1 := l - 1;
    s4 := '';
    REPEAT
         s4 := COPY(student_info, l1, 1) + s4;
         l1 := l1 - 1;
    UNTIL COPY(student_info, l1, 1) = ' ';
    VAL(s4, class_score, k);
    l1 := l1 - 1;
    s5 := '';
    REPEAT
         s5 := COPY(student_info, l1, 1) + s5;
         l1 := l1 - 1;
    UNTIL COPY(student_info, l1, 1) = ' ';
    VAL(s5, test_score, k);
    name := COPY(student_info, 1, l1 - 1);
END;

我来回复

您尚未登录,请登录后再回复。点此登录或注册