Заменить в строке S1 первое (последнее или все) вхождения строки S2 на S3

@Natawa · Регистрация: 18.02.2010

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

Задание: даны три строки: S1, S2, S3. Заменить в строке S1 первое (последнее или все) вхождения строки S2 на S3. Не могу понять почему не работает.. в ЧЁМ ОШИБКА?

Pascal

program L10;
Type St = string[10];
Var
S1, S2, S3, S4: st;
P, DL: integer;
Begin
Writeln ('Type character strings');
write ('S1:');
Readln(S1);
Write('S2:');
Readln(S2);
Write('S3:');
Readln(S3);
S4:='';
DL:=Length(S2);
P:=pos(S2, S1);
While P>0 do
Begin
Dec(P);
S4:=S4+Copy(S1,1,P)+S3;
Delete(S1,1,P+DL);
P:=pos(S2, S1);
End;
S1:=S4+S1; {Поправил}
Writeln('New word: ', S1);
Readln
End.

@Inadequate · 20.02.2010, 03:00

Попробуй так

Pascal

program L10;
Var
S1, S2, S3, S4: string;
P, DL: integer;
Begin
Writeln ('Type character strings');
write ('S1:');
Readln(S1);
Write('S2:');
Readln(S2);
Write('S3:');
Readln(S3);
S4:='';
DL:=Length(S2);
P:=pos(S2, S1);
While P>0 do
Begin
Dec(P);
S4:=S4+Copy(S1,1,P)+S3;
Delete(S1,1,P+DL);
P:=pos(S2, S1);
End;
S1:=S4+S1; {Ïîïðàâèë}
Writeln('New word: ', S1);
Readln
End.

@Natawa · 20.02.2010, 03:02 **[ТС]**

Всё равно чисто первую строку выводит, а вхождения не меняет...

@Inadequate · 20.02.2010, 03:05

Natawa, а ты ничего не путаешь? У меня все работает.
Вводи первое
as qw as qw as qw
Второе
as
Третье
!!!
Результат будет
!!! qw !!! qw !!! qw
Проверь.

@Natawa · 20.02.2010, 03:20 **[ТС]**

А ну да работает)))) Большое спасибо...

@Natawa 1 / 1 / 0 Регистрация: 18.02.2010 Сообщений: 15
	20.02.2010, 03:02 [ТС]	3
	Всё равно чисто первую строку выводит, а вхождения не меняет... 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	20.02.2010, 03:05	4
	Natawa, а ты ничего не путаешь? У меня все работает. Вводи первое as qw as qw as qw Второе as Третье !!! Результат будет !!! qw !!! qw !!! qw Проверь. 0

@Natawa 1 / 1 / 0 Регистрация: 18.02.2010 Сообщений: 15
	20.02.2010, 03:20 [ТС]	5
	А ну да работает)))) Большое спасибо... 0