记录编号 |
20812 |
评测结果 |
AWWWWWWWAW |
题目名称 |
NBA总冠军 |
最终得分 |
20 |
用户昵称 |
ZhouZn1 |
是否通过 |
未通过 |
代码语言 |
Pascal |
运行时间 |
0.003 s |
提交时间 |
2010-10-29 19:39:04 |
内存使用 |
0.14 MiB |
显示代码纯文本
program zzn;
type
rec=record
na:string;
ye:longint;
end;
var
i,j,n:integer;
data:array[1..50]of rec;
hs:array[1..50]of string;
procedure init2(ss:string;x:integer);
var
s2:string;
xx,y:integer;
begin
xx:=pos(' ',ss);
data[x].na:=copy(ss,1,xx-1);
s2:=copy(ss,xx+1,length(ss)-xx);
val(s2,xx,y);
data[x].ye:=xx;
end;
procedure init;
var
s:string;
flg:boolean;
begin
assign(input,'nba.in');
reset(input);
assign(output,'nba.out');
rewrite(output);
readln(n);
readln(s);
hs[1]:=s;
init2(s,1);
i:=2;
while i<=n do
begin
readln(s);
flg:=true;
for j:=1 to i-1 do
if hs[j]=s then
begin
dec(n);
flg:=false;
end;
if flg then
begin
hs[i]:=s;
init2(s,i);
inc(i);
end;
end;
end;
procedure closef;
begin
close(input);
close(output);
end;
procedure swap(var a,b:rec);
var
t:rec;
begin
t:=a;
a:=b;
b:=t;
end;
procedure main;
var
i,j:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if data[i].ye>data[j].ye then swap(data[i],data[j]);
for i:=1 to n do
writeln(data[i].ye,' ',data[i].na,' ');
end;
begin
init;
main;
closef;
end.