Удалить из строки заданное слово - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.83/18:

@prum 0 / 0 / 0 Регистрация: 22.04.2015 Сообщений: 27

	Удалить из строки заданное слово 20.05.2015, 01:07. Показов 3506. Ответов 1 Метки нет (Все метки) Задание: Удалить из строки заданное слово. 0

Лучшие ответы (1)

Сообщение: #7641380

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

20.05.2015, 01:07

Ответы с готовыми решениями:

Удалить из строки заданное слово
задание..."Удалить из строки заданное слово" сам я это выполнил но осталось лишь додумать как исправить удаление если заданное слово...

Удалить заданное число раз слово
Помогите с алгоритмом выпосления. Задание примитивное - Дан текст, отредактировать строку, удалив из него слова, которые встречаются в...

Удалить лишние символы в строке, чтобы получить заданное слово
Найди слово «программа» Дан набор слов, в котором, удалив из него подряд идущие буквы и, может быть, знаки препинания и пробелы, можно...

Puporev

Почетный модератор

64315 / 47611 / 32743

Регистрация: 18.05.2008

Сообщений: 115,167

20.05.2015, 07:09

Сообщение было отмечено Памирыч как решение

Решение

Условие довольно куцее, решение такое же.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var s,sl:string;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
writeln('Введите слово для удаления');
readln(sl);
s:=' '+s+' ';
while pos(' '+sl+' ',s)>0 do
delete(s,pos(' '+sl+' ',s),length(sl)+1);
if s[1]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete(s,length(s),1);
write(s);
readln
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

20.05.2015, 07:09

Помогаю со студенческими работами здесь

Ввести строку и слово. Удалить слово из строки, если она в ней содержится.
Ввести строку и слово. Удалить слово из строки, если она в ней содержится. вот что получилось: var s: string; l, i, j: integer; ...

Выявление строки, в которой заданное слово встречается чаще
Исходные данные представляют собой отдельное слово и далее 2 строки слов. написать программу, включающую 2 процедуры, выполняющие...

Удалить из строки предпоследнее слово, а в конце строки добавить точку, если ее не было.
Удалить из строки предпоследнее слово, а в конце строки добавить точку,если ее не было.

Вывести заданное слово заданное количество раз разными цветами.
Программа запрашивает слово, количество повторов и выводит это слово указанное количество раз. разными цветами ( с помощью цикла)

Удалить 3 слово строки
Задача-удалить 3 слово.надо решить с помощью функции которая ищет пробел и процедуры копирования слов по заданной позиции до...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

Наверх