Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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; ... подробнее
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
25.08.2010, 20:30 0

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

25.08.2010, 20:30. Просмотров 1019. Ответов 9
Метки (Все метки)

Ответ

Меффистоф, ты хотел сказать, и замена?

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


Вернуться к обсуждению:
Нахождение подстрок и их замена.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.08.2010, 20:30
Готовые ответы и решения:

Подсчет подстрок по формуле
Ребят, такие дела, помогите плиз, нужно подсчитать количество 'АВ', в строке,...

Запись подстрок строки в массив
Пользователь вводит строку из букв и пробелов. Записать все слова из этой...

Выведите количество подстрок строки a, являющихся циклическими сдвигами строки b
Строки (Время: 1 сек. Память: 16 Мб Сложность: 34%) Циклическим сдвигом...

Описать функцию, которая возвращает количество подстрок в строке
1. Описать функцию, которая возвращает количество подстрок в строке и эта...

Определить количество уникальных подстрок из 3 символов, входящих в заданную строку
Прошу знающих людей помочь мне в выполнении этой задачи. P. S. Строка...

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