Удалить все вхождения подстроки в строку в порядке слева направо

@--- · Регистрация: 26.05.2010

Author24 — интернет-сервис помощи студентам

написать функцию, которая удаляет все вхождения подстроки в строку в порядке слева направо.

@Puporev · 07.02.2011, 12:52

Pascal

function Del(ps,st:string):string;
begin
while pos(ps,st)>0 do
delete(st,pos(ps,st),length(ps));
end;
var s,p:string;
begin
writeln('Введите строку');
readln(s);
writeln('Введите подстроку:');
readln(p);
write(Del(p,s));
readln
end.

Добавлено через 1 минуту

Сообщение от ---

в порядке слева направо.

А какая разница? Как узнаешь откуда удаляли?
Может типа с задержкой делать в процедуре?

Добавлено через 3 минуты
Кстати, пропустил...

Pascal

function Del(ps,st:string):string;
begin
while pos(ps,st)>0 do
delete(st,pos(ps,st),length(ps));
Del:=st;
end;

Добавлено через 2 минуты
Вот так можно..

Pascal

uses crt;
function Del(ps,st:string):string;
begin
while pos(ps,st)>0 do
 begin
  delete(st,pos(ps,st),length(ps));
  delay(1000);
  writeln(st);
 end;
Del:=st;
end;
var s,p,s1:string;
begin
writeln('Введите строку');
readln(s);
writeln('Введите подстроку:');
readln(p);
s1:=Del(p,s);
readln
end.

@--- 0 / 0 / 0 Регистрация: 26.05.2010 Сообщений: 41
		1
	Удалить все вхождения подстроки в строку в порядке слева направо 07.02.2011, 12:35. Показов 1989. Ответов 1 Метки нет (Все метки) написать функцию, которая удаляет все вхождения подстроки в строку в порядке слева направо. 0

	07.02.2011, 12:52

Удалить все вхождения подстроки в строку в порядке слева направо

Решение