【DP】胖男孩
来源:互联网 发布:金蝶易记账数据库类型 编辑:程序博客网 时间:2024/04/28 18:25
胖男孩
源程序名 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.
- 【DP】胖男孩
- 胖男孩(DP经典)
- 胖男孩
- 胖男孩
- 男孩,女孩!
- 男孩,女孩!
- 男孩,女孩
- 男孩都想有辆车
- 男孩女孩
- 大男孩
- 老男孩
- 老男孩
- 《老男孩》
- 野兽男孩
- 老男孩
- 老男孩
- 老男孩
- 音乐男孩
- as3 apply() 不定参数(…rest parameters)的二次不定传递
- 【转】完全PHP5之session篇
- JSP优缺点
- JSP的指令、和脚本元素
- C#多线程与UI响应
- 【DP】胖男孩
- openGl-ES学习与使用心得-入门级
- sprintf printf
- linux下安装配置软件
- 查看Oracle数据库表空间大小(空闲、已使用),是否要增加表空间的数据文件
- 不能两次使用waitpid等待一个子进程的结束
- CentOS 5.2下配置Java环境
- asp.net中Cookie的简单用法
- 最近在做的事啊-linux驱动+NAS