谁拿了最多奖学金-洛谷 1051
2017-01-19 17:28
330 查看
题目描述 某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种,获取的条件各自不同: 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个学生获得的奖学金的总数。 输入输出样例 输入样例#1: 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 输出样例#1: ChenRuiyi 9000 28700 题解:这道题用排序的方式,不断枚举,根据题意判断,然后得出结果。 源代码: var n,i,p,max,jia:longint;s,a,c,b:array[1..101] of longint; s1,sl,st:string;sr,sq,sp:array[1..101] of string; begin readln(n); for i:=1 to n do begin readln(st); st:=st+' '; p:=pos(' ',st); sr[i]:=copy(st,1,p-1); delete(st,1,p);p:=pos(' ',st); s1:=copy(st,1,p-1); val(s1,a[i]);delete(st,1,p);p:=pos(' ',st); s1:=copy(st,1,p-1); val(s1,b[i]);delete(st,1,p);p:=pos(' ',st); sq[i]:=copy(st,1,p-1); delete(st,1,p);p:=pos(' ',st); sp[i]:=copy(st,1,p-1); delete(st,1,p);p:=pos(' ',st); s1:=copy(st,1,p-1); val(s1,c[i]);delete(st,1,p); if (a[i]>80)and(c[i]>0) then s[i]:=s[i]+8000; if (a[i]>85)and(b[i]>80) then s[i]:=s[i]+4000; if (sp[i,1]='Y')and(a[i]>85) then s[i]:=s[i]+1000; if a[i]>90 then s[i]:=s[i]+2000; if (b[i]>80)and(sq[i,1]='Y') then s[i]:=s[i]+850; if max<s[i] then begin max:=s[i]; sl:=sr[i]; end; jia:=jia+s[i]; end; writeln(sl); writeln(max); writeln(jia); end.
相关文章推荐
- 洛谷1051 谁拿了最多奖学金 解题报告
- 洛谷1051 谁拿了最多的奖学金 (2005 noip tg)
- 【寒假任务】 洛谷1051 谁拿了最多奖学金
- 洛谷1051谁拿了最多奖学金
- 洛谷 P1051 谁拿了最多奖学金
- 【排序】洛谷 P1051 谁拿了最多奖学金
- 洛谷-谁拿了最多奖学金-NOIP2005提高组复赛
- 【排序+模拟】谁拿了最多奖学金 luogu-1051
- luogu1051 谁拿了最多奖学金(NOIP2005提高组第1题)
- 洛谷 P1051 谁拿了最多奖学金
- luoguP1051 【谁拿了最多奖学金】
- 洛谷—— P1051 谁拿了最多奖学金
- Vijos 1001题:谁拿了最多奖学金
- NOIP2005 day1 t1 谁拿了最多奖学金
- RQNOJ-16 谁拿了最多的奖学金
- 【模拟】谁拿了最多奖学金
- Vijos:P1001谁拿了最多奖学金
- Sicily 1147 谁拿了最多的奖学金
- P1002 --- 谁拿了最多奖学金
- 04:谁拿了最多奖学金