Написать процедуру удаления - Pascal ABC

Формулировка задачи:

Написать процедуру удаления из строки S всех вхождений подстроки Subs.

Код к задаче: «Написать процедуру удаления - Pascal ABC»

textual
Procedure DelSubs(pSubs : String; Var pS : String);
Var
  i,k     : Byte;
  m       : array[1..255] of Byte;
Begin
  k:=0;
  For i:=1 to 255 do m[i]:=0;
  For i:=1 to Length(pS)-Length(pSubs)+1 do
    If Copy(pS,i,Length(pSubs))=pSubs then
    Begin
      Inc(k);
      m[k]:=i;
    end;
  For i:=k downto 1 do Delete(pS,m[i],Length(pSubs));
end;
 
Var S, Subs : String;
Begin
  S:='112211221122'; Subs:='12';
  DelSubs(Subs,S);
  Writeln(S);
end.

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