Description
设有字符串 X，我们称在 X 的头尾及中间插入任意多个空格后构成的新字符
串为 X 的扩展串，如字符串 X 为”abcbcd”，则字符串“abcb□cd”，“□a□bcbcd
□”和“abcb□cd□”都是 X 的扩展串，这里“□”代表空格字符。
如果 A1 是字符串 A 的扩展串，B1 是字符串 B 的扩展串，A1 与 B1 具有相
同的长度，那么我扪定义字符串 A1 与 B1 的距离为相应位置上的字符的距离总
和，而两个非空格字符的距离定义为它们的 ASCII 码的差的绝对值，而空格字
符与其他任意字符之间的距离为已知的定值 K，空格字符与空格字符的距离为 0。
在字符串 A、B 的所有扩展串中，必定存在两个等长的扩展串 A1、B1，使得 A1
与 B1 之间的距离达到最小，我们将这一距离定义为字符串 A、B 的距离。
扫描二维码关注公众号，回复：
1922660 查看本文章
请你写一个程序，求出字符串 A、B 的距离。
Input
从文件 blast.in 中读入数据，输入文件第一行为字符串 A，第二行为字符串 B。
A、B 均由小写字母组成且长度均不超过 2000。第三行为一个整数 K（1≤K≤100），
表示空格与其他字符的距离。
Output
输出到文件 blast.out 中，仅一行包含一个整数，表示所求得字符串 A、B 的距离。
Sample Input
cmc
snmn
2
Sample Output
10
Source
题解：
本题是动规，f[i,j]是字符i到j的最小距离
首先要初始化每个字符之间都是空格的情况:f[i,0]/f[0,i]:=i*k;
接着动态转移即可
动态转移方程：
min(f[i,j-1]+k,f[i-1,j]+k,f[i-1,j-1]+距离（它们的 ASCII 码的差的绝对值）
var
f:array[0..2000,0..2000]of longint;
a,b:ansistring;
k,lena,lenb,i,j:longint;
function min(a,b:longint):longint;
begin
if a<b then exit(a);
exit(b);
end;
begin
read(a);
readln;
read(b);
readln;
read(k);
lena:=length(a); lenb:=length(b);
for i:=1 to lena do f[i,0]:=i*k;
for i:=1 to lenb do f[0,i]:=i*k;
for i:=1 to lena do
for j:=1 to lenb do
begin
f[i,j]:=min(f[i,j-1],f[i-1,j])+k;//因为做比较三个数大小的动态转移比较麻烦，故比较两次（有想挑战数据的同学可以自行尝试）
f[i,j]:=min(f[i,j],f[i-1,j-1]+abs(ord(a[i])-ord(b[j])));
end;
write(f[lena,lenb]);