Примеры. Прямой доступ к бинарным файлам

Прямой доступ к бинарным файлам

Begin

Begin

Var

Последовательный доступ к бинарным файлам

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

While not eof(t) do begin

Begin

Var

Begin

While not eoln(t) do

Begin

d:=0;

d:=d+1;

read(t,c);

end;

if d=0 then k:=k+1; { если пустая строка }

readln(t);

end;

emptyliines:=k;

end;

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

function countP(var t:text): integer;

k: integer;

c: char;

reset(t);

k:=0;

read(t, c); { считываем первую литеру }

if c = ‘p’ then k:=k + 1;

readln(t); { пропуск остатка строки }

end;

countP:=k;

end;

ЛЕКЦИЯ №17

Для связывания бинарных файлов используются рассмотренные ранее процедуры assign, reset, rewrite. А для последовательного чтения и записи – read и write. Особенность использования процедур read и write в этом случае является то, что параметры этих процедур должны принадлежать типу, заданному в объявлении файловой переменной.

program readarr;

{ последовательный ввод чисел из файла в массив и вычисление среднего S }

const n = 100;

i: integer;

a: array [1..n] of integer;

infile: file if integer;

s: real;

assign(infile, ‘in.dat’);

reset(infile);

i:=1;

s:=0;

while not eof(infile) and (i <= n) do

read(infile,a[i]); { тип a[i] должен соответствовать типу эл-тов файла }

s:=s + a[i];

i:=i + 1;

end;

if (i – 1) > 0 then s:=s / (i – 1);

…

В ВР имеются специальные процедуры и функции, которые обеспечивают прямой доступ к компонентам бинарных файлов. Прямой доступ возможен благодаря тому, что все компоненты бинарного файла имеют одинаковый размер и поэтому к ним можно обращаться по номеру (тип Longint).

ü Функция filepos(F), где F – типизированная файловая переменная, возвращает номер текущего элемента файла. Файл F должен быть открыт.

ü Функция filesize(F) возвращает количество элементов файла.

ü Процедура seek(f,n) перемещает указатель текущего элемента в позицию N

Применяя последовательно seek(f, n) и read(f,x) можно из файла считывать элементы в произвольном порядке.

ü Процедура truncate(f) удаляет все элементы из файла, начиная с текущего и до конца.

Имеются записи о сотрудниках, содержащие фамилию и инициалы, год рождения и оклад сотрудника. Требуется написать программу с использованием процедур и функций, которая:

ü Вводит записи о сотрудниках с клавиатуры в типизированный файл и упорядочивает его по размеру оклада

ü Осуществляет поиск сотрудников в файле по фамилии и вычисляет средний оклад этих сотрудников.

ü Отображает содержимое типизированного файла

Алгоритм решения задачи

1. Ввести с клавиатуры сведения о сотрудниках в типизированный файл. При этом будет прекращать ввод, если пользователь введет символ «*».

2. Выполнить сортировку файла по окладу используя возможность прямого доступа к элементам типизированного файла

3. Обеспечить вывод сведений о сотруднике

А) ввести с клавиатуры фамилию и выполнить поиск сотрудника в файле по фамилии

B) вывести сведения о сотруднике или сообщение об его отсутствии

С) вывести средний оклад найденных сотрудников

4. Отобразить содержимой типизированного файла

program Demo_TypedFiles;

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