Free Pascal 程序题

Question

请问错在哪里

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

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个学生获得的奖学金的总数。

Program jiax;
var xinm,ganbu,sibu,maxxinm:string;
qimo,banji,lunwen:integer;
count,max,i,jim,b,code:integer;

temp,tems,temo:string;
temt:integer;
begin
readln(b);
for i:=1 to b do
begin

max:=0;
jim:=0;
xinm:='';
qimo:=0;
banji:=0;
ganbu:='';
sibu:='';
lunwen:=0;

{readln(xinm,qimo,banji,ganbu,sibu,lunwen);}

readln(temp);

temt:=pos(' ',temp);
xinm:=copy(temp,1,temt);

delete(temp,1,temt);
temt:=pos(' ',temp);
temo:=copy(temp,1,temt-1);
val(temo,qimo,code);

delete(temp,1,temt);
temt:=pos(' ',temp);
temo:=copy(temp,1,temt-1);
val(temo,banji,code);

delete(temp,1,temt);
temt:=pos(' ',temp);
ganbu:=(copy(temp,1,temt-1));

delete(temp,1,temt);
temt:=pos(' ',temp);
sibu:=copy(temp,1,temt-1);

delete(temp,1,temt);

temt:=pos(' ',temp);
temo:=copy(temp,1,temt+1);
val(temo,lunwen,code);

{Yuanshi}
if (qimo > 80) and (lunwen >= 1) then jim:=jim+8000;
{wusi}
if (qimo > 85) and (banji > 80) then jim:=jim+4000;
{chenji}
if (qimo > 90) then jim:=jim+2000;
{sibu}
if (qimo > 85) and (sibu='Y') then jim:=jim+1000;
{banji}
if (banji> 80) and (ganbu='Y') then jim:=jim+850;

{huizing}
if jim>max then
begin
max:=jim;
maxxinm:=xinm;
end;
count:=count+jim;
end;

writeln(maxxinm);
writeln(max);
writeln(count);

end.

Answer 1

var a,b,c,s:array[1..100]of longint;m,x,y:array[1..100]of string;
t1,t2:char;n,i,j,l,k,max:longint;sz:int64;t:string;
begin
max:=0;
readln(n);
for i:=1 to n do
begin
readln(t);
while pos(' ',t)>0 do
begin
l:=pos(' ',t);
m[i]:=copy(t,1,l-1);
delete(t,1,l);
l:=pos(' ',t);
val(copy(t,1,l-1),a[i]);
delete(t,1,l);
l:=pos(' ',t);
val(copy(t,1,l-1),b[i]);
delete(t,1,l);
l:=pos(' ',t);
x[i]:=copy(t,1,l-1);
delete(t,1,l);
l:=pos(' ',t);
y[i]:=copy(t,1,l-1);
delete(t,1,l);
val(copy(t,1,99),c[i]);
end;
if (a[i]>80)and(c[i]>0) then inc(s[i],8000);
if (a[i]>85)and(b[i]>80) then inc(s[i],4000);
if (a[i]>90) then inc(s[i],2000);
if (a[i]>85)and(y[i]='Y') then inc(s[i],1000);
if (b[i]>80)and(x[i]='Y') then inc(s[i],850);
inc(sz,s[i]);
if max<s[i] then begin max:=s[i];k:=i;end;
end;
writeln(m[k]);
writeln(s[k]);
writeln(sz);
end.

这是我的 程序 你可以参考下
通过 100分
测试点1: 答案正确 432KB 0MS
测试点2: 答案正确 436KB 0MS
测试点3: 答案正确 432KB 0MS
测试点4: 答案正确 432KB 0MS
测试点5: 答案正确 436KB 0MS
测试点6: 答案正确 432KB 0MS
测试点7: 答案正确 432KB 4MS
测试点8: 答案正确 432KB 4MS
测试点9: 答案正确 436KB 0MS
测试点10: 答案正确 432KB 0MS

Answer 2

有两个问题,其中一个是致命的错误,至于判断奖学金那里没详细看
Program jiax;
var xinm,ganbu,sibu,maxxinm:string;
qimo,banji,lunwen:integer;
count,max,i,jim,b,code:integer;

temp,tems,temo:string;
temt:integer;
begin
readln(b);
max:=0; //max初始化不能放在循环内,否则每次都清0,结果就不正确,这个是致命错误
for i:=1 to b do
begin

jim:=0;
xinm:='';
qimo:=0;
banji:=0;
ganbu:='';
sibu:='';
lunwen:=0;

{readln(xinm,qimo,banji,ganbu,sibu,lunwen);}

readln(temp);

temt:=pos(' ',temp);
xinm:=copy(temp,1,temt); //姓名这里好像应该xinm:=copy(temp,1,temt-1);

delete(temp,1,temt);
temt:=pos(' ',temp);
temo:=copy(temp,1,temt-1);
val(temo,qimo,code);

delete(temp,1,temt);
temt:=pos(' ',temp);
temo:=copy(temp,1,temt-1);
val(temo,banji,code);

delete(temp,1,temt);
temt:=pos(' ',temp);
ganbu:=(copy(temp,1,temt-1));

delete(temp,1,temt);
temt:=pos(' ',temp);
sibu:=copy(temp,1,temt-1);

delete(temp,1,temt);

temt:=pos(' ',temp);
temo:=copy(temp,1,temt+1);
val(temo,lunwen,code);

{Yuanshi}
if (qimo > 80) and (lunwen >= 1) then jim:=jim+8000;
{wusi}
if (qimo > 85) and (banji > 80) then jim:=jim+4000;
{chenji}
if (qimo > 90) then jim:=jim+2000;
{sibu}
if (qimo > 85) and (sibu='Y') then jim:=jim+1000;
{banji}
if (banji> 80) and (ganbu='Y') then jim:=jim+850;

{huizing}
if jim>max then
begin
max:=jim;
maxxinm:=xinm;
end;
count:=count+jim;
end;

writeln(maxxinm);
writeln(max);
writeln(count);

end.

Answer 3

我看着你的读入貌似注销了啊，你写的程序我没有仔细看，我给你一个我的程序。
type
atp = record
avg , cla , text , sum : longint;
monitor , tibet : char;
name : string;
end;

var
a : array[0..101] of atp;
n , i , tot , max , k : longint;
c : char;

procedure init;
begin
readln(n);
for i := 1 to n do
begin
read(c);
while c <> ' ' do
begin
a[i].name := a[i].name + c;
read(c);
end;
read(a[i].avg , a[i].cla ,c, a[i].monitor , c , a[i].tibet , c , a[i].text);
readln;
end;
end;

procedure main;
begin
for i := 1 to n do
begin
if (a[i].avg > 80) and (a[i].text >= 1) then a[i].sum := a[i].sum + 8000;
if (a[i].avg > 85) and (a[i].cla > 80) then a[i].sum := a[i].sum + 4000;
if (a[i].avg > 90) then a[i].sum := a[i].sum + 2000;
if (a[i].avg > 85) and (a[i].tibet='Y') then a[i].sum := a[i].sum + 1000;
if (a[i].cla > 80) and (a[i].monitor='Y')then a[i].sum := a[i].sum + 850;
if max < a[i].sum then
begin
k := i;
max := a[i].sum;
end;
tot := tot + a[i].sum;
end;
writeln(a[k].name);
writeln(a[k].sum);
writeln(tot);
end;

begin
init;
main;
end.

参考资料：去年自己做的！

Answer 4

var
i,max,min，sum:longint; //max,min 为最大，最小值，sum是平均值
a:array [1..20] of longint;//要读入的20个数
begin
sum:=0;
max:=-maxlongint;min:=maxlongint; //数值初始化,maxlongint是系统定的最大longint值，约21亿
for i:=1 to 20 do
begin
read(a[i]);//读入20个数
sum:=sum+a[i];//求出总的和
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];//找出最大，最小值
end;
writeln(max);
writeln(min);
writeln(sum/20);输出答案。。。。
end.
明白了吗？

Answer 5

没错