codevs1018

本文介绍了一个基于深搜算法解决特定编程问题的实例。通过递归搜索的方法,文章详细解释了如何构建解决方案,并给出了完整的 Pascal 代码示例。适用于对深搜算法感兴趣的读者。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

题目地址:http://codevs.cn/problem/1018/

分析:

深搜

代码:

var word:array[1..200] of string;

      w:array[1..200] of longint;

      i,n:longint;

      a:string;

      dragon:string;

      maxlen:longint;

procedure search(s:string;x:longint);

var i:longint;

      len:string;

      max:longint;

begin

      max:=0;

      len:=copy(s,length(s)-x+1,255);

      if len <> s then

      begin

            for i := 1 to n do if w[i] <> 2 then

            begin

                  if pos(len,word[i]) > max then max:=pos(len,word[i]);

                  if pos(len,word[i]) = 1 then 

                  begin

                        s:=s+copy(word[i],length(len)+1,255);

                        inc(w[i]);

                        search(s,1);

                        dec(w[i]);

                        delete(s,length(s)-length(copy(word[i],length(len)+1,255))+1,255);

                  end;

            end;

            if max = 0 then 

            begin

                  if length(s) > maxlen then maxlen:=length(s);

                  exit;

            end;

            search(s,x+1);

      end

      else

      if length(s) > maxlen then maxlen:=length(s);

      end;


begin

      fillchar(w,sizeof(w),0);

      readln(n);

      for i := 1 to n do readln(word[i]);

      read(a);

      for i := 1 to n do 

      begin

            if pos(a,word[i]) = 1 then 

            begin

                  dragon:=word[i];

                  inc(w[i]);

                  search(dragon,1);

                  dec(w[i]);

            end;

      end;

      write(maxlen);

end.


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值