编译通过...
├ 测试数据 01：答案正确... 0ms
├ 测试数据 02：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 03：答案正确... 0ms
├ 测试数据 04：答案正确... 0ms
├ 测试数据 05：答案正确... 0ms
├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案正确... 0ms
├ 测试数据 08：答案正确... 0ms
├ 测试数据 09：答案错误...程序输出比正确答案长
├ 测试数据 10：答案正确... 0ms
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：80 有效耗时：0ms
program t7;
var
n,i,c,py,lun,s,zuigao:longint;
jiang:array[1..100]of longint;
m:array[1..100]of string;
x,ban,xi,kong:char;
begin
read(n);
zuigao:=0;
for i:=1 to n do
begin
repeat read(x);m[i]:=m[i]+x;until x=' ';
read(c);
read(kong);
read(py);
read(kong);
read(ban);
read(kong);
read(xi);
read(kong);
read(lun);
readln;
if (c>80) and (lun>=1) then jiang[i]:=jiang[i]+8000;
if (c>85) and (py>80) then jiang[i]:=jiang[i]+4000;
if (c>90) then jiang[i]:=jiang[i]+2000;
if (c>85) and (xi='Y') then jiang[i]:=jiang[i]+1000;
if (py>80) and (ban='Y') then jiang[i]:=jiang[i]+850;
if jiang[i]>zuigao then zuigao:=jiang[i] ;
s:=s+jiang[i];
end;
for i:=1 to n do
if jiang[i]=zuigao then writeln(m[i]);
writeln(zuigao);
writeln(s);
end.
2 条评论
-
ABCSFDLY LV 6 @ 2009-10-17 22:19:00
和我的读入相似啊~~握个手 呵呵
const
v:array[1..5] of integer=(8000,4000,2000,1000,850);
var
n:longint;
nam:array[1..100] of string;
a,b,ans:array[1..100] of longint;
d,e,f:array[1..100] of boolean;
i,j,k,t,max,m:longint;
c:char;
begin
fillchar(d,sizeof(d),false);
fillchar(d,sizeof(e),false);
fillchar(d,sizeof(f),false);
t:=0;max:=0;
readln(n);
for i:=1 to n do
begin
nam[i]:='';
read(c);
while c' ' do
begin
nam[i]:=nam[i]+c;
read(c);
end;
read(a[i],b[i]);
read(c);read(c);if c='Y' then d[i]:=true;
read(c);read(c);if c='Y' then e[i]:=true;
read(c);readln(k);if k0 then f[i]:=true;
if (a[i]>80) and (f[i]) then ans[i]:=ans[i]+v[1];
if (a[i]>85) and (b[i]>80) then ans[i]:=ans[i]+v[2];
if a[i]>90 then ans[i]:=ans[i]+v[3];
if (a[i]>85) and (e[i]) then ans[i]:=ans[i]+v[4];
if (b[i]>80) and (d[i]) then ans[i]:=ans[i]+v[5];
t:=t+ans[i];
if ans[i]>max then begin max:=ans[i];m:=i; end;
end;
writeln(nam[m]);
writeln(max);
writeln(t);
end. -
@ 2009-08-11 14:33:34
- 1
