数据结构与算法 七 动态规划专题(2).pdfVIP

数据结构与算法 七 动态规划专题(2).pdf

  1. 1、本文档共3页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
4 “” “” P SNP1,P2…PN S 7-2 P SP 20 500,000 {A,AB,BBC,CA,BA}ABABACABAABCB 11 7-2 can array[1..max] Of boolean can[k]:=can[k] Or (can[k-w] And (S[k-w+1...k]=Ji[I])) can[k] false Ji[I]Iw S[k-w+1...k] k-w+1k can[i]trueI 50 0,000 can[i]can[i- w]w20 can[I] ca n[i-20] can[i-1] cancan 500000 20, {$A+,B-,D+,E+,F-,G+,I+,L+,N-,O-,P-,Q-,R-,S-,T-,V+,X+} {$M 16384,0,655360} { : PREFIX } program PREFIX; const MAX = 50 ; MAXLEN = 20 ; var N : integer ; DS : array[ 1..100 ] of string ; {} DL : array[ 1..100 ] of integer ; {} F1 , F2 , F3 : text ; BT : array[ 0..MAX + 1 ] of byte ; { } T1 , T2 : integer ; {,} Over : boolean ; {} CurPos , MaxPos : Longint ; {, } S : string ; {} FBuf : array[ 1..30000 ] of char ; {} procedure Readch ; {} var C : char ; begin if not Over then Readln( F2 , C ) ; S := S + C ; if C = '.' then Over := true ; T2 := ( T2 + 1 ) mod MAX ; BT[ T2 ] := 0 ; end ; procedure Init ; {} var I : integer ; begin Over := false ; CurPos := 0 ; MaxPos := 0 ; S := '' ; {} Assign( F1 , 'INPUT.TXT' ) ; Reset( F1 ) ; Readln( F1 , N ) ; for I := 1 to N do begin Readln( F1 , DL[ I ] ) ; Readln( F1 , DS[ I ] ) ; end ; Close( F1 ) ; Assign( F2 , 'DATA.TXT' ) ; Settextbuf( F2 , FBuf ) ; Reset( F2 ) ; {} Fillchar( BT , Sizeof( BT ) , 0 ) ; T1 := 1 ; T2 := 1 ; for I := 1 to MAXLEN + 1 do Readch ; BT[ 1 ] := 1 ; end ; procedure GoNext ; { ,} begin T1 := ( T1 + 1 ) mod MAX ; Inc( CurPos ) ; Readch ; Delete( S , 1 , 1 ) ; end ; procedure Count ; {} var I , J , K : integer ; begin while CurPos <= MaxPos do begin if BT[ T1 ] = 1 then {} begin for I := 1 to N do if Pos( DS[ I ] , S ) = 1

文档评论(0)

today-is-pqsczlx + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档