an>
Приклад.
type myfile = file of integer: = file of string [20];
var filel, file2: myfile; druzi: list;: file of boolean;
. Дії з файлами. Для того, щоб найти Потрібний елемент файлу, звітність, послідовно переглянути ВСІ попередні. Це назівається послідовнім доступом до файлу.
Для опрацювання файлу его звітність, Відкрити, віконаті необхідні Дії та закрити.
Для визначення кінця файлу є стандартна логічна функція
eof (<имя файлу>).
Значення цієї Функції буде true, ЯКЩО досягнутості Кінець файлу.
Файл можна Відкрити позбав або для читання, або для запісування в нього ІНФОРМАЦІЇ.
Для роботи з файлами є Такі команди (процедури модуля System):
assign (<имя файлу>, <Зовнішнє имя>) - налагоджує зв'язок между іменем файлу и файлом на зовнішньому носії;
reset (<имя файлу>) - відкріває файл для читання з нього даніх;
read (<имя файлу>, <имя змінної>) - читає (вводити) дяни з файлу в оперативну пам'ять;
сlоsе (<имя файлу>) - закриває файл;
rewrite () - відкріває файл для запісування в нього даніх;
write (, <имя змінної>) - запісує (виводу) дяни у файл.
Тут <имя файлу> - имя файлової змінної, завдання у розділі оголошення змінніх, <Зовнішнє имя> - имя файлу даніх на зовнішньому носії, взяті у лапки, Наприклад, 'd: grupal labl.pas' .
Задача. Створити файл запісів, Який містіть інформацію про комп'ютери: марку, ОБСЯГИ вінчестера (hdd), ОБСЯГИ оператівної пам'яті (ram) та швідкодію (speed). Вивести вміст файлу на екран. br/>
program Computer1;
uses Crt;
type comp = record {Опішемо тип запісів, Який містіть}
marka: string [15]; {характеристики комп'ютера}
hdd, ram: real;
speed: integer;
end;
myfile = file of comp;
var fl: myfile; i, n: integer;
cl: comp;
begin
clrscr;
writeln ('Уведіть кількі...
