Close(файлова змінна)

Зчитування даних з текстового файла здійснюється процедурами read i readln за таким синтаксисом:

Read(файлова змінна, список введення);

Readln(файлова змінна, список введення);

Запис даних до текстового файла здійснюється процедурами write i writeln за таким синтаксисом:

write(файлова змінна, список виведення);

writeln(файлова змінна, список виведення);

Eof(файлова змінна ) : Boolean;

ФункціяEof(файлова змінна ) : Boolean; повертає значення True, коли при читанні досягнуть кінця файлу.

Загальний вигляд оголошення змінної типізованого файла :

var ім’я файлової змінної : file of тип компонентів;

Приклад програми.

Program f;

Const n=4;{}

Type

Mzap=record

Name: string[12];

Surname: string[20];

Adresa: string[50];

Tel: word;

End;

Filezap=file of mzap;

Var

Friends:filezap;

Potzap: mzap;

I:integer;

Begin

Assign(friends,’druzi.dat’);

Rewrite(friends);

For I:=1 to n do

Begin

Writeln(‘введіть ім’я’);

Readln( potzap.name);

Writeln(‘введіть прізвище’);

Readln( potzap.surname);

Writeln(‘ведіть адресу’);

Readln( potzap.adresa);

Writeln(‘номер телефону’);

Readln( potzap.tel);

Write(friends,potzap);

End;

Close(friends);

Reset(friends);

For I:=1 to n do

Begin

Read(friens,potzap);

If potzap.name=’Саша’

then writeln (potzap.name ,potzap.surname, potzap. Adresa, potzap.tel);

end;

close(friends);

end.