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

UptoLike

ВУЗ: 

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

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

Рубрика: 

6
begin
while not EOLn(FText) do { пока не конец строки }
begin
Read(FText, C); { чтение очередного символа }
Write(C) { печать символа }
end; { while not EOLn(FText) }
ReadLn(FText); { пропуск символа перевода строки }
WriteLn { перевод строки на экране }
end; { while not EOF(FText) }
Close(FText) { Закрытие файла }
end.
Замечание: Необходимо особо обратить внимание на то, что в правильно
составленной программе оператор
Read(FText, C);
никогда не прочитает в переменную С символ перевода строки.
Пример 2. Скопировать содержимое одного текстового файла в другой, но
без пустых строк.
Входные данные:
SInFileName — имя входного текстового файла;
SOutFileName — имя выходного текстового файла;
Текст программы:
{
Копирование содержимого одного текстового файла
в другой без пустых строк
}
program s_2_1;
var
SInFileName, SOutFileName: string;
FIn, FOut: Text;

Страницы