Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей
В данной презентации рассматриваются теоретические понятия и задачи на закрепление.
Процедуры и функции, определенные над типизированными файлами: Assign(var f:tf; filename:string); Reset(var f:tf); Rewrite(var f:tf); Assign(var f:tf; filename:string); Reset(var f:tf); Assign(var f:tf; filename:string); Eof(var f:tf): boolean; Close(var f:tf); Read(var f:tf; k:<тип компонента>); Write(var f:tf; k:<тип компонента>);
Работа с файлами
Pascal
Процедуры и функции, определенные над типизированными файлами
Assign ( var f : t f; filename : string ); – устанавливает соответствие между физическим и логическим именами файла.
Reset ( var f : t f); - открытие файла для чтения.
Процедуры и функции, определенные над типизированными файлами
Rewrite ( var f : tf ); - открытие файла для записи.
Если такого файла нет, то создается метка файла и указатель файловой переменной устанавливается перед первой компонентой. Если файл с таким именем есть, то указатель также устанавливается перед первой компонентой. Содержимое файла при записи будет стерто. За этим должен следить программист.
Процедуры и функции, определенные над типизированными файлами
Eof ( var f : tf ): boolean ; - определяется конец файла. Функция возвращает значение true , если встретился маркер конца файла (#26).
Close ( var f : tf ); - закрытие файла для чтения или записи. Устанавливается маркер конца файла (#26). По окончании работы файл должен быть обязательно закрыт , иначе к нему не будет доступа. Close ( f );
); - чтение компоненты из файла в переменную k . Write( var f : tf ; k : тип компонента ); - запись из переменной k в компоненту файла." width="640"
Процедуры и функции, определенные над типизированными файлами
Read ( var f : tf ; k : тип компонента ); - чтение компоненты из файла в переменную k .
Write( var f : tf ; k : тип компонента ); - запись из переменной k в компоненту файла.
Заполнить файл случайными числами. Далее открыть файл и найти сумму чисел.
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;
Заполнить файл случайными числами. Далее открыть файл и найти сумму чисел.
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.
Создать файл, элементы которого вычисляются по формуле 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;
Создать файл, элементы которого вычисляются по формуле 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.
* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт
