Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.04.2014, 22:14   #1
MarsLoveMoon
Новичок
Джуниор
 
Регистрация: 22.04.2014
Сообщений: 7
Вопрос Pascal ABC. В текстовом русскоязычном файле убрать все слова, начинающиеся на букву «а» и одновременно содержащие букву «о»

Написать программу, которая преобразует текст, находящийся в текстовом файле, созданном в текстовом редакторе Word. В текстовом русскоязычном файле убрать все слова, начинающиеся на букву «а» и одновременно содержащие букву «о».
MarsLoveMoon вне форума Ответить с цитированием
Старый 22.04.2014, 23:14   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

http://interacia.net/index.php/2011-...-12-28-27.html
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 23.04.2014, 10:15   #3
MarsLoveMoon
Новичок
Джуниор
 
Регистрация: 22.04.2014
Сообщений: 7
По умолчанию

Там нет даже наподобие задания.
MarsLoveMoon вне форума Ответить с цитированием
Старый 23.04.2014, 11:02   #4
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

А собрать нужные элементы из нескольких заданий мощности процессора не хватает? Или Вы реально надеетесь, что эту простейшую задачу Вам решат?
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 23.04.2014, 12:23   #5
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Цитата:
Сообщение от MarsLoveMoon Посмотреть сообщение
Там нет даже наподобие задания.
Как нет? Половинка вашего задания точно есть. Только там буква "а" ищется, а не "о".
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 24.04.2014, 19:02   #6
MarsLoveMoon
Новичок
Джуниор
 
Регистрация: 22.04.2014
Сообщений: 7
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
Как нет? Половинка вашего задания точно есть. Только там буква "а" ищется, а не "о".
в том и проблема что нужно что бы сначала нашёл после пробела букву а.
потом до 2ого пробела он должен вырезать слово если встретит букву о.
а как это записать? найти первую букву я знаю как а дальше как?через какой оператор?
MarsLoveMoon вне форума Ответить с цитированием
Старый 24.04.2014, 19:44   #7
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Удаление подстроки - delete
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 25.04.2014, 16:28   #8
MarsLoveMoon
Новичок
Джуниор
 
Регистрация: 22.04.2014
Сообщений: 7
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
Удаление подстроки - delete
а то я не знала этого оператора. как записать то?
MarsLoveMoon вне форума Ответить с цитированием
Старый 25.04.2014, 17:03   #9
Son Of Pain
Участник клуба
 
Регистрация: 23.12.2010
Сообщений: 1,129
По умолчанию

А дальше найти следующую не-букву. Это и будет конец слова.
Искать циклом for, например, от найденной первой буквы до конца строки.
Что-то вроде
Код:
for i := start_of_word to length(s) do
	if not (s[i] in русские_буквы) then break;
А потом удалять известным уже delete от первой до второй переменной.
Son Of Pain вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано предложение. Вывести на экран все слова, начинающиеся и оканчивающиеся на одну и ту же букву. mimit Помощь студентам 0 22.12.2012 00:36
Дано предложение. Вывести на экран все слова, начинающиеся и оканчивающиеся на одну и ту же букву. mimit Помощь студентам 5 07.12.2012 13:44
Из данного предложения вычеркнуть слова, содержащие заданную букву. ayoka Паскаль, Turbo Pascal, PascalABC.NET 1 17.05.2012 13:30
Разработать две подпрограммы: букву в заглавную и букву в строчную (в т.ч. для русского языка) makzagdon Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 25.04.2011 08:53
Найти все слова, отличающиеся от заданного на 1 букву и имеющую ту же длинну. gred Помощь студентам 5 23.05.2008 08:32