TYVJ P1046 [Blast]

第一次写这种字符串距离型DP，本来DP题目做得就少，权当练习。

这个题目要求字符串A、B扩展串的最短距离

用f[i,j]表示A到i位置，B到j位置的最短距离，则f[i,j]=min{f[i-1,j]+k,f[i,j-1]+k,f[i-1,j-1]+d}

其中d为A[i]与B[j]的ASCII码距离的差的绝对值，即d=abs(ord(a[i])-ord(b[j])),k为题目所述

[pascal 代码]

 

VAR
        a,b:ansistring;
        f:array[0..2100,0..2100]of longint;
        k,n,m,i,j,dis:longint;
BEGIN
        readln(a);
        readln(b);
        readln(k);
        n:=length(a);m:=length(b);
        fillchar(f,sizeof(f),$3f);
        for i:=0 to n do f[i,0]:=i*k;
        for i:=0 to m do f[0,i]:=i*k;
        for i:=1 to n do
                for j:=1 to m do
                        begin
                                if f[i-1,j]+k<f[i,j] then f[i,j]:=f[i-1,j]+k;
                                if f[i,j-1]+k<f[i,j] then f[i,j]:=f[i,j-1]+k;
                                dis:=abs(ord(a[i])-ord(b[j]));
                                if f[i-1,j-1]+dis<f[i,j] then f[i,j]:=f[i-1,j-1]+dis;
                        end;
        writeln(f[n,m]);
END.