Учебно-методическое пособие. Алматы, 2017 ббк



бет73/106
Дата03.01.2022
өлшемі483.39 Kb.
#451845
түріУчебно-методическое пособие
1   ...   69   70   71   72   73   74   75   76   ...   106
УЧЕБНИКПаскаль(100217)

Типизированный файл – файл в котором все элементы имеют одинаковый тип данных. Элементы типизированного файла могут быть любого типа кроме файлового.

Для хранения каждого элемента данных в файле выделяется строго фиксированое количество позиций, в зависимости от типа этих данных.

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

<Идентификатор файла>: file of <тип данных>;

В нашем случае:



FT : File of integer;
Эта запись указывает на то, что данные в этом файле будут целые числа, лежащие в диапазоне от –32768 до 32767.

Как и при работе с текстовым файлом, для работы с конкретным типизированным файлом, используя процедуру assign() необходимо связать идентификатор файла с именем конкретного физического файла.



Assign (<Идентификатор файла>,<Имя физического файла>);

В нашем случае можно записать



Assign (FT,’may.dat’);

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

Процедура rewrite(<Идентификатор файла>) - открывает файл для записи и перемещает указатель к началу файла.

После окончания работы с типизированным файлом его необходимо закрыть используя процедуру Close(<Идентификатор файла>), которая прерывает связь идентификатора файла с конкретным физическим файлом и позволяет использовать этот идентификатор для работы с другим типизированным файлом имеющем тот же тип данных. Ниже приведен участок программы, которая записывает предварительно введенный числовой массив в файл имеющий тип integer.


procedure exi;

var


FileOut : File of integer;

begin


assign (FileOut, ‘may.dat’);

rewrite(FileOut);

for i:=1 to Kolichestvo do

write (FileOut, Chislo [i]);

close(FileOut);

end;




Достарыңызбен бөлісу:
1   ...   69   70   71   72   73   74   75   76   ...   106




©dereksiz.org 2024
әкімшілігінің қараңыз

    Басты бет