回 帖 发 新 帖 刷新版面

主题:帮我解题!《谁拿了最多奖学金》

第十一届全国青少年奥林匹克信息学联赛复赛提高组试题

谁拿了最多奖学金
(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

回复列表 (共1个回复)

沙发

var
  s,st,sb                   : string;
  i,n,qc,pc,rw,t,best,total : longint;
  gb,xb                     : char;
  e                         : integer;

begin
  assign(input,'scholar.in'); reset(input);
  assign(output,'scholar.out'); rewrite(output);
  best := 0; total := 0;
  readln(n);
  for i := 1 to n do begin
    readln(s);
    st := copy(s,1,pos(' ',s)-1); delete(s,1,pos(' ',s));
    val(copy(s,1,pos(' ',s)-1),qc,e); delete(s,1,pos(' ',s));
    val(copy(s,1,pos(' ',s)-1),pc,e); delete(s,1,pos(' ',s));
    gb := s[1]; delete(s,1,2);
    xb := s[1]; delete(s,1,2);
    val(s,rw,e);
    t := 0;
    if (qc > 80) and (rw > 0) then inc(t,8000);
    if (qc > 85) and (pc > 80) then inc(t,4000);
    if (qc > 90) then inc(t,2000);
    if (qc > 85) and ((xb = 'Y') or (xb = 'y')) then inc(t,1000);
    if (pc > 80) and ((gb = 'Y') or (gb = 'y')) then inc(t,850);
    if t > best then begin best := t; sb := st; end;
    inc(total,t);
  end;
  writeln(sb);
  writeln(best);
  writeln(total);
  close(input); close(output);
end.

我来回复

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