Переписать в другой текстовый файл строки исходного файла, кроме непустых строк, начинающихся с точки - Pascal ABC
Формулировка задачи:
Дан текстовый файл. Необходимо переписать в другой текстовый файл его содержимое,
кроме непустых строк, начинающихся с точки.
Решение задачи: «Переписать в другой текстовый файл строки исходного файла, кроме непустых строк, начинающихся с точки»
textual
Листинг программы
while not EOF(FIn) do { пока не достигнут конец файла } begin ReadLn(FIn, S); { чтение строки, пропуск перевода } if S[1] <> '.' then { если первый символ не точка } WriteLn(FOut, S) { вывод строки и перевода строки } end;
Объяснение кода листинга программы
- В цикле while не EOF(FIn) do происходит чтение строки из файла FIn в переменную S.
- Если первый символ строки S[1] не равен точке, то выполняется запись строки и перевода строки в файл FOut.
- Цикл while продолжается до тех пор, пока не будет достигнут конец файла.