【数据结构课件】串

1、数据结构,North China Electric Power University,Data Structure,华北电力大学计算机科学与工程系,Dept. of Computer Science ch:array1.maxlen of char; end;,假设r,s,t都是上面定义的string型变量，且r是s与t连接后得到的串，则连接运算concat(r,s,t)是将s与t的串值分别传送到r相应的位置上。,North China Electric Power University,1) s.curlen+t.curlenmaxlen，这时得到的串r是连接所要求的 正确结果；,2) s.

2、curlen+t.curlenmaxlen，需要将t的一部分截断，得到的 串r只包含s和t的一个子串；,3) s.curlenmaxlen，这时需要对s进行截断，得到的串r仅是 s的一个子串；,Procedure concat(var r,s,t:string; var p:boolean); Begin case s.curlen+t.curlenmaxlen and s.curlenmaxlen: p:=true;movch(r,s,1,1,s.curlen); movch(r,t,s.curlen+1,1,maxlen-s.curlen); r.curlen:=maxlen;,North

3、 China Electric Power University,s.curlen=maxlen: p:=true; movch(r,s,1,1,maxlen); r.curlen:=maxlen; end case End;,Procedure movch(t,s,i,j,num); Begin for k:=0 to num 1 do ti+k:=sj+k; End;,求子串的过程sub(r,s,fir,length)也是移动字符序列的过程，它将串s中从第fir位置开始的长度为length的子串赋给r。,Procedure sub(r,s,fir,lenth); Begin if(fir+

4、length-1s.curlen) or (fir1) or(length0) then write(inproperly specified substring in sub proc); exit; else movch(r,s,1,fir,length);r.curlen:=length; End;,North China Electric Power University,Procedure index_bf(s,t,ind); Begin i:=1;j:=1; repeat if s.chi=t.chj then i:=i+1;j:=j+1; else i:=i+j-2;j:=1; until (is.curlen) or (jt.curlen); if jt.curlen then ind:=i-t.curlen else ind:=0; End;,So much for to