Слайд 2Процедуры и функции, определенные над типизированными файлами
Assign(var f:tf; filename:string); –
устанавливает соответствие между физическим и логическим именами файла.
Reset(var
f:tf); - открытие файла для чтения.
Слайд 3Процедуры и функции, определенные над типизированными файлами
Rewrite(var f:tf); - открытие
файла для записи.
Если такого файла нет, то создается метка файла
и указатель файловой переменной устанавливается перед первой компонентой. Если файл с таким именем есть, то указатель также устанавливается перед первой компонентой. Содержимое файла при записи будет стерто. За этим должен следить программист.
Слайд 4Процедуры и функции, определенные над типизированными файлами
Eof(var f:tf): boolean; -
определяется конец файла. Функция возвращает значение true, если встретился маркер
конца файла (#26).
Close(var f:tf); - закрытие файла для чтения или записи. Устанавливается маркер конца файла (#26). По окончании работы файл должен быть обязательно закрыт, иначе к нему не будет доступа. Close(f);
Слайд 5Процедуры и функции, определенные над типизированными файлами
Read(var f:tf; k:);
- чтение компоненты из файла в переменную k.
Write(var f:tf; k:
компонента>); - запись из переменной k в компоненту файла.
Слайд 6Заполнить файл случайными числами. Далее открыть файл и найти сумму
чисел.
program one;
Uses crt;
Var f: file of integer; m,n,i,s: integer; a:
string;
Begin ClrScr;
a:='c:\file1.txt';
assign(f,a); rewrite(f); randomize;
Write('n= '); readln(n);
for i:= 1 to n do begin
m:=-20+random(65);
write(f,m);
Write(m,' '); end;
close(f);
writeln;
Слайд 7Заполнить файл случайными числами. Далее открыть файл и найти сумму
чисел.
assign(f,a);
reset(f);
while not eof(f) do begin
read(f,n);
write(n,‘ ');
s:=s+n;
end;
close(f);
writeln('s=',s);
readkey
end.
Слайд 8Создать файл, элементы которого вычисляются по формуле m=i*i+4*i, i..n Определить
число элементов файла, делящихся на 4
program two;
Uses crt;
Var f:
file of integer; m,n,i,k: integer; a: string;
Begin ClrScr;
a:='c:\file2.txt';
assign(f,a); rewrite(f);
Write('n= '); readln(n);
for i:= 1 to n do begin
m:=i*i+4*i;
write(f,m);
Write(m,' '); end;
close(f);
writeln;
Слайд 9Создать файл, элементы которого вычисляются по формуле m=i*i+4*i, i..n Определить
число элементов файла, делящихся на 4
assign(f,a);
reset(f);
while not eof(f) do
begin
read(f,m);
if m mod 4=0 then k:=k+1;
write(m,' ');
end;
close(f);
writeln('k=',k);
readkey
end.
Слайд 10Задания:
Определить число четных элементов в файле.
Определить сумму элементов в файле,
которые больше 32
Дан целочисленный типизированный файл f. Все отрицательные элементы
заменить нулями.