var
ans,max,total,x,y,z,n,i:longint;
a,b,s,p:string;

begin
readln(n);
total:=0;max:=0;
for i:=1 to n do
begin
ans:=0;
readln(s,x,y,a,b,z);

if (x>=80) and (z>=1) then inc(ans,8000);
if (x>=85) and (y>=80) then inc(ans,4000);
if (x>=90) then inc(ans,2000);
if (x>=85) and (a='Y') then inc(ans,1000);
if (y>=80) and (b='Y') then inc(ans,850);

inc(total,ans);

if ans>max then begin
p:=s;
max:=ans;
end;
end;
writeln(p);
writeln(max);
writeln(total);
readln;
end.
求大神纠错，谢啦

通俗易懂
var
s:array[1..100]of string;
qimo,banji,lunwen,jiangjin:array[1..100]of longint;
ganbu,xibu:array[1..100]of char;
i,j,n,max:longint;
ch:char;
na:string;
sum:longint;
begin
readln(n);
for i:=1 to n do
begin
read(ch);
while ch<>' ' do
begin
s[i]:=s[i]+ch;
read(ch);
end;
read(qimo[i],banji[i]);
read(ch);
read(ch);
ganbu[i]:=ch;
read(ch);
read(ch);
xibu[i]:=ch;
readln(lunwen[i]);
if (qimo[i]>80)and(lunwen[i]>=1) then inc(jiangjin[i],8000);
if (qimo[i]>85)and(banji[i]>80) then inc(jiangjin[i],4000);
if qimo[i]>90 then inc(jiangjin[i],2000);
if (xibu[i]='Y')and(qimo[i]>85) then inc(jiangjin[i],1000);
if (ganbu[i]='Y')and(banji[i]>80) then inc(jiangjin[i],850);
inc(sum,jiangjin[i]);
end;
max:=jiangjin[1];
for i:=1 to n do if max<jiangjin[i] then
begin
max:=jiangjin[i];
na:=s[i];
end;
writeln(na);
writeln(max);
writeln(sum);
end.

各种小细节
var a:array[1..5] of integer;
n,i,j,k,max,m,mm:longint;
nam,ss,s,nn:string;
begin
readln(n);
for i:= 1 to n do begin
m:=0;
readln(s);
s:=s+' ';
k:=0;
nam:='';
for j:= 1 to length(s) do begin
if copy(s,j,1)=' ' then begin
if k<>0 then begin
if ss='Y' then ss:='1';
if ss='N' then ss:='0';
val(ss,a[k]);
k:=k+1;
ss:='';
end;

if k=0 then begin
nam:=ss;
k:=1;
ss:='';
end;
end;

if copy(s,j,1)<>' ' then ss:=ss+copy(s,j,1);

end;

if (a[1]>80) and (a[5]>=1) then m:=m+8000;
if (a[1]>85) and (a[2]>80) then m:=m+4000;
if a[1]>90 then m:=m+2000;
if (a[1]>85) and (a[4]=1) then m:=m+1000;
if (a[2]>80) and (a[3]=1) then m:=m+850;
if m>max then
begin

max:=m;
nn:=nam;
end;
mm:=mm+m;
end;
writeln(nn);
writeln(max);
write(mm);
end.

#include<iostream>
#include<string>
using namespace std;
int main()
{
int maxjj=-1,sumjj=0,jj,n;
string maxjjn,jjn;
int qmpjcj,bjpycj,fblws;
char xsgb,xbsfxs;
cin>>n;
for(int i=0;i<n;i++)
{
cin>>jjn>>qmpjcj>>bjpycj>>xsgb>>xbsfxs>>fblws;
jj=0;
if(qmpjcj>80&&fblws>0)
jj+=8000;
if(qmpjcj>85&&bjpycj>80)
jj+=4000;
if(qmpjcj>90)
jj+=2000;
if(qmpjcj>85&&xbsfxs=='Y')
jj+=1000;
if(bjpycj>80&&xsgb=='Y')
jj+=850;
sumjj+=jj;
if(jj>maxjj)
maxjj=jj,maxjjn=jjn;
}
cout<<maxjjn<<endl<<maxjj<<endl<<sumjj<<endl;
return 0;
}

#include <iostream>
#include <cstdio>
#include <cstdlib>
#include <cstring>
using namespace std;
int main()
{
int n;
int a,b,c,res=0,summ=0;
char mname[11];
char d,e;
scanf("%d",&n);
for(int i=0;i<n;i++)
{
char name[11]="";
int sum=0;
scanf("%s %d %d %c %c %d",name,&a,&b,&d,&e,&c);
if(a>80 && c>=1)
sum+=8000;
if(a>85 && b>80)
sum+=4000;
if(a>90)
sum+=2000;
if(a>85 && e=='Y')
sum+=1000;
if(b>80 && d=='Y')
sum+=850;
res+=sum;
if(sum>summ)
{
for(int j=0;j<=strlen(mname);j++)
mname[j]=0;
for(int j=0;j<=strlen(name);j++)
mname[j]=name[j];
summ=sum;
}
}
puts(mname);
printf("%d\n%d",summ,res);
return 0;
}

