比赛 20091110 评测结果 AAAAAAAAAA
题目名称 查字典 最终得分 100
用户昵称 .Xmz 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-11-10 09:27:38
显示代码纯文本
program xmz;
var
f1,f2:text;
x:array[1..10000]of string;
y:array[1..10000]of longint;
st:string;
nn,n,a:longint;
procedure px(l,r:longint);
 var
 i,j,ts:longint; t,mid:string;
 begin
 i:=l;j:=r;mid:=x[(l+r)div 2];
 repeat
  while x[i]<mid do inc(i);
  while x[j]>mid do dec(j);
  if i<=j then
   begin
    t:=x[i];x[i]:=x[j];x[j]:=t;
    ts:=y[i];y[i]:=y[j];y[j]:=ts;
    inc(i);dec(j);
   end;
 until i>j;
 if i<r then px(i,r);
 if l<j then px(l,j);
 end;

procedure cha(l,r:longint);
 var
 m:longint;
 begin
  m:=(l+r)div 2;
  if st>x[m] then cha(m+1,r);
  if st<x[m] then cha(l,m-1);
  if st=x[m] then begin writeln(f2,y[m]);exit;end;
 end;
begin
 assign(f1,'scanword.in');assign(f2,'scanword.out');
 reset(f1);rewrite(f2);
 readln(f1,n);
 for a:=1 to n do
  begin
   readln(f1,x[a]);
   readln(f1,y[a]);
  end;
 px(1,n);
 readln(f1,nn);
 for a:=1 to nn do
  begin
  readln(f1,st);
  cha(1,n);
  end;
 close(f1);close(f2);
end.