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

UptoLike

ВУЗ: 

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

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

Рубрика: 

7
C: Char;
BIsEmpty: Boolean;
begin
{ Ввод имён файлов }
Write('Имя входного файла: ');
ReadLn(SInFileName);
Write('Имя выходного файла: ');
ReadLn(SOutFileName);
{ Открытие файлов на чтение и запись }
Assign(FIn, SInFileName);
Reset(FIn);
Assign(FOut, SOutFileName);
Rewrite(FOut);
{ Копирование содержимого файла }
while not EOF(FIn) do { пока не достигнут конец файла }
begin
BIsEmpty := True; { предположение, что строка пустая }
while not EOLn(FIn) do { пока не конец строки }
begin
Read(FIn, C); { чтение очередного символа }
Write(FOut, C); { вывод символа в выходной файл }
BIsEmpty := False { если попали внутрь цикла, }
{ значит текущая строка не пустая }
end; { while not EOLn(FIn) }
ReadLn(FIn); { пропуск в файле перевода строки }
if not BIsEmpty then { если строка была не пустой, то }
WriteLn(FOut) { перевод строки в выходном файле }
end; { while not EOF(FIn) }
{ Закрытие файлов }
Close(FIn);
Close(FOut)
end.

Страницы