Строки. 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.

Объяснение кода листинга программы

В данном коде происходит следующее:

  1. Входной текст, который был прочитан с помощью функции ReadlnString, преобразуется в массив слов с помощью метода ToWords.
  2. Далее каждое слово проверяется на окончание «ый». Если окончание найдено, то с помощью функции copy берется копия слова, начиная с первого символа и до последнего, за исключением последнего символа (длина слова минус 2), и к этой копии добавляется окончание «ая». Если окончание «ый» не найдено, то слово остается без изменений.
  3. Измененные слова объединяются в одну строку с помощью метода JoinIntoString.
  4. Полученная строка выводится на экран с помощью функции writeln.

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы