Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 3
Регистрация: 24.08.2012
Сообщений: 76

Удалить из строки все “ой” и “ои”

25.10.2015, 20:25. Показов 1102. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Удалить из строки все “ой” и “ои”.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.10.2015, 20:25
Ответы с готовыми решениями:

Дано целое число K и текстовый файл. Удалить из каждой строки файла первые K символов (если длина строки меньше K, то удалить из нее все символы)
Помогите Пожалуйста написать программу! Дано целое число K и текстовый файл. Удалить из каждой строки файла первые K символов (если длина...

Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки
pascalABC.net

Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки
Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки с нечетной...

3
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
26.10.2015, 09:16
Pascal
1
2
While Pos('ой',S)>0 do Delete(S,Pos('ой',S),2);
While Pos('ои',S)>0 do Delete(S,Pos('ои',S),2);
0
Модератор
10445 / 5737 / 3406
Регистрация: 17.08.2012
Сообщений: 17,451
26.10.2015, 10:12
В задании не сказано, что нужно удалять все подстроки вида n∙"о"+"n∙"й" и n∙"о"+"n∙"и". Например, можно ли считать, что в строке "оооооййййй" содержится 5 штук "ой"? Полагаю, всё-таки нельзя. Потому что "ой" там только одно, а тот факт, что после его удаления опять "ой" образуется, программу волновать не должно. И в самом деле, в исходной строке один "ой", вот только его и надо, согласно задания, "весь удалить".
1
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
26.10.2015, 10:49
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
Function DelOy(S : String) : String;
Begin
  If Length(S)>1 then
    If (S[1]+S[2]) in ['ой','ои'] then DelOy:=DelOy(Copy(S,3,Length(S)-2))
    else DelOy:=S[1]+DelOy(Copy(S,2,Length(S)-1))
  else DelOy:=S;
end;
 
Begin
  Writeln(DelOy('оооооййййй'));
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.10.2015, 10:49
Помогаю со студенческими работами здесь

Строки. Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1
Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1.В строке S подсчитать кол-во вхождений строки S1.

Объединить все строки, затем удалить из них все вхождения 1-го слова
Ввести строку S1 с помощью оператора Readln. Определить её реальную длину и 1-е слово. В строку S2 вводить информацию посимвольно с помощью...

Объединить все строки, затем удалить из них все вхождения 1-го слова
Напишите пожалуйста программу.. ввести строку S1 с помощью оператора readln. Определить ее реальную длину и 1-е слово.В сроку S2 вводить...

Матрицы. Удалить все строки, все элементы которых больше 34
1) Дана вещественная матрица А(n,m),где n>10, m<10. Разработайте программу, которая удаляет все строки,содержащие только элементы,большие...

Прочитать все строки из файла и удалить все после двоеточия в каждой строке
Подскажите пожалуйста, есть текстовый документ в нем содержится предположим 1000 строк, надо что бы программа прочитала все строки и...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Программный отбор элементов справочника Номенклатура по группе 1С
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор элементов справочника Сотрудники по перечислениям 1С
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru