Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 4.85
Natawa
1 / 1 / 0
Регистрация: 18.02.2010
Сообщений: 15
#1

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

20.02.2010, 02:47. Просмотров 1798. Ответов 4
Метки нет (Все метки)

Задание: даны три строки: S1, S2, S3. Заменить в строке S1 первое (последнее или все) вхождения строки S2 на S3. Не могу понять почему не работает.. в ЧЁМ ОШИБКА?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.02.2010, 02:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Заменить в строке S1 первое (последнее или все) вхождения строки S2 на S3 (Pascal):

Заменить в строке S1 первое (последнее или все) вхождения строки S2 на S3 - Pascal
Задание: даны три строки: S1, S2, S3. Заменить в строке S1 первое (последнее или все) вхождения строки S2 на S3. program L10; Var S1,...

Даны три строки: S1, S2, S3. Заменить в строке S1 последнее вхождение строки S2 на S3 - Pascal
Помогите плиз написать программу: Даны три строки: S1, S2, S3. Заменить в строке S1 последнее вхождение строки S2 на S3. Всем спасибо !!!

В строке заменить все вхождения одной подстроки в другую - Pascal
Добрый день всем участника форума! Хотелось бы задать Вам несколько вопросов относительно строк, а именно: Как: 1) В строке...

Для заданной строки s заменить все вхождения строки substr1 на подстроку substr2 - Pascal
Разработать программу, которая для заданной строки s заменяет все вхождения от строки substr1 на подстроку substr2

В каждой строке массива заменить все вхождения подстроки «cat» на «dog» - Pascal
Дан массив, состоящий из n элементов строкового типа. В каждой строке заменить все вхождения подстроки «cat» на «dog». Вывести номера...

Строки(заменить все вхождения в текст) - Pascal
Из строки удалить среднюю букву, если длина строки нечетная, если четная - удалить две средние буквы. Заменить все вхождения в текст...

4
Inadequate
Retired
7708 / 2541 / 184
Регистрация: 17.10.2009
Сообщений: 5,100
20.02.2010, 03:00 #2
Попробуй так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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.
0
Natawa
1 / 1 / 0
Регистрация: 18.02.2010
Сообщений: 15
20.02.2010, 03:02  [ТС] #3
Всё равно чисто первую строку выводит, а вхождения не меняет...
0
Inadequate
Retired
7708 / 2541 / 184
Регистрация: 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
20.02.2010, 03:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.02.2010, 03:20
Привет! Вот еще темы с ответами:

Заменить встроке S все вхождения строки S1 настроку S2 - Pascal
переведите прогу пожалуйста с C++ на Pascal сам текст задачи таков.Даны строки S,S1 и S2. Заменить встроке S все вхождения строки S1 ...

Дано три строки: С1, С2, С3. Поменять в строке С1 все вхождения(вложения?) подстроки С2 на С3. - Pascal
Дано три строки: С1, С2, С3. Поменять в строке С1 все вхождения(вложения?) подстроки С2 на С3. Дано три рядки:С1,С2,С3. Замінити у...

Заменить в строке все вхождения символов "ph" на "f" , а все вхождения "ed" на "ing" - Pascal
Вывести на экран дисплея заданную текстовую строку предварительно затмении все вхождения в неё символов "ph" на "f" , а все вхождения "ed"...

В заданой строке S(string) обменять местами первое и последнее слово - Pascal
Написать прогу. В заданой строке S(string) обменять местами первое и последнее слово!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru