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

UptoLike

ВУЗ: 

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

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

Рубрика: 

14
WriteLn { печать перевода строки }
end; { while not EOF(FText) }
{ Закрытие файла }
Close(FText)
end.
Пример 6. Скопировать содержимое одного текстового файла в другой, но
без пустых строк.
Входные данные:
SInFileName — имя входного текстового файла;
SOutFileName — имя выходного текстового файла;
Текст программы:
{
Копирование содержимое одного текстового файла
в другой без пустых строк, построчная обработка
}
program s_2_2;
var
SInFileName, SOutFileName, S: string;
FIn, FOut: Text;
begin
{ Ввод имён файлов }
Write('Имя входного файла: ');
ReadLn(SInFileName);
Write('Имя выходного файла: ');
ReadLn(SOutFileName);
{ Открытие файлов на чтение и запись }
Assign(FIn, SInFileName);
Reset(FIn);
Assign(FOut, SOutFileName);

Страницы