比赛 |
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.