Работа со сточками.

[Wild_klas]

Здравствуйте. Вопрос заключается в следующем:
Дано строки S и S0. Удалить из строки S все подстроки, совпадающие
с S0. Если совпадающих подстрок нет, то вывести строку S без изменений.
Подскажите пожалуйста как это решить, а то я совсем запутался..

[Serge_Bliznykov]

а что, язык программирования указывать уже не модно?
Вам на чём решение то нужно?

на Pascal/Delphi это может быть сделано, например, так:

while Pos(S0, S)>0 do 
   Delete(S, Pos(S0, S), Length(S0));

[Stilet]

а что, язык программирования указывать уже не модно?

А зачем? Если каждый из нас по языку сбросится автор сможет защитить диссертацию на тему "Сравнительная характеристика методов решения задачи"
Вот и от меня пять копеек, ща кто нить на СиШарпе, потом на Брайнфаке напишет.

MODULE Строки;
IMPORT StdLog,Strings;

PROCEDURE Обработать*(s:ARRAY OF CHAR;s0:ARRAY OF CHAR);
VAR i,ln:INTEGER;
BEGIN
 StdLog.Clear;
 ln:=0;i:=0;
 WHILE (ln<LEN(s0))&(s0[ln]#CHR(0)) DO INC(ln); END;
 Strings.Find(s,s0,0,i);
 WHILE (i#-1) DO
  Strings.Replace(s,i,3,''); 
  Strings.Find(s,s0,0,i);
 END;
 StdLog.String(s);
END Обработать;

END Строки.
"Строки.Обработать('Мио мой Мио','Мио')";

[Serge_Bliznykov]

ну, на C# это выглядит даже проще, чем на Delphi

            string S, S0;
            Console.WriteLine("Input S:");
            S = Console.ReadLine();
            Console.WriteLine("Input S0:");
            S0 = Console.ReadLine();
            
            // А вот, собственно, и строчка обработки! Одна!
            S = S.Replace(S0, "");
            
            Console.WriteLine("S now : "+S+"\n");
            
            Console.Write("Press any key to continue . . . ");
            Console.ReadKey(true);

[Stilet]

Ха!. Та если в таких мощных языках ужимки делать то весь код вообще будет выглядеть как

Console.WriteLine(Console.ReadLine().Replace(Console.ReadLine(),""));

[Wild_klas]

Язык паскаль, извините, забыл указать. Всём спасибо, я уже сделал.

program Project1;

{$APPTYPE CONSOLE}


uses
  SysUtils;

var s,s0: string;
r: char;
n,i,n1: integer;
begin
  write('Input string: ');
  readln(s);
  write('Input substring: ');
  readln(s0);
   n1:=pos(s0,s);
    if n1=0 then write('No coincident string ');
while n1>0 do
begin
delete(s,n1,length(s0));
n1:=pos(s0,s);
end;
 Write('New string: ',s);
  readln;
end.