题解：http://blog.163.com/syf_light_feather/blog/static/22375506720136288513240/

【PYTHON】第一次提交Wrong Answer，第二次把 n=input(int) 改成 n=int(raw_input()) 就过了。
这是怎么回事啊。。

定义一个类表示学生的基本资料：
#include<iostream>
using namespace std;
class student
{
private:
char name[21];
int qm,bj,lw;
bool gb,xb;
public:
void get()
{
cin>>name>>qm>>bj;
char a,b;
cin>>a>>b;
if(a=='Y')
gb=true;
else
gb=false;
if(b=='Y')
xb=true;
else
xb=false;
cin>>lw;
}
int jj()
{
int ans=0;
if(qm>80 && lw>=1)
ans+=8000;
if(qm>85 && bj>80)
ans+=4000;
if(qm>90)
ans+=2000;
if(qm>85 && xb)
ans+=1000;
if(bj>80 && gb)
ans+=850;
return ans;
}
void put()
{
cout<<name<<endl;
}
};
int main()
{
int n,maxn=0,sum=0;
student stu,mstu;
cin>>n;
for(int i=0;i<n;i++)
{
stu.get();
int x=stu.jj();
if(x>maxn)
{
maxn=x;
mstu=stu;
}
sum+=x;
}
mstu.put();
cout<<maxn<<endl
<<sum<<endl;
return 0;
}

注意__不能__在定义结构体程序段的内部给结构体变量赋初值，windos下只显示警告信息，linux下却会编译失败，另外可以尝试优化程序结构，减少判断次数。

####Block code
#include <stdio.h>

#define bonus_acade 8000
#define bonus_54 4000
#define bonus_grade 2000
#define bonus_west 1000
#define bonus_contr 850

struct student
{
char name[21],iswest,islead;
int fingra,totgra,numlit,bonusum;
}infor[100];
int main(void)
{
int N,i,groupbon=0,max=0,person;
scanf("%d",&N);
for(i=0;i<N;i++)
{
scanf("%s %d %d %c %c %d",&infor[i].name,&infor[i].fingra,
&infor[i].totgra,&infor[i].islead,&infor[i].iswest,&infor[i].numlit);
infor[i].bonusum=0;
if(infor[i].fingra>80)
{
if(infor[i].numlit>=1)
{
infor[i].bonusum+=bonus_acade;
groupbon+=bonus_acade;
}
if(infor[i].fingra>85 && infor[i].totgra>80)
{
infor[i].bonusum+=bonus_54;
groupbon+=bonus_54;
}
if(infor[i].fingra>90)
{
infor[i].bonusum+=bonus_grade;
groupbon+=bonus_grade;
}
if(infor[i].fingra>85 && infor[i].iswest=='Y')
{
infor[i].bonusum+=bonus_west;
groupbon+=bonus_west;
}
}
if(infor[i].totgra>80 && infor[i].islead=='Y')
{
infor[i].bonusum+=bonus_contr;
groupbon+=bonus_contr;
}
}

for(i=0;i<N;i++)
if(infor[i].bonusum>max)
{
max=infor[i].bonusum;
person=i;
}
printf("%s\n%d\n%d",infor[person].name,infor[person].bonusum,groupbon);
return 0;
}

求纠错
#include<iostream>
using namespace std;
int main() {
int n;
cin>>n;
int i,j,qm[101],bj[101],lw[101],jj[101],max=0,k,tot;
char gb[101],xb[101];
string name[101];
for(i=1;i<=n;i++) cin>>name[i]>>qm[i]>>bj[i]>>gb[i]>>xb[i]>>lw[i];
for(i=1;i<=n;i++) {
if(qm[i]>80&&lw[i]>=1) jj[i]+=8000;
if(qm[i]>85&&bj[i]>80) jj[i]+=4000;
if(qm[i]>90) jj[i]+=2000;
if(qm[i]>85&&xb[i]=='Y') jj[i]+=1000;
if(bj[i]>80&&gb[i]=='Y') jj[i]+=850;
if(max<jj[i])
{
k=i;
max=jj[i];
}
tot+=jj[i];
}
cout<<name[k]<<endl<<jj[k]<<endl<<tot;
return 0;
}

P1001题解
试题
　　描述
　　某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同：
　　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
　　限制
　　1s
题解
　　分析
　　本题从题意分析是一道模拟题，从数据分析是一道小数据题。
　　本题是一道条件复杂、做法简单的模拟题。
　　因此本题主要考察选手的基本编程能力。
　　本题做法较简单，可以直接简单模拟。
　　具体做法
　　1、数据初始化；
　　2、循环3-6的操作直到处理完所有数据；
　　3、输入一组数据；
　　4、根据条件计算奖金值；
　　5、累加奖金值；
　　6、与最大值比较，并按情况覆盖；
　　7、输出结果；
　　代码
　　#include<iostream>
　　#include<string>
　　using namespace std;
　　int main()
　　{
　　//数据初始化
　　 int maxjj=-1,sumjj=0,jj=0,n;
　　 string maxjjn,jjn;
　　 int qmpjcj,bjpycj,fblws;
　　 char xsgb,xbsfxs;
　　 cin>>n;
　　
　　//循环操作直到处理完所有数据
　　 for(int i=0;i<n;i++,jj=0)
　　 {
　　//输入一组数据
　　 cin>>jjn>>qmpjcj>>bjpycj>>xsgb>>xbsfxs>>fblws;
　　//根据条件计算奖金值
　　 if(qmpjcj>80&&fblws>0)
　　 jj+=8000;
　　 if(qmpjcj>85&&bjpycj>80)
　　 jj+=4000;
　　 if(qmpjcj>90)
　　 jj+=2000;
　　 if(qmpjcj>85&&xbsfxs=='Y')
　　 jj+=1000;
　　 if(bjpycj>80&&xsgb=='Y')
　　 jj+=850;
　　//累加奖金值
　　 sumjj+=jj;
　　//与最大值比较，并按情况覆盖
　　 if(jj>maxjj)
　　 maxjj=jj,maxjjn=jjn;
　　 }
　　//输出结果
　　 cout<<maxjjn<<endl<<maxjj<<endl<<sumjj<<endl;
　　 return 0;
　　
谢谢观看，欢迎提出意见。

###描述
某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同：
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
###限制
1s

###题解
本题从题意分析是一道模拟题，从数据分析是一道小数据题。
本题是一道条件复杂、做法简单的模拟题。
因此本题主要考察选手的基本编程能力。
本题做法较简单，可以直接简单模拟。

具体做法：
1、将最大值，累加和初始化，并输入数据组数；
2、循环3-6的操作直到处理完所有数据；
3、输入一组数据；
4、根据条件计算奖金值；
5、与最大值比较，并按情况覆盖；
6、累加奖金值；
7、输出结果；

代码
#include<iostream>
#include<string>
using namespace std;

int main()
{
int maxjj=-1,sumjj=0,jj,n;
string maxjjn,jjn;
int qmpjcj,bjpycj,fblws;
char xsgb,xbsfxs;
cin>>n;
for(int i=0;i<n;i++)
{
cin>>jjn>>qmpjcj>>bjpycj>>xsgb>>xbsfxs>>fblws;
jj=0;
if(qmpjcj>80&&fblws>0)
jj+=8000;
if(qmpjcj>85&&bjpycj>80)
jj+=4000;
if(qmpjcj>90)
jj+=2000;
if(qmpjcj>85&&xbsfxs=='Y')
jj+=1000;
if(bjpycj>80&&xsgb=='Y')
jj+=850;
sumjj+=jj;
if(jj>maxjj)
maxjj=jj,maxjjn=jjn;
}
cout<<maxjjn<<endl<<maxjj<<endl<<sumjj<<endl;
return 0;
}

###谢谢观看，欢迎提出意见。

点击查看程序源码+详细题解

郁闷啊为什么全错啊在pascal运行得好好的啊、、、、

program p1001;

var a:array[1..6,1..10] of string;

b,c,d,e:array[1..100] of integer;

i,j,n,m,p,z,re:integer;

begin

readln(n);

for i:=1 to n do

for j:=1 to 6 do

read(a[j,i]);

for i:=1 to n do

begin

val(a[2,i],b[i],re);

val(a[3,i],c[i],re);

val(a[6,i],d[i],re);

end;

for i:=1 to n do

e[i]:=0;

for i:=1 to n do

begin

if (b[i]>80) and (d[i]=1) then

e[i]:=e[i]+8000;

if (b[i]>85) and (c[i]>80) then

e[i]:=e[i]+4000;

if (b[i]>90) then e[i]:=e[i]+2000;

if (b[i]>85) and (a[5,i]='Y') then

e[i]:=e[i]+1000;

if (c[i]>80) and (a[4,i]='Y') then

e[i]:=e[i]+850;

end;

m:=0;z:=0;

for i:=1 to n do

if e[i]>m then m:=e[i];

for i:=1 to n do

if m=e[i] then p:=i;

for i:=1 to n do

z:=z+e[i];

writeln(a[1,p]);

writeln(e[p]);

write(z);

end.

通过 　　10546人

提交 　　30000次

太过分了!!!!!!!!!!!

var

n,i,zong,max:longint;

f:char;

name:array[1..100] of string;

qi:array[1..100] of longint;

ban:array[1..100] of longint;

gan:array[1..100] of char;

xi:array[1..100] of char;

lun:array[1..100] of longint;

all:array[1..100] of longint;

begin

readln(n);

for i:=1 to n do

begin

repeat

read(f);

name[i]:=name[i]+f

until f=' ';

read(qi[i],ban[i]);

read(f);read(gan[i]);read(f);read(xi[i]);readln(lun[i]);

end;{for}

for i:=1 to n do

begin

if (qi[i]>80)and(lun[i]>=1) then all[i]:=all[i]+8000;

if (qi[i]>85)and(ban[i]>80) then all[i]:=all[i]+4000;

if qi[i]>90 then all[i]:=all[i]+2000;

if (xi[i]='Y')and(qi[i]>85) then all[i]:=all[i]+1000;

if (gan[i]='Y')and(ban[i]>80) then all[i]:=all[i]+850;

end;{for}

max:=all[1];

for i:=1 to n do

begin

if all[i]>max then max:=all[i];

zong:=zong+all[i];

end;{for}

for i:=1 to n do

if all[i]=max then

begin

　　writeln(name[i]);

　　writeln(all[i]);

　　writeln(zong);

　　exit;

end;

#include

#include

using namespace std;

main()

{

int n,money=0,max=0,b,c,d,sum=0,i,j;

char a[21],x,y,z[21];

cin>>n;

for(i=1;i>b>>c>>x>>y>>d;

if(b>80&&d>0)

money+=8000;

if(b>85&&c>80)

money+=4000;

if(b>90)

money+=2000;

if(b>85&&y=='Y')

money+=1000;

if(c>80&&x=='Y')

money+=850;

if(money>max)

{max=money;

strcpy(z,a);}

sum+=money;

money=0;}

printf("%s",z);

cout

帮我看看

type stu=record

name:0..20;

qiji:0..100;

banji:0..100;

xuegan:char;

xigan:char;

lunwen:0..10;

end;

var a:array[1..100]of stu; b:array[1..100]of integer;

i,N,j,k,d:integer;

c:stu;

begin

readln(N);

for i:=1 to N do begin

readln(a[i].name); read(a[i].qiji,a[i].banji,a[i].xuegan,a[i].xigan,a[i].lunwen);

end;

for i:=1 to N do begin

if (a[i].qiji>80) and (a[i].lunwen>=1) then b[i]:=b[i]+8000;

if (a[i].qiji>85) and (a[i].banji>80) then b[i]:=b[i]+4000;

if (a[i].qiji>90) then b[i]:=b[i]+2000;

if (a[i].qiji>85) and (a[i].xigan='y') then b[i]:=b[i]+1000;

if (a[i].banji>80) and (a[i].xuegan='y') then b[i]:=b[i]+850;

end;

for i:=1 to N-1 do

for j:=N downto i+1 do begin

if b[j-1]

钱的总数一定要用长整型；

var

n,i,zong,max:longint;

f:char;

name:array[1..100] of string;

qi:array[1..100] of longint;

ban:array[1..100] of longint;

gan:array[1..100] of char;

xi:array[1..100] of char;

lun:array[1..100] of longint;

all:array[1..100] of longint;

begin

readln(n);

for i:=1 to n do

begin

repeat

read(f);

name[i]:=name[i]+f

until f=' ';

read(qi[i],ban[i]);

read(f);read(gan[i]);read(f);read(xi[i]);readln(lun[i]);

end;{for}

for i:=1 to n do

begin

if (qi[i]>80)and(lun[i]>=1) then all[i]:=all[i]+8000;

if (qi[i]>85)and(ban[i]>80) then all[i]:=all[i]+4000;

if qi[i]>90 then all[i]:=all[i]+2000;

if (xi[i]='Y')and(qi[i]>85) then all[i]:=all[i]+1000;

if (gan[i]='Y')and(ban[i]>80) then all[i]:=all[i]+850;

end;{for}

max:=all[1];

for i:=1 to n do

begin

if all[i]>max then max:=all[i];

zong:=zong+all[i];

end;{for}

for i:=1 to n do

if all[i]=max then

begin

writeln(name[i]);

writeln(all[i]);

writeln(zong);

exit;

end;

end.