胖男孩
源程序名 FATBOY.??? (PAS,C,CPP)
可执行文件名 FATBOY.EXE
输入文件名 FATBOY.IN
输出文件名 FATBOY.OUT
麦克正如我们所知的已快乐地结婚,在上个月他胖了70磅。因为手指上的脂肪过多,使他连给他最亲密的朋友斯拉夫克写一个电子邮件都很困难。
每晚麦克都详细地描述那一天他所吃的所有东西,但有时当他只想按一次某键时往往会按了不止一次,并且他的胖手指还会碰到他不想要按的键,麦克也知道自己的手指有问题,因此他在打字的时候很小心,以确保每打一个想要的字符时误打的字符不超过3个,误打的字符可能在正确字符之前也可能在其之后。
当斯拉夫克多次收到读不懂的电子邮件后,他总是要求麦克将电子邮件发3遍,使他容易读懂一点。
编写程序,帮助斯拉夫克根据他所收到的三封电子邮件求出麦克可能写出的最长的信。
输入
输入文件包含了三行文本。每一行文本包括麦克信件的一种版本。其中所有的字符都由英文字母表中的小写字母组成并且不超过100个。
输出
输出文件中第一行即唯一的一行数据应该包含斯拉夫克根据所收到的电子邮件推测出的最长信件。你可以相信问题一定有解,但解不一定是唯一的。
样例
FATBOY.IN
cecqbhvaiaedpibaluk
cabegviapcihlaaugck
adceevfdadaepcialaukd
FATBOY.OUT
cevapiluk
=================================
==========================
var
f:array[0..100,0..100,0..100]of string;
st1,st2,st3:string;
st1_l,st2_l,st3_l:longint;
procedure init;
begin
assign(input,'fatboy.in');
assign(output,'fatboy.out');
reset(input); rewrite(output);
end;
procedure terminate;
begin
close(input); close(output);
halt;
end;
procedure main;
var
i,j,k:longint;
begin
readln(st1);
readln(st2);
readln(st3);
st1_l:=length(st1);
st2_l:=length(st2);
st3_l:=length(st3);
for i:=0 to st1_l do
for j:=0 to st2_l do
for k:=0 to st3_l do
f[i,j,k]:='';
for i:=1 to st1_l do
for j:=1 to st2_l do
for k:=1 to st3_l do
begin
if (st1[i]=st2[j])and(st2[j]=st3[k]) then
begin
if length(f[i,j,k])<length(f[i-1,j-1,k-1]+st1[i]) then
f[i,j,k]:=f[i-1,j-1,k-1]+st1[i];
end;
if length(f[i,j,k])<length(f[i-1,j,k]) then f[i,j,k]:=f[i-1,j,k];
if length(f[i,j,k])<length(f[i-1,j-1,k]) then f[i,j,k]:=f[i-1,j-1,k];
if length(f[i,j,k])<length(f[i-1,j,k-1]) then f[i,j,k]:=f[i-1,j,k-1];
if length(f[i,j,k])<length(f[i,j-1,k]) then f[i,j,k]:=f[i,j-1,k];
if length(f[i,j,k])<length(f[i,j-1,k-1]) then f[i,j,k]:=f[i,j-1,k-1];
if length(f[i,j,k])<length(f[i,j,k-1]) then f[i,j,k]:=f[i,j,k-1];
end;
writeln(f[st1_l,st2_l,st3_l]);
end;
begin
init;
main;
terminate;
end.