Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Freshorange
0 / 0 / 0
Регистрация: 11.12.2015
Сообщений: 40
1

Заменить все вхождения подстроки Str1 на подстроку Str2 (подстроки вводятся с клавиатуры)

28.01.2016, 14:12. Просмотров 1774. Ответов 1
Метки нет (Все метки)

Заменить все вхождения подстроки Str l на подстроку Str2 (подстроки вводятся с клавиатуры).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program lab82;
var
  s,str1,str2:string;
  k:byte;
begin
  write('Введите строку текста:');readln(s);
  write('Введите подстроку текста, которую хотите заменить:');readln(str1);
  write('Введите подстроку для замены:');readln(str2);
  while pos(str1,s)<>0 do 
    begin
      k:=pos(str1,s);
      delete(s,k,length(str1));
      insert(str2,s,k);
    end;
  write('Измененная строка:',s);    
end.
Можно ли что поправить?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2016, 14:12
Ответы с готовыми решениями:

Строки. В заданной строке заменить все сочетания подстроки 'на' на подстроку 'над'.
1. В заданной строке заменить все сочетания подстроки 'на' на подстроку 'над'. 2. Составить...

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

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

Процедура: заменить в символьной строке все вхождения одной подстроки на другую
Дано задание: &quot;Напишите программу, которая заменяет в символьной строке все вхождения одной...

Удалить из строки все вхождения заданной подстроки
Даны подстрока и строка. Удалить из строки все вхождения заданной подстроки помогите решить!!!

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
Завершенные тесты: 2
30.01.2016, 00:43 2
если только убрать двойной поиск подстроки
Pascal
1
2
3
4
5
6
7
    k := Pos(str1, s);
    while (k > 0) do 
    begin
        Delete(s, k, Length(str1));
        Insert(str2, s, k);
        k := Pos(str1, s);
    end;
Добавлено через 2 минуты
ну и добавить проверку, чтоб str2 не содержала в себе str1 (ибо потенциальное зацикливание).
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2016, 00:43

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

определение первого вхождения подстроки
NewCopy – выделение строки с заданного начального символа до заданного конечного символа NewDelete...

определение первого вхождения подстроки
Для каждого задания создать модуль и разработать ниже перечисленные функции без использования...


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

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

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