Информатика / лекции

{Вывод файла (шаг 2-3)} reset(F);

writeLn(‘Исходный файл F:’); while not EOF(F) do

begin

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

end;

{подсчет среднего арифметического (шаг 3-4)} k:=0;

seek(F,1);

SrA:=0;

while not EOF(F) do begin

read(F,buf);

SrA:=SrA+buf;

k:=k+1;

seek(F,filePos(F)+1);

end;

SrA := SrA / k;

{Замена компонент, чей модуль меньше среднего} {арифметического (шаг 4-5)}

seek(F,0);

while not EOF(F) do begin

read(F,buf);

if abs(buf)<abs(SrA) then begin

seek(F,filePos(F)-1); buf:=2*buf; write(F,buf);

end;

end;

{Вывод измененного файла (шаг 5-6)} seek(F,0);

writeLn(‘Измененный файл F:’); while not EOF(F) do

begin

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

end;

close(F);

end.

seek (F, 0)

buf ← F

Imax:=0; Imin:=0

Min:=buf; Max:=buf

i := 0

Рисунок 8.14 Сортировка файла по возрастанию методом «пузырька»

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;

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