记录编号	12693	评测结果	AAAAAAAAAA
题目名称	字符串的距离	最终得分	100
用户昵称	.Xmz	是否通过	通过
代码语言	Pascal	运行时间	0.645 s
提交时间	2009-09-18 20:41:23	内存使用	15.41 MiB

program xmz;
var
x,y:array[1..2000]of longint;
hx,hy,k,a,b,c,max:longint;
f:array[0..2000,0..2001]of longint;
t:char;
f1,f2:text;
begin
 assign(f1,'blast.in');assign(f2,'blast.out');
 reset(f1);rewrite(f2);
 repeat
  hx:=hx+1;
  read(f1,t);
  x[hx]:=ord(t)-96;
 until eoln(f1);
  readln(f1);a:=0;
 repeat
  hy:=hy+1;
  read(f1,t);
  y[hy]:=ord(t)-96;
 until eoln(f1);
  read(f1,k);

 for a:=1 to hx do
  f[a,0]:=f[a-1,0]+k;
 for a:=1 to hy do
  f[0,a]:=f[0,a-1]+k;

 for a:=1 to hx do
  for b:=1 to hy do
   begin
    f[a,b]:=99999999;
    if f[a,b]>f[a-1,b-1]+abs(x[a]-y[b]) then
     f[a,b]:=f[a-1,b-1]+abs(x[a]-y[b]);
    if f[a,b]>f[a,b-1]+k then
     f[a,b]:=f[a,b-1]+k;
    if f[a,b]>f[a-1,b]+k then
     f[a,b]:=f[a-1,b]+k;
   end;
  write(f2,f[hx,hy]);
 close(f1);close(f2);
end.