Дана строки S и S1. Каждое вхождение S1 в строку S в качестве подстроки заменить на обращенную подстроку S1 ( на Pascal )

[avizer]

Всем привет! Почти сделал лабу, не могу решить последнюю задачу, помогите:
Дана строка S и S1. Каждое вхождение S1 в строку S в качестве подстроки заменить на обращенную подстроку S1.


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[DiemonStar]

ну так в чём проблема?

1. обращаете строку для замены
2. проверяете в цикле исходную строку на соответствие искомой
3. если вхождение, то заменяете

[avizer]

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

ну так в чём проблема?

1. обращаете строку для замены
2. проверяете в цикле исходную строку на соответствие искомой
3. если вхождение, то заменяете

А можно код проги, если не затруднит?)

[DiemonStar]

I := 1;
While I <= Length(S) - Length(S1) do
  begin
     Temp := Copy(S, I, Length(S1));
     If Temp = S1 then
       begin
         for J := 0 to Length(S1)-1
           S[I + J] := S[Length(S1) - J];
          I := I + Length(S1);
       end
      else
       I := I + 1;
  end;

[avizer]

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

I := 1;
While I <= Length(S) - Length(S1) do
  begin
     Temp := Copy(S, I, Length(S1));
     If Temp = S1 then
       begin
         for J := 0 to Length(S1)-1
           S[I + J] := S[Length(S1) - J];
          I := I + Length(S1);
       end
      else
       I := I + 1;
  end;

Выдает изначально введенные строчки и всё, может я что-то не так делаю:

uses crt;
var i,j:integer; s,s1,temp:string;
begin
clrscr;
write('vvedite s:');
readln(s);
write('vvedite s1:');
readln(s1);
i:= 1;
While i<= Length(s) - Length(s1) do
  begin
     temp := copy(s, i, Length(s1));
     If temp =s1 then
       begin
         for j:=0 to Length(s1)-1 do
           s[i+j]:=s[Length(s1)-j];
          i:=i+ Length(s1);
       end
      else
       i:= i + 1;
  end;
 writeln(s);
 writeln(s1);
 writeln(temp);
end.

[Serge_Bliznykov]

нашел у вас в коде две ошибки.
подправил.
попробуйте

i:= 1;
While i<= (Length(s) - Length(s1) + 1) do
  begin
     temp := copy(s, i, Length(s1));
     If temp =s1 then
       begin
         for j:=0 to Length(s1)-1 do
           s[i+j]:=s1[Length(s1)-j];
          i:=i+ Length(s1);
       end
      else
       i:= i + 1;
  end;

p.s. и не понятно, зачем вы выводите s1 и temp в конце.. для отладки что ли?!!

[avizer]

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

нашел у вас в коде две ошибки.
подправил.
попробуйте

i:= 1;
While i<= (Length(s) - Length(s1) + 1) do
  begin
     temp := copy(s, i, Length(s1));
     If temp =s1 then
       begin
         for j:=0 to Length(s1)-1 do
           s[i+j]:=s1[Length(s1)-j];
          i:=i+ Length(s1);
       end
      else
       i:= i + 1;
  end;

p.s. и не понятно, зачем вы выводите s1 и temp в конце.. для отладки что ли?!!

Всё равно не работает: при вводе s:qwerty и s1:qweasd - выдает те же самые строки

[DiemonStar]

s1[Length(s1)-j]

спасибо, единицу прозевал...

i<= (Length(s) - Length(s1) + 1)

а тут не согласен.. +1 нужно было бы только при строгом неравенстве.

[DiemonStar]

Всё равно не работает: при вводе s:qwerty и s1:qweasd - выдает те же самые строки

И правильно делает... попробуйте в s1 ввести qwe - для срабатывания условия нужно полное соответствие значения s1 части строки из s

[avizer]

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

И правильно делает... попробуйте в s1 ввести qwe - для срабатывания условия нужно полное соответствие значения s1 части строки из s

Точно, затуп Всем спасибо, задача решена)