Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
25.08.2010, 21:45

Нахождение подстрок и их замена.

25.08.2010, 21:45. Просмотров 978. Ответов 9
Метки (Все метки)

Ответ

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
var s, sub, rep: string;
function ReplaceStr(const S, Srch, Replace: string): string;
var
 I:Integer;
 Source, res:string;
begin
 Source:= S;
 res:= '';
 repeat
  I:=Pos(Srch, Source);
  if I > 0 then begin
   res:=res+Copy(Source,1,I-1)+Replace;
   Source:=Copy(Source,I+Length(Srch),MaxInt);
  end else res:=res+Source;
 until I<=0;
 ReplaceStr = res;
end;
 
begin
write('Введите строку: '); readln(s);
write('Введите подстроку для замены: '); readln(sub);
write('Введите строку, которой нужно заменить подстроку: '); readln(rep);
writeln(ReplaceStr(s, sub, rep));
readln;
end.

Не по теме:

грёбаный паскаль...



Вернуться к обсуждению:
Нахождение подстрок и их замена.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.08.2010, 21:45

Среди выделенных подстрок найти подстроку, содержащую символ с минимальным кодом
Дано k литерных строк. Каждая строка содержит латинские и русские буквы, цифры...

Сколько есть подстрок четной длины у строки S, которые являются палиндромами
помогите с данной задачкой... У Азизхана есть строка S. Его интересует...

Описать процедуру, по которой определяется число подстрок в строке и эта информация добавляется в конец строки
Описать процедуру, по которой определяется число подстрок в строке и эта...

0
Другие темы раздела
Pascal при обращении к полям класса ошибка http://www.cyberforum.ru/pascal/thread161538.html
Здравствуйте. У меня следующая проблема. не могу найти в чем причина ошибки. написанная программа использует созданный мною модуль, где описан класс. Почему-то в месте, где происходит обращение к...
Pascal Отсортировать данный массив по убыванию 2.Дан одномерный массив А,состоящий из целых чисел.Отсортировать данный массив по убыванию. Помогите пожалуйсто я уже это писал,завтра сдавать нужно=( http://www.cyberforum.ru/pascal/thread161510.html
Pascal Найти все нечётные числа в промежутке числовой последовательности
Найти все нечётные числа в промежутки числовой последовательности от A до B.Значения A и B вводятся с клавиатуры. Буду признателен за выполненную работу!=)Если конечно это не составит вам особого...
Pascal Вычислить значение функции
Вычислить значение y если: y={a^2-b/d -при b>0 Пояснение: a^2 -это a в квадрате. {a-b-d -при b\<0 b\<0 -это b меньше или равно 0 Заранее...
Pascal числа Фибоначчи http://www.cyberforum.ru/pascal/thread161493.html
Здравсвтуйте. Помогите пожалуйста. Тут такая задача, нужно написать программу которая вычислила бы вычислила числа Фибоначчи. От 1 до 100-го числа. Очень нужно. заранее спасибо.
Pascal функция для создания списка структур Вопрос собствено в том , как оформить функцию для добавления структуры в список. type prepod=record name:string; surn:string; midn:string; predmet:string; robgod:integer; ... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru