讨论 / 第三组数据 如何比配到9?????
852963 2013-08-11 05:00:00
点我顶贴 收藏 删除
CGGTAGATATGCAATATGCGTCGGTTAGACTGAGCCAA

TCGCACTGCATGAATTACGATACGGCACATAGACT

请大牛指点

#1 852963@2009-11-02 07:03:00
回复 删除
CGGTAGATATGCAATATGCGTCGGTTAGACTGAGCCAA

TCGCACTGCATGAATTACGATACGGCACATAGACT

#2 852963@2009-11-02 07:05:00
回复 删除
过了的牛给发个程序行吗?
#3 ghostnoip@2009-11-03 02:15:00
回复 删除
DP
#4 852963@2009-11-03 04:16:00
回复 删除
对呀

但是没过,程序有问题吗?

program rq61;

var

f:array[0..550,0..550] of longint;

s1,s2:ansistring;

i,j:longint;

begin

assign(input,’rq61.in’);

assign(output,’rq61.out’);

reset(input);

rewrite(output);

readln(s1);

readln(s2);

writeln(length(s1));

writeln(length(s2));

for i:=1 to length(s1) do

for j:=1 to length(s2) do

f[i,j]:=-maxlongint;

f[0,0]:=0;

for i:=1 to length(s2) do

f[0,i]:=f[0,i-1]-2;

for i:=1 to length(s1) do

f[i,0]:=f[i-1,0]-2;

for i:=1 to length(s1) do

for j:=1 to length(s2) do

begin

if s1[i]=s2[j] then

if f[i,j]<f[i-1,j-1]+1 then f[i,j]:=f[i-1,j-1]+1;

if s1[i]<>s2[j] then

if f[i,j]<f[i-1,j-1] then f[i,j]:=f[i-1,j-1];

if f[i,j]<f[i,j-1]-2 then f[i,j]:=f[i,j-1]-2;

if f[i,j]<f[i-1,j]-2 then f[i,j]:=f[i-1,j]-2;

end;

writeln(f[length(s1),length(s2)]);

close(input);

close(output);

end.

#5 cczzbb456@2010-07-25 03:03:00
回复 删除
CHEAT吧。。这道题交别的网站都是过的,就是交RQ过不了。。
#6 noip2012@2011-01-15 07:23:00
回复 删除
也许有人把别的题目改改就当作新题发上来了,因此题目描述有问题

#7 noip2012@2011-01-15 07:25:00
回复 删除
不得已Cheat

#8 noip2012@2011-01-15 07:26:00
回复 删除
也希望管理员把好题目质量的关

#9 怡红公子@2012-08-12 23:30:00
回复 删除
害我查错弄了这么长时间

RT

#10 897357142@2013-08-11 05:00:00
回复 删除
第三个数据应该是8才对,我比不出来9……

比对如下:8

-T -2

CC +1

GG +1

GC +0

TA +0

AC +0

GT +0

AG +0

TC +0

AA +1

TT +1

GG +1

CA +0

AA +1

AT +0

TT +1

AA +1

TC +0

GG +1

CA +0

GT +0

TA +0

CC +1

GG +1

GG +1

T- -2

TC +0

AA +1

GC +0

AA +1

C- -2

TT +1

G- -2

AA +1

GG +1

CA +0

CC +1

A- -2

AT +0

8

查看更多回复
提交回复