比赛 20101025 评测结果 AWAAAWWWAW
题目名称 NBA总冠军 最终得分 50
用户昵称 reamb 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-10-25 21:03:28
显示代码纯文本
program nbazongguanjun;
var
  a:array[1..50]of longint;
  b:array[1..50]of string;
  n,i:longint;
  s:string;
  code:integer;
procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
         s:string;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                s:=b[i];
                b[i]:=b[j];
                b[j]:=s;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
begin
  assign (input,'nba.in');
  reset (input);
  assign (output,'nba.out');
  rewrite (output);
    readln (n);
    for i:=1 to n do
    begin
      readln (s);
      val(copy(s,length(s)-3,4),a[i],code);
      b[i]:=copy(s,1,length(s)-5)
    end;
    sort(1,n);
    for i:=1 to n do
      writeln (a[i],' ',b[i]);
  close (input);
  close (output)
end.