wikioi p1040 统计单词个数

最新推荐文章于 2017-05-12 22:58:48 发布

YeasonWu

最新推荐文章于 2017-05-12 22:58:48 发布

阅读量660

点赞数

CC 4.0 BY-SA版权

分类专栏： wikioi天梯 wikioi p1000-1099 noip普及组

本文链接：https://blog.youkuaiyun.com/u011797284/article/details/10337175

wikioi天梯同时被 3 个专栏收录

67 篇文章

订阅专栏

wikioi p1000-1099

21 篇文章

订阅专栏

noip普及组

17 篇文章

订阅专栏

本文分享了一个使用Pascal语言解决字符串处理问题的编程挑战实例。通过构建特定的数据结构，如数组f和g，来优化字符串匹配过程。介绍了初始化、创建数组d和g的过程，并通过主程序流程实现了动态规划算法。

本人最讨厌字符串，题目都没怎么看。

我估计让我写我自己也不一定都写得对

这次对不起咯，我也不会啊~pascal代码。

const
  maxle=202;
  maxk=40;
  maxs=6;
type
  strr=string[maxle];
var
  f:array[0..maxle,0..maxk]of integer;
  g:array[0..maxle,0..maxle]of integer;
  d:array[1..maxle]of integer;
  w:array[1..maxs]of strr;
  s:strr;
  i,j,n,p,k,le,ans:integer;


procedure makearrd;
  var
    i,j:integer;
  begin
    fillchar(d,sizeof(d),$4f);
    for i:=1 to le do
      for j:=1 to p do
        if (pos(w[j],copy(s,i,length(w[j])+i-1))=1)and(d[i]>length(w[j]))
          then d[i]:=length(w[j]);
  end;

procedure makearrg;
  var
    i,j,t:integer;
  begin
    fillchar(g,sizeof(g),0);
    for i:=1 to le do
      for j:=1 to le do
        for t:=i to j do
          if t+d[t]-1<=j then inc(g[i,j]);
  end;

procedure main;
  var
    i,j,t:integer;
  begin
    makearrd;
    makearrg;
    fillchar(f,sizeof(f),0);
   for j:=1 to k do
      for i:=j to le do
        for t:=i to le do
          if f[i-1,j-1]+g[i,t]>f[t,j] then f[t,j]:=f[i-1,j-1]+g[i,t];
 {  for j:=1 to k do
     for i:=1 to le do
       for t:=1 to i do
         if f[i-t,j-1]+g[t,i]>f[i,j] then f[i,j]:=f[i-t,j-1]+g[t,i]; }
  end;

procedure init;
  var
    i:integer;
    t:strr;
  begin
    readln(p,k);
    s:='';
    for i:=1 to p do
      begin
        readln(t);
        s:=s+t;
      end;
    le:=20*p;
    readln(p);
    for i:=1 to p do readln(w[i]);
  end;

begin
  readln(n);
  for i:=1 to n do
    begin
      init;
      main;
      writeln(f[le,k]);
    end;
end.