Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

版权申明
查看: 5867|回复: 2

奖学金问题【已解决,附解题代码】

[复制链接]

该用户从未签到

发表于 2010-8-17 15:44:09 | 显示全部楼层 |阅读模式
【问题描述】

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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册(注册审核可向QQ群索取)

x
回复

使用道具 举报

该用户从未签到

发表于 2010-8-17 15:47:38 | 显示全部楼层
==这个我们做过的 超简单
15min就搞定了
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2010-11-14 23:59:43 | 显示全部楼层
program scholarship;
var    i,n,he,m,max,qi,wr,cl:longint;
       k,ch,we,gan:char;
       maxname,name:string;
begin
   readln(n);
   max:=-1;
   he:=0;
   k:=' ';
   for i:=1 to n do
   begin
   read(ch);
   name:='';
   while ch<>' ' do
   begin
   name:=name+ch;
   read(ch);
   end;
   readln(qi,cl,k,gan,k,we,wr);

   m:=0;


   if (qi>80) and (wr>=1) then m:=m+8000;
   if (qi>85) and (cl>80) then m:=m+4000;
   if (qi>90) then m:=m+2000;
   if (qi>85) and (we='Y') then m:=m+1000;
   if (cl>80) and (gan='Y') then m:=m+850;
   inc(he,m);
   if m>max then begin max:=m;
   maxname:=name;
   end;
   end;
   writeln(maxname);
   writeln(max);
   writeln(he);
   readln;
   readln;
   end.
回复 支持 反对

使用道具 举报

*滑块验证:

本版积分规则

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

GMT+8, 2024-3-19 14:53 , Processed in 0.028528 second(s), 9 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表