noip2005复赛 第一题 pascal代码

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:52:23
某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同：

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

汗。。这个程序好像有很多问题啊～
1.定义数组的时候不能定义在CONST下面，CONST是常量定义，相当于数学里面的定值，是不可改变的！而些题里的数组显然是要经过运算的，所以应放在VAR里面。
2.a[i].xingming是一个string类型的变量而x是一个char类型的变量。string相当于char的数组（只是相当string还有很多的运算）类型不相容，不能相加。
3.楼主没有理解题目的意思，运算上也不对。
这题和VIJOS的题目是一样的，我把自己写的代码给你吧。
有不懂的就补充问题问我吧～
Program Zax;
Var
n,Ma,Po:integer;
Su:longint;
ls:char;
Name:array [1..150] of string;
So1,So2,Article,Money:array [1..150] of integer;
O1,O2:array [1..150] of boolean;
Procedure Readin;
Var
i,j:integer;
begin
Fillchar(so1,sizeof(so1),0);
fillchar(so2,sizeof(so2),0);
Readln(n);
For i:=1 to n do
begin
j:=1;
Repeat
Read(ls);
If ls<>' '
then begin Insert(ls,Name[i],j); j:=j+1; end
else Break;
Until ls=' ';
read(so1[i]); Read(so2[i]);
read(ls); Read(ls); If ls='