Програмування файлів

ПРИКЛАД:

type

Student = record

Name:string[30];

Course:1..4;

Group:string[7];

End;

data = file of student;

var

p: data; {типізований файл}

s: student;

begin

reset(p); {відкриваємо файл}

while not eof(p) do {поки є записи у файлі}

begin

read(p,x);{читаємо черговий запис }

writeln(x.name);{друкуємо прізвище студента}

end;

…

Процедура close призначена для закриття файлу. При цьому файл стає недоступний для обробки, але його можна відкрити ще раз за допомогою розглянутих вище процедур.

Формат процедури

close(f)

де f – ім’я файлової змінної.

Якщо дана процедура відсутня в програмі, то після її завершення ПАСКАЛЬ автоматично закриє всі відкриті файли.

Узагальнення по темі.