Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Leschenko Mary
0 / 0 / 0
Регистрация: 20.12.2012
Сообщений: 25
1

Введите строку и подстроку. Удвойте все найденные вхождения подстроки в строке. Выведите преобразованную строку

28.12.2012, 06:57. Просмотров 759. Ответов 1
Метки нет (Все метки)

Введите строку и подстроку. Удвойте все найденные вхождения подстроки в строке. Выведите преобразованную строку
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2012, 06:57
Ответы с готовыми решениями:

Введите строку в начале каждого слова поставьте символы "&#". Выведите преобразованную строку на экран
Здравствуйте. Столкнулся с проблемой при написании программы в паскале. Задание: Введите строку...

Заменить все вхождения подстроки W в строке St на подстроку V
заменить все вхождения подстроки W в строке St на подстроку V

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

Удалить все вхождения подстроки в строку в порядке слева направо
написать функцию, которая удаляет все вхождения подстроки в строку в порядке слева направо.

Дано предложение. Заменить в нем все вхождения подстроки Str1 на подстроку Str2
2. Дано предложение. Заменить в нем все вхождения подстроки Str1 на подстроку Str2.

1
CodeR
Фрилансер
3386 / 2787 / 3000
Регистрация: 08.02.2012
Сообщений: 6,976
Записей в блоге: 1
28.12.2012, 08:39 2
Лучший ответ Сообщение было отмечено Leschenko Mary как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var s,s1,st:string;
    i,t:byte;
Begin
    write('Введите строку: ');readln(s);
    write('Введите подстроку: ');readln(s1);
    st:='';
    While Pos(s1,s)>0 do
    Begin
       t:=Pos(s1,s);
       st:=st+Copy(s,1,t-1)+Copy(s,t,Length(s1))+Copy(s,t,Length(s1));
       Delete(s,1,t+Length(s1)-1);
    End;
    writeln('Полученная строка: ',st);
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.12.2012, 08:39

Введите матрицу m*n и выведите на печать I,j – ый элемент, I-ю строку или j-ый столбец.
Введите матрицу m*n и выведите на печать I,j – ый элемент, I-ю строку или j-ый столбец. Введите...

Введите матрицу m*n и выведите на печать I,j – ый элемент, I-ю строку или j-ый столбец. № m n I j 1 7 3 6
Введите матрицу m*n и выведите на печать I,j – ый элемент, I-ю строку или j-ый столбец. ...

индекс вхождения подстроки в строку
Пожайлуста,можете помочь сделать прогу через while надо найти n-ой индекс вхождения подстроки в...


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

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

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