编辑距离

编辑距离

题目描述
设A和B是两个字符串。我们要用最少的字符操作次数，将字符串A转换为字符串B。这里所说的字符操作共有三种：
1、删除一个字符；
2、插入一个字符；
3、将一个字符改为另一个字符；
！皆为小写字母！

输入输出格式
输入格式：
第一行为字符串A；第二行为字符串B；字符串A和B的长度均小于2000。

输出格式：
只有一个正整数，为最少字符操作次数。

输入输出样例
输入样例#1：
sfdqxbw
gfdgw

输出样例#1：
4

---

f[i,j]:=min(min(f[i-1,j],f[i,j-1]),f[i-1,j-1])+1;

var  i,j,k,m,n:Longint;  s1,s2:ansistring;  f:array[0..2000,0..2000] of Longint;function min(x,y:Longint):Longint;begin  if x<y then exit(x) else exit(y);end;begin  readln(s1);  readln(s2);  m:=length(s1);  n:=length(s2);  for i:=1 to m do    f[i,0]:=i;  for i:=1 to n do    f[0,i]:=i;  for i:=1 to m do    for j:=1 to n do      if s1[i]=s2[j] then        f[i,j]:=f[i-1,j-1]        else          f[i,j]:=min(min(f[i-1,j],f[i,j-1]),f[i-1,j-1])+1;  writeln(f[m,n]);end.