Работа с текстовыми файлами в языке Паскаль - 15 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

15
Rewrite(FOut);
{ Копирование содержимого файла }
while not EOF(FIn) do { пока не достигнут конец файла }
begin
ReadLn(FIn, S); { чтение строки, пропуск перевода }
if S <> '' then { если считанная строка не пустая, }
WriteLn(FOut, S) { вывод строки и перевода строки }
end; { while not EOF(FIn) }
{ Закрытие файлов }
Close(FIn);
Close(FOut)
end.
При сравнении данного решения с решением той же самой задачи методом
посимвольной обработки (текст программы s_2_1 из примера 2) можно отметить
упрощение алгоритма. Действительно, вместо использования логической
переменной для проверки строки на пустоту используется более ясное для
понимания сравнение: “S <> ''”. Очевидно, что при решении других задач
выбор построчной обработки может привести к
ещё большему выигрышу в
простоте получаемого алгоритма, здесь в полной мере раскрываются все её
преимущества.
Пример 7. Скопировать содержимое одного текстового файла в другой, но
без n последних строк.
Входные данные:
SInFileName — имя входного текстового файла;
SOutFileName — имя выходного текстового файла;
N — количество строк в конце входного файла, которые не нужно
копировать в выходной.
В отличие от предыдущего решения той же задачи (пример 3), далее будет
использован алгоритм, требующий одного прохода по входному файлу, вместо

Страницы