Информатика_всем

8.5 Файлы и подпрограммы

Использование файлов в качестве формальных параметров подпрограмм допускается только как параметров-переменных (с префиксом var), т.е. передача файла-параметра происходит по ссылке с правом изменения. Передача по значению не возможна ввиду возможной относительной неограниченности размера файла. Стоит напомнить, что при передаче параметра по значению происходит создание копии объекта в оперативной памяти компьютера, из-за чего возможна ситуация элементарной нехватки памяти.

Поскольку файловый тип – сложный, то, подобно массивам, он должен быть изначально описан в разделе типов. Рассмотрим работу с файлами и подпрограммами на примере решения следующей задачи.

ПРИМЕР

Создать файл F. Читая файл с конца, переписать компоненты с четных позиций в

файл G, а с нечетных – в файл H.

Начнем с тестового примера:

Рисунок 8.16 Процедуры ввода и вывода файла

Имея блок-схему, достаточно просто составить программу. program FilePodprogr;

type Tfl = file of real; var F,G,H: Tfl; {процедура ввода файла}

procedure InputFile(var X: Tfl; const Name: char); var i: byte; buf: real;

begin rewrite(X);

writeLn('Вводим файл ',Name,' 999окончание ввода'); write('первая компонента:');

readLn(buf); i:=1; while buf<>999 do

begin write(X,buf);

write(i,'-я комп. файла = '); readLn(buf); inc(i);

end;

close(X);

end;

Рисунок 8.17 Процедура чтения файла в обратном порядке и записи результатов в пару новых файлов

{процедура вывода файла}

procedure OutputFile(var X:Tfl; const Name:char); var buf: real;

begin reset(X); writeLn;

writeLn('Файл', Name, ':'); while not EOF(X) do

begin

read(X, buf); write(buf:7:2);

end;

close(X);

end;

{процедура формирования новых файлов}

procedure FormNewFile(var X,Xg,Xh:Tfl); var buf: real;

begin reset(X);

seek(X, FileSize(X)-1); rewrite(Xg); rewrite(Xh);

repeat

Read(X, buf);

if filePos(X) mod 2=0 then write(Xg,buf)

else write(Xh,buf);

seek(X, filePos(X)-2); until filePos(X)=0;

end;

{главная программа} begin

assign(F,'FileF.xxx');

assign(G,'FileG.xxx');

assign(H,'FileH.xxx');

InputFile(F,'F');

FormNewFile(F,G,H);

OutputFile(F,'F');

OutputFile(G,'G');

OutputFile(H,'H');

end.

8.6 Компонентные файлы и массивы

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

Для начала возьмем одномерный массив. Вспомним, что компонентный файл является весьма схожим с одномерным массивом практически по всем параметрам, потому самый простой вариант действий в данном случае – ничего особо не менять. Просто следует поставить в соответствие компонентам файла элементы массива. Нужно указать в файле начальную позицию с которой будет вестись чтение/запись массива и число элементов в массиве. Фрагмент программы полностью копирующий файл F в одномерный массив X может быть таковым:

reset(F);

i:=1;

while not EOF(F) do begin

read(F,buf);

X[i]:=buf;

i:=i+1;

end;

Или наоборот, копирование элементов массива в файл: reset(F);

for i:=1 to N do begin

buf:=X[i];

write(F,buf);

end;

Для двумерных массивов можно придумать разные способы переноса элементов в файл. Самый простой – чтение матрицы по столбцам или по строкам. Например, так можно копировать элементы двумерного массива A в файл F построчно:

reset(F);

for i:=1 to N do for j:=1 to M do

begin

buf:= A[i,j] write(F,buf);

end;

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

procedure FormFile(var F: Tfl; const A:T2mx; N,M: byte)

Не приводя стандартных процедур ввода/вывода матрицы и вывода файла, продемонстрируем процедуру собственно формирования файла, изображенную на Рисунок 8.18.

Рассмотрим полное решение достаточно сложной задачи на совместное использование файлов и массивов.

ПРИМЕР

Задан файл F, в котором содержатся элементы матрицы. Причем известно, что сначала записано число строк, далее число столбцов, а далее элементы матрицы построчно. Нужно: 1) восстановить матрицу; 2) отнормировать ее (разделить все элементы на значение максимального); 3) занести матрицу обратно в файл; 4) переписать все положительные элементы из файла в одномерный массив B.

Тестовый пример показан на Рисунок 8.19.

а) – процедура нормировки матрицы; б) – процедура формирования файла из матрицы

for i:=1 to N*M do begin

write('комп. файла ',Name,' равна: '); readLn(buf);

write(X,buf);

end;

close(X);

end;

Рисунок 8.20 а) – главная программа; б) – формирование файла

Рисунок 8.21 а) – процедура вывода файла; б) – процедура формирования матрицы из файла; в) – процедура вывода матрицы