Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
"Работа с файлами"
Содержание
- 1. "Работа с файлами"
- 2. Процедуры и функции, определенные над типизированными файламиAssign(var
- 3. Процедуры и функции, определенные над типизированными файламиRewrite(var
- 4. Процедуры и функции, определенные над типизированными файламиEof(var
- 5. Процедуры и функции, определенные над типизированными файламиRead(var
- 6. Заполнить файл случайными числами. Далее открыть файл
- 7. Заполнить файл случайными числами. Далее открыть файл и найти сумму чисел.assign(f,a);reset(f);while not eof(f) do beginread(f,n);write(n,‘ ');s:=s+n;end;close(f);writeln('s=',s);readkeyend.
- 8. Создать файл, элементы которого вычисляются по формуле
- 9. Создать файл, элементы которого вычисляются по формуле
- 10. Задания:Определить число четных элементов в файле.Определить сумму
- 11. Скачать презентанцию
Процедуры и функции, определенные над типизированными файламиAssign(var f:tf; filename:string); – устанавливает соответствие между физическим и логическим именами файла. Reset(var f:tf); - открытие файла для чтения.
Слайды и текст этой презентации
Слайд 2Процедуры и функции, определенные над типизированными файлами
Assign(var f:tf; filename:string); –
устанавливает соответствие между физическим и логическим именами файла.
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
beginread(f,m);
if m mod 4=0 then k:=k+1;
write(m,' ');
end;
close(f);
writeln('k=',k);
readkey
end.
Слайд 10Задания:
Определить число четных элементов в файле.
Определить сумму элементов в файле,
которые больше 32
Дан целочисленный типизированный файл f. Все отрицательные элементы
заменить нулями.
