【模拟】谁拿了最多奖学金

题目:谁拿了最多奖学金 rqnoj16

题目描述

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

　　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元。

　　现在给出若干学生的相关数据，请计算哪些同学获得的奖金总数最高（假设总有同学能满足获得奖学金的条件）。

输入格式

　输入的第一行是一个整数N（1 <= N <= 100），表示学生的总数。接下来的N行每行是一位学生的数据，从左向右依次是姓名，期末平均成绩，班级评议成绩，是否是学生干部，是否是西部省份学生，以及发表的论文数。姓名是由大小写英文字母组成的长度不超过20的字符串（不含空格）；期末平均成绩和班级评议成绩都是0到100之间的整数（包括0和100）；是否是学生干部和是否是西部省份学生分别用一个字符表示，Y表示是，N表示不是；发表的论文数是0到10的整数（包括0和10）。每两个相邻数据项之间用一个空格分隔。

输出格式

　　输出包括三行，第一行是获得最多奖金的学生的姓名，第二行是这名学生获得的奖金总数。如果有两位或两位以上的学生获得的奖金最多，输出他们之中在输入文件中出现最早的学生的姓名。第三行是这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

 

题目不难，小心仔细，把情况打完即可

代码是pascal的

 

program rqnoj16;

var
  n:longint;
  a:array[0..100+10] of string;
  sum:array[0..100+10] of longint;
  qimo,pingshi,lunwen:array[0..100+10] of longint;
  xibu,ganbu:array[0..100+10] of char;

procedure init;
begin
  assign(input,'rqnoj16.in');
  assign(output,'rqnoj16.out');
  reset(input);
  rewrite(output);
end;
procedure outit;
begin
  close(input);
  close(output);
  halt;
end;

procedure readdata;
begin
end;

procedure main;
var
  ch:char;
  i:longint;
  best,k,total:longint;
begin
  readln(n);
  best:=-maxlongint;k:=0;
  for i:=1 to n do
  begin
    read(ch);a[i]:='';
    while ch<>' ' do
    begin
      a[i]:=a[i]+ch;
      read(ch);
    end;
    read(qimo[i],pingshi[i],ch,ganbu[i],ch,xibu[i],lunwen[i]);
    
    if (qimo[i]>80)and(lunwen[i]>=1) then inc(sum[i],8000);
    if (qimo[i]>85)and(pingshi[i]>80) then inc(sum[i],4000);
    if (qimo[i]>90) then inc(sum[i],2000);
    if (qimo[i]>85)and(xibu[i]='Y') then inc(sum[i],1000);
    if (pingshi[i]>80)and(ganbu[i]='Y') then inc(sum[i],850);
    
    if sum[i]>best then
    begin
      best:=sum[i];
      k:=i;
    end;
    
    readln;
  end;
  {for i:=1 to n do
    writeln(qimo[i],' ',pingshi[i],' ',ganbu[i],' ',xibu[i],' ',lunwen[i]);}
  writeln(a[k]);
  writeln(best);
  total:=0;
  for i:=1 to n do inc(total,sum[i]);
  writeln(total);
end;


begin
  init;
  readdata;
  main;
  outit;
end.

 

 

 

转载于:https://www.cnblogs.com/oijzh/archive/2012/08/17/2643514.html