Строки. 1- Вычеркнуть из текста все повторяющиеся слова. 2 - Изменить окончания слов «ый» на «ая» - PascalABC.NET
Формулировка задачи:
1) Дан текст. Слова в тексте разделены пробелами. Вычеркнуть из текста все повторяющиеся слова.
2) Дан текст, содержащий не более 250 символов. В тех словах, которые заканчиваются сочетанием букв «ый», заменить это сочетание на «ая».
Решение задачи: «Строки. 1- Вычеркнуть из текста все повторяющиеся слова. 2 - Изменить окончания слов «ый» на «ая»»
textual
Листинг программы
begin writeln(ReadlnString('Текст:').ToWords.Select(w -> w.EndsWith('ый') ? copy(w, 1, w.Length - 2) + 'ая' : w).JoinIntoString); end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Входной текст, который был прочитан с помощью функции ReadlnString, преобразуется в массив слов с помощью метода ToWords.
- Далее каждое слово проверяется на окончание «ый». Если окончание найдено, то с помощью функции copy берется копия слова, начиная с первого символа и до последнего, за исключением последнего символа (длина слова минус 2), и к этой копии добавляется окончание «ая». Если окончание «ый» не найдено, то слово остается без изменений.
- Измененные слова объединяются в одну строку с помощью метода JoinIntoString.
- Полученная строка выводится на экран с помощью функции writeln.