1.自动打字{Silver题1}
【问题描述】
贝西新买了手机，打字不方便，请设计一款应用，帮助她快速发消息。
字典里有W（W<=30000）个小写字母构成的单词，所有单词的字符总数量不超过1,000,000，这些单词是无序的。现在给出N(1 <= N <= 1000)个询问，每个询问i包含一个的字符串s_i（每个字符串最多包含1000个字符）和一个整数K_i，对于所有以s_i为前缀的单词，其中按字典序排序后的第K_i个单词，求该单词在原字典里的序号。
【文件输入】
第一行为两个整数W和N。
接下来2..W+1行，每行一个单词；
接下来W+2..W+N+1行，一个整数和一个字符串，分别表示K_i和s_i。
【文件输出】
输出共N行，每行一个整数，表示位置，如果无解则输出-1。
【输入样例】
10 3
dab
ba
ab
daa
aa
aaa
aab
abc
ac
dadba
4 a
2 da
4 da
【输出样例】
3
1
-1
【样例说明】
以a为前缀的单词有{aa,aaa,aab,ab,abc,ac}，第4个是ab，它在原字典中的位置是3，以da为前缀的单词有{daa,dab,dadba}，第2个是dab，它在原字典中的位置是1，以da为前缀的第4个单词不存在。
2. 路障{silver题2}
【问题描述】
农民约翰的农场n(1 <= N <= 250)个结点，有M(1 <= M <= 25,000）条带权值的有向边，任意两个结点之间最多有一条边相连，任意两个结点之间都有连通的路径。他的家在结点1，谷仓在结点n，他每天都从家选择最短的路径走到谷仓。
牛们开始捣乱，选择在某一条边上放置路障，使得该边的权值变为原来的2倍。求最大能使约翰多走多少路。
【文件输入】
第一行，两个用空格隔开在整数N和M。
接下来M行，每行3个整数，A_j，B_j和L_j，分别表示一条边的两个结点和权值（权值是1...1,000,000的整数）。
【文件输出】
一个整数，表示最大值。
【输入样例】
5 7
2 1 5
1 3 1
3 2 8
3 5 7
3 4 3
2 4 7
4 5 2
【输出样例】
2
【样例说明】
原来的最短路径是1-3-4-5，总长为6，将路障放置3和4之间的边上，使得该边的权值变为6，则最短路径变为1-3-5，总长为8，增加了长度2。
第一题字符串处理 排序
var w,i,j,k,m,n,p:longint;
a:array[..] of string;
num:array[..] of longint;
len:longint;
s:string;
pre:string;
ch:char;
//t:array[0..26,30000] of string;
procedure sort(l,r: longint);
var
i,j: longint;
x,y: string;
z:longint;
begin
i:=l;
j:=r;
x:=a[(l+r) div ];
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;
z:=num[i];
num[i]:=num[j];
num[j]:=z;
inc(i);
j:=j-;
end;
until i>j;
if l<j then
sort(l,j);
if i<r then
sort(i,r);
end;
begin
assign(input,'auto.in');
reset(input);
assign(output,'auto.out');
rewrite(output);
readln(N,w);
for i:= to n do
readln(a[i]);
for i:= to n do
num[i]:=i;
sort(,n);
for i:= to w do
begin
readln(k,ch,pre);
//delete(pre,1,1);
for j:= to n do
begin
if a[j][]=pre[] then
begin
s:=copy(a[j+k-],,length(pre));
if s=pre then
begin
writeln(num[j+k-]);
break;
end
else
begin writeln('-1');
break;
end;
end;
end;
end;
close(input);
close(output);
end.
第二题
可以知道改变的边一定是在原最短路径上，不然John就可以按原最短路径走了。
先做一边Dijkstra 记下路径，再枚举路径，做Dijkstra。
var i,j,n,m,s,t,p,min,x,y,k,l:longint;
a:array[..,..]of longint;
d,pre:array[..]of longint;
v:array[..]of boolean;
a1,b1:longint;
ok:boolean;
procedure dijkstra(s:longint);
begin
fillchar(d,sizeof(d),$7f);
fillchar(v,sizeof(v),false);
d[s]:=;
for j:= to n do begin
min:=maxlongint;
for i:= to n do
if (not v[i]) and (d[i]<min) then
begin
p:=i;
min:=d[i];
end;
v[p]:=true;
for i:= to n do
if (not v[i])and(a[p,i]<>)and
(d[p]+a[p,i]<d[i]) then
begin
d[i]:=d[p]+a[p,i];
if not ok then pre[i]:=p;
end;
end;
end; begin
assign(input,'rblock.in');
reset(input);
assign(output,'rblock.out');
rewrite(output);
fillchar(pre,sizeof(pre),);
read(n,m);
for j:= to m do
begin
read(a1,b1,l);
if (l<a[a1,b1]) or (a[a1,b1]=) then begin
a[a1,b1]:=l;
a[b1,a1]:=l;
end;
end;
dijkstra();
ok:=true;
x:=d[n];
k:=n;
repeat
a[k,pre[k]]:=*a[k,pre[k]];
a[pre[k],k]:=a[k,pre[k]];
dijkstra();
if d[n]>y then y:=d[n];
a[k,pre[k]]:=a[k,pre[k]] div ;
a[pre[k],k]:=a[k,pre[k]];
k:=pre[k];
until k=;
writeln(y-x);
close(input);
close(output);
end.