Скопировать из одного файла в другой слова с чётным количеством букв - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Всем привет. Не работает программа. Задание: Прочитать текст из файла f и записать в g все слова с четным количеством букв. Скорее всего весь мой код - лютый бред, но другой алгоритм не могу придумать.
Решение есть.

Решение задачи: «Скопировать из одного файла в другой слова с чётным количеством букв»

textual
Листинг программы
begin
  var d := (' .,!?:;''"/=<>{}[]()-+').ToCharArray;
  var G : Text; Rewrite(G, 'output.txt');
  foreach var S : String in ReadLines('input.txt') do
    foreach var W : String in S.ToWords(d) do
      if Not Odd(W.Length) then
        WriteLn(G, W);
  Close(G);
end.

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

Код на языке PascalABC.Net выполняет следующие действия:

  1. Создаёт переменную d типа array of char, которая содержит символы, обозначающие пробелы и знаки препинания.
  2. Создаёт объект Text типа StreamWriter для записи в файл output.txt.
  3. Открывает файл input.txt для чтения строк.
  4. В цикле считывает строки из файла input.txt и разделяет каждую строку на слова с помощью метода ToWords(d).
  5. Вложенным циклом проверяет каждое слово на чётность длины с помощью функции Odd(W.Length). Если длина слова чётная, то записывает его в файл output.txt.
  6. Закрывает файл G.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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