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

UptoLike

ВУЗ: 

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

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

Рубрика: 

13
Пример 5. Вывести содержимое текстового файла на экран (с сохранением
разбиения на строки), используя построчную обработку и учитывая возможность
длинных строк в файле.
Входные данные:
SFileName — имя текстового файла;
Текст программы:
{
Вывод на экран содержимого текстового файла,
корректная построчная обработка длинных строк
}
program s_1_3;
var
SFileName, S: string;
FText: Text;
begin
{ Ввод имени файла }
Write('Имя файла: ');
ReadLn(SFileName);
{ Открытие файла на чтение }
Assign(FText, SFileName);
Reset(FText);
{ Вывод содержимого файла }
while not EOF(FText) do { пока не конец файла }
begin
while not EOLn(FText) do { пока не конец строки }
begin
Read(FText, S); { чтение подстроки из файла }
Write(S) { печать подстроки }
end; { while not EOLn(FText) }
ReadLn(FText); { пропуск в файле перевода }

Страницы