Основные процедуры и функции обработки файлов (общие).

Assign(f,name);- связь файловой переменной f с внешним файлом.

Reset(f);- открыть существующий файл для чтения.

Rewrite(f);- открыть файл для записи (если существует – стирается!).

Close(f);- закрыть файл для чтения/записи.

Eof(f)- функция «конец файла» (true, если из файла всё считано).

Для типизированных файлов:

Read(f,a);- чтение информации из файла в переменную а.

Write(f,a); -запись информации (значения переменной a) в файл.

Seek(f,num);- пропуск заданного количества записей в файле.

Truncate(f); -удаление части файла с текущего компонента до конца.

FilePos(f)- функция номера текущей записи в файле.

FileSize(f)- функция - количество записей в файле (размер файла).

Для текстовых файлов:

Readln(f,a);- чтение строки из файла.

Writeln(f,a);- запись строки в файл.

Append(f);- открыть файл для добавления в конец файла.

Eoln(f)- функция конец строки файла.

SeekEoln(f)- функция конец строки файла(не замечает пробелов в конце).

SeekEof(f) -функция конец файла(не замечает пробелов в конце файла).

Задача 1. Присвоить переменным числовые значения и сохранить их в файле. Прочитать файл, передав числовые значения другим переменным.

Задача 2. Создать текстовый файл данных из нескольких строк. Прочитать файл.

Прочитать числовое значение из текстового файла в числовую переменную и изменить полученное значение.

Program fil; Uses crt;

var f: file of integer;

b,c,d,x,y,z,i:integer;

t:text; a:string;

Begin

clrscr; b:=3; c:=4; d:=5;

writeln('b=',b,' c=',c,' d=',d);

assign(f,'c:r.dat');

rewrite(f);

write(f,b,c,d);

close(f);

reset(f);

read(f,x,y,z);

write('x=',x,' y=',y,' z=',z);

close(f);

readkey; clrscr; assign(t,'c:\pascal\turbo7\work\prob.dat');

reset(t);

for i:=1 to 4 do

Begin

readln(t,a);

writeln(a);

end;

readln(t,x); x:=x*2; writeln('x=',x);

close(t);

readkey;

End.