Процедуры и функции для работы с файлами.

assign( var f; name: string ); - п роцедура связи файловой переменной с физическим файлом

где f– файловая переменная, name– переменная, определяющая имя физического файла.

Например, Assign (f, ‘spisok.dat’);

reset( var f ); -процедура открывает файл, связанный с файловой переменной f для считывания данных.

rewrite( var f ); - процедура открывает файл, связанный с файловой переменной f для записи данных.

read( var f; d1,d2,…dn ); - процедура считывает данные из файла f в перечисленные переменные d1,d2,…,dn.

write( var f; d1,d2,…dn ); -процедура записывает данные из переменных d1,d2,…dn в файл f.

seek( var f; n: longint ); - процедура устанавливает текущей n-ую запись файла f. После вызова процедуры seek процедура read читает n-ую запись.

close( var f ); - процедура закрывает файл f.

eof( var f ) - функция возвращает результат boolean: true, если считан последняя запись файла и false – в противном случае.

Пример 1. Составить пргорамму, создающую на жестком диске текстовый файл, добавить в созданный файл данные (ф.и.о., номер школы, класс).

Program primer;

Var f: text;

x, y: real;

begin

assign(f,'prim.txt');

rewrite(f);

write(f, ‘Иванов Иван Иванович, Школа № 1, 1 «а» класс’);

Close(f);

end.

Пример 2. а) Создать файл, содержащий значения функции y= x² + x (0<= x<= 2, h= 0,2).
б) Вывести на экран данные в виде таблицы.

Program primer;

Var f: file of real;

x, y: real;

begin

assign(f,'prim.txt');

rewrite(f);

x:=0;

repeat

y:=sqr(x)+x;

write(f,y, х);

x:=x+0.2;

until x>2;

Close(f);

reset(f);

while not eof(f) do begin

read(f,y,x); writeln('x=',x:4:2,' y=',y:8:4);

end;

end.

Пример 3. а) Создать файл, содержащий данные:

· ФИО работника;

· склад;

· стаж работы.

б) Просмотреть записи. Определить фамилию работника, имеющего самый большой стаж работы.

Program pr;

Type rabotnik=record

Fio: string [20];

sklad: char;

stag: integer;

End;

Var

X: rabotnik; f: file of rabotnik;

N, i, max: integer;

Name: string [20];

Begin

Assign(f,’pr.txt’);

Rewrite(f);

Write(‘n=’); Readln (n);

For i:=1 to n do

Begin

Write(‘fio:’); Readln(x.fio);

Write(‘sklad:’); Readln(x. sklad);

Write(‘stag:’); Readln(x. stag);

Write(f,x);

End;

Close(f);

{******************}// можно сделать две разные программы

Assign(f,’pr.txt’);

Rewrite(f);

Max:=0;

While Not EOF(f) do

Begin

Readln(f,x);

Writeln(x.fio: 20, x. sklad:3, x. stag:5);

If x. stag >max then

Begin

Max:=x. stag;

Name:=x.fio;

End;

End;

Writeln(‘max stag -‘, max, name);

Close(f);

Readln;

End.

Не нашли, что искали? Воспользуйтесь поиском: