Из текстового файла f переписать в файл g все строки, содержащие более 30 символов - Turbo Pascal

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

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

Дан текстовый файл f. Переписать в файл g все строки файла f, содержащие более 30 символов. Файл f.txt создается пользователем.Нужно перевести с С++ и изменить немного под мою задачку)

Решение задачи: «Из текстового файла f переписать в файл g все строки, содержащие более 30 символов»

textual
Листинг программы
var f, g: Text; s: String;
begin
  Assign(f,'f.txt'); Assign(g,'g.txt');
  Reset(f); Rewrite(g);
  while not EoF(f) do begin
    ReadLn(f,s); if Length(s)>30 then WriteLn(g,s);
  end;
  Close(f); Close(g);
end.

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

  1. Объявляются переменные f, g и s типа Text и String соответственно.
  2. Задаются пути к файлам f и g через функцию Assign.
  3. Функция Reset в файле f сбрасывает счетчик строк, а функция Rewrite в файле g создает новую строку.
  4. В цикле while не EoF(f) происходит чтение строки s из файла f с помощью функции ReadLn.
  5. Если длина строки s больше 30 символов, то она записывается в файл g с помощью функции WriteLn.
  6. После окончания чтения файла f, файлы f и g закрываются с помощью функций Close.

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


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

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

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