While not eof(t) do

Begin

Begin

Begin

Begin

Var

Примеры чтения и обработки текстовых файлов

Считывание и запись тестовых файлов

Доступ к текстовому файлу организуется последовательностью, то есть программа не можеит в любой момент времени считать из него произвольную порцию информации или произвести запись в произвольное место файла.

Считывание данных из текстовых файлов выполняется процедурами:

read(<файловая переменная>,<список ввода>);

readln(<файловая переменная>,<список ввода>);

Здесь <список ввода> - перечень переменных литерного, целого или вещественного типов (в ВР + string). Указатель текущего элемента файла при считывании очередного элемента файла автоматически перемещается на следующий элемент (кроме string). Readln дополнительно обеспечивает, после чтения переменных из списка ввода, перевод указателя текущей позиции на начало новой строки.

Запись данных в текстовые файлы выполняется процедурами

write(<файловая переменная>,<список ввода>);

writeln(<файловая переменная>,<список ввода>);

writeln дополнительно обеспечивает после вывода выражений из списка вывода, запись в файл метки конец файла.

Для обнаружения конца файла применяется стандартная функция eof(<файловая переменная>), которая принимает значение TRUE, если указатель файла указывает на метку конец файла, и значение FALSE в ином случае. Таким образом, последовательное чтение всех компонентов из файла, размер которого неизвестен может выполняться с помощью цикла:

while not eof(f) do read(f,n);

Для обнаружения конца строки при чтении текстового файла используется встроенная функция eoln(<файловая переменная>), принимающая значение TRUE, если указатель текущего элемента указывает на метку конец строки, и значение FALSE в противном случае.

Текстовый файл может использоваться для хранения числовых значений. При считывании таких значений из файла или их записи в файл происходит автоматическое преобразование из числового формата в символьный и наоборот.

Пусть дана книга. Требуется подсчитать среднее количество букв, приходящееся на одну строку.

Procedure mean(var book:text);

Ks,kb:integer; c:char;

reset(book);

ks:=0;

kb:=0;

while not eof(book) do { цикл по строкам }

while not eoln(book) do { цикл по буквам }

kb:=kb+1; { счетчик букв }

read(book,c);

end;

readln(book); { пропуск конца строки }

ks:=ks + 1; { счетчикстроки }

end;

writeln(‘ Среднееколичествобукввстроке’ ,trunc(kb/ks+0.5));

end;

Написать функцию, которая подсчитывает число пустых строк в текстовом файле.

Function emptylines(var t:text):integer;

Var k,d:integer;

C:char;

reset(t);

k:=0;

Дата добавления: 2014-01-07