План лекций по курсу ОП 2008/09 — весенний семестр — различия между версиями
Материал из Вики ИТ мехмата ЮФУ
Admin (обсуждение | вклад) (→Лекция 2 ( 18.02.09 )) |
Admin (обсуждение | вклад) (→Файлы) |
||
Строка 1: | Строка 1: | ||
==Лекция 1 ( 17.02.09 ) == | ==Лекция 1 ( 17.02.09 ) == | ||
− | ==Файлы | + | === Файлы. Введение === |
− | |||
Определение. Преимущества файлов. | Определение. Преимущества файлов. | ||
Версия 23:23, 17 февраля 2009
Содержание
- 1 Лекция 1 ( 17.02.09 )
- 2 Лекция 2 ( 18.02.09 )
- 3 Лекция 3 ( 24.02.09 )
- 4 Лекция 4 ( .09 )
- 5 Лекция 5 ( .09 )
- 6 Лекция 6 ( .09 )
- 7 Лекция 7 ( .09 )
- 8 Лекция 8 ( .09 )
- 9 Лекция 9 ( .09 )
- 10 Лекция 10 ( .09 )
- 11 Лекция 11 ( .09 )
- 12 Лекция 12 ( .09 )
- 13 Лекция 13 ( .09 )
- 14 Лекция 14 ( .09 )
- 15 Лекция 15 ( .09 )
Лекция 1 ( 17.02.09 )
Файлы. Введение
Определение. Преимущества файлов.
Классификация файлов
- по типу компонент (текстовые, двоичные (типизированные,бестиповые))
- по способу доступа (последовательный, произвольный)
Понятие файловой переменной, файлового указателя Буферизация в файлах
Подпрограммы для работы с закрытыми файлами
procedure Rename(f, name); procedure Erase(f); function FileExists(name): boolean; function DeleteFile(name): boolean; function RemoveDir(name): boolean; function GetCurrentDir: string; function SetCurrentDir(name): boolean; function CreateDir(name): boolean; function ExtractFileName(name): string; function ExtractFileExt(name): string; function ExtractFilePath(name): string;
Ошибки ввода-вывода при работе с файлами
- файл открыли, но забыли выполнить Assign
- открыли, но файла нет на диске (или нет прав доступа на чтение)
- попытка считывания за концом файла
Пример. Попытка считывания за концом файла.
Assign(f,'a.dat');
try
Reset(f);
try
read(f,x);
finally
Close(f);
end;
except
writeln('Произошла ошибка ввода-вывода');
end;
Лекция 2 ( 18.02.09 )
Подпрограммы для работы с типизированными файлами
Truncate FileSize FilePos Seek
Варианты использования:
Seek(FileSize(f)) - переместить файловый указатель за конец файла (Eof(f)=True) Seek(FilePos(f)-1) - вернуться на 1 позицию назад
Пример 1. Добавление 0 в конец файла
Пример 2. Возведение всех элементов файла в квадрат.
Пример 3. Использование в базах данных - перевод Иванова в 10 группу в виде наказания
Пример 4. Сортировка файла
for var i:=FileSize(f)-1 downto 1 do
for var j:=0 to i-1 do
begin
Seek(f,j);
read(f,x,y);
if x>y then
begin
Seek(f,j);
write(f,y,x);
end;
end;
Подпрограммы для работы с текстовыми файлами
Append Eoln SeekEof SeekEoln Read, Write - особенности Readln, Writeln
Пример 1. Дан текстовый файл, содержащий целые числа. Найти их сумму.
var f: text;
s,x: integer;
begin
Assign(f,'a.txt');
Reset(f);
s := 0;
while not SeekEof(f) do
begin
read(f,x);
s += x;
end
Close(f);
end.
Пример 2. Обработка строк в текстовых файлах.