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

UptoLike

ВУЗ: 

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

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

Рубрика: 

5
WriteLn(′Text′);
так и
WriteLn(Output, ′Text′);
1.1 Посимвольная обработка текстовых файлов
Обычно осуществляется при помощи двух вложенных циклов: наружный
проходит по всем строкам в файле, а внутренний — по всем символам в текущей
строке.
Пример 1. Вывести содержимое текстового файла на экран (с сохранением
разбиения на строки).
Входные данные:
SFileName — имя текстового файла;
Текст программы:
{
Вывод на экран содержимого текстового файла
}
program s_1_1;
var
SFileName: string;
FText: Text;
C: Char;
begin
Write('Имя файла: ');
ReadLn(SFileName); { Ввод имени файла }
{ Открытие файла на чтение }
Assign(FText, SFileName);
Reset(FText);
{ Вывод содержимого файла }
while not EOF(FText) do { пока не достигнут конец файла }

Страницы