Переписать в другой текстовый файл строки исходного файла, кроме непустых строк, начинающихся с точки - Pascal ABC

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

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

Дан текстовый файл. Необходимо переписать в другой текстовый файл его содержимое, кроме непустых строк, начинающихся с точки.

Решение задачи: «Переписать в другой текстовый файл строки исходного файла, кроме непустых строк, начинающихся с точки»

textual
Листинг программы
while not EOF(FIn) do          { пока не достигнут конец файла }
  begin
      ReadLn(FIn, S);            { чтение строки, пропуск перевода }
      if S[1] <> '.' then            { если первый символ не точка }
        WriteLn(FOut, S)         { вывод строки и перевода строки }
  end;

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

  1. В цикле while не EOF(FIn) do происходит чтение строки из файла FIn в переменную S.
  2. Если первый символ строки S[1] не равен точке, то выполняется запись строки и перевода строки в файл FOut.
  3. Цикл while продолжается до тех пор, пока не будет достигнут конец файла.

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

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