Тип - файл

1.

Тип - файл

2.

Определение
Тип-файл представляет набор данных
(чаще всего одного типа),
расположенных на внешнем устройстве
и имеющий имя.

3.

Любой файл имеет три
характерные особенности
У файла есть имя
Файл содержит компоненты одного типа
Длина вновь создаваемого файла никак
не оговаривается при его объявлении и
ограничивается только ёмкостью
внешней памяти

4.

Задание
Сведения о студенте состоят из его
имени, фамилии, названия группы и
сведений об отметках, полученных в
последнем семестре.
Сформировать файл, содержащий
сведения о студентах группы.
Выяснить, сколько учеников школы не
имеют отметок ниже 4.

5.

Объявление типа файла
Type
<имя>=file of <тип компонентов>; //типиз.
ф.
<имя>=Text; //текстовый файл
<имя>=file ; //нетипизированный файл

6.

Пример
Type
file1=file of integer;
file2=file of char;
file3=Text;
file4=file ;

7.

Объявим переменные
Var
F1:file1;
F2:file2;
F3:file3;
F4:file4;
h:file of real;
t:text;

8.

Файловые переменные
нельзя
Использовать в арифметических
операциях (складывать, вычитать и т.д.)
Присваивать

9.

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

10.

Файловые переменные
содержат следующую информацию
Тип компонентов файла;
Имя файла;
Месторасположение файла на ВУ;
Размер файла;
Значение указателя файла;
Атрибут файла.

11.

Алгоритм работы с файлом

12.

Объявить файловую
переменную
Var
f:file of integer;

13.

Связать файловую
переменную с файлом
ASSIGN (f, 'a.txt');
или
ASSIGN (f, 'h:\I_311\Ivanov\a.txt');

14.

Открыть файл
Существующий для чтения
reset (f);
Для перезаписи старого или создания
нового
rewrite (f);
Для дозаписи
append (f);

15.

Осуществить операции обмена
с файлом
Чтение
read (f,<список ввода>);
Запись
write (f,<список вывода>);

16.

Разорвать связь с физическим
файлом
Close (f);

17.

Основные процедуры для
работы со всеми файлами
assign(f,'имя файла');
append(f);
reset(f);
rewrite(f);
read(f,<список ввода>);
write(f,<список вывода>);
erase(f);
rename(f,'имя новое');

18.

Основные функции для работы
со всеми файлами
Ioresult;
EOF(f);

19.

Для текстовых файлов
Процедуры
writeln (f,<список вывода>);
readln (f,<список ввода>);
Функции
EOLn(f);

20.

Стандартные файловые
переменные
Input
output

21.

Пример
Write('Hellow, World !');
Readln( a, b);

22.

Функции для типизированных
файлов
filesize(f);
filepos(f);

23.

Процедуры для
типизированных файлов
Seek (f, n);

24.

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

25.

Program a1;
var f:file of integer;
i, x.sum : integer;
begin
Assign(f, 'a.txt');
{$i-}
reset(f);
{$i+}
If ioresult <>0 then

26.

Writeln('файла нет. Создать?');
rewrite(f);
for i:=1 to 5 do
begin
readln(x);
write(f,x);
end;
seek(f,0);

27.

Sum:=0;
while not EOF(f) do
begin
read(f,x);
Sum:=sum+x
end;
writeln('сумма компонентов файла', sum);
end.