- •Специальность: автоматизированные систмы обработки информации и управления
- •Курсовой проект
- •По дисциплине
- •«Основы алгоритмизации и программирования»
- •На тему: Разработка базы данных «Рынок недвижимости»
- •Введение
- •Общая часть
- •Цели разработки и анализ использование разработки.
- •Теоретические основы курсовой работы
- •Используемая система программирования. Turbo Pascal
- •Технология построения меню
- •Циклы. Виды циклов
- •Поиск информации в базе
- •Файлы типа «Запись»
- •Дозапись элементов в типизированные файлы
- •Специальная часть
- •Постановка задачи
- •Проектирование задачи
- •Проектирование файла
- •Алгоритм работы с файлом
- •Алгоритм работы программы
- •Входные данные.
- •Выходные данные.
- •Руководство на эксплуатацию
- •Руководство системного программиста
- •Заключение
- •Приложение с Текст разработанной программы
-
Поиск информации в базе
Поиск играет не маловажную роль в базе данных. Для комфортной работы с базой он просто напросто необходим. Функция поиска строится на совпадении данных ключевого поля базы и критерия поиска, который вводится пользователем.
Алгоритм построения блока поиска:
-
Создаем переменную для поиска и переменную – признак (было найдено искомое или нет) Например: Var Poisk:string; k:integer;
-
Открываем входной файл для поиска Reset(имя файла);
-
Выполняем ввод в переменную для поиска.
-
Переменной признака присваиваем значение 0.
-
Организуем цикл While not eof(имя файла) do
-
Считываем запись из файла (Например: read(a,telspr);).
-
Сравниваем переменную поиска с полем записи по которому осуществляет поиск.
-
Если условие Истина, то вывести информацию об этой записи и переменной. Признаку присваиваем значение 1.
-
Сравниваем параметр. Если параметр не равен 1, то выводим на экран сообщение «Записи не найдены» Например if k<>1 then writeln(‘Записи не найдены’);
-
Закрываем входной файл Close(имя файла).
-
Файлы типа «Запись»
В Паскале существуют файлы, элементами которого может быть структура «Запись».
Файл является последовательностью записей одинакового типа. Такая разновидность файлов называется «Типизированные» фалы. Они применяются в основном для создания различных баз данных. Чтобы организовать в программе работу с таким файлом, выполняются следующие действия:
-
Описать в разделе типов нестандартный тип данных для записи, задавая произвольные названия (Например ZAP).
TYPE ZAP=RECORD
A:CHAR;
B:REAL;
END;
-
Задать файл в разделе var и этому файлу задать описанный в разделе TYPE нестандартный тип VAR F:FILE OF ZAP;
-
Для обращения к файлу описывается в разделе VAR специальная переменная такого же типа. ZR:ZAP;
Для создания файла информация запрашивается с клавиатуры. Например: writeln(‘Ведите…’);
Readln(имя записи. имя поля);
Заполняются все поля записи и запись выводится в файл. Writeln(f,zr);
Где f – имя файла, ZR – имя записи.
Поля можно вывести: writeln(zr.a,’ ’,zr.b);
Обработка элементов файла ведется в цикле. Например:
While not eof(f) do…
Окончание файла распознается с помощью функции EOF, как и в текстовом файле. Но функция EOLN в типизированных файлах неприменима. Типизированный файл нельзя посмотреть в текстовом редакторе типа «блокнот» или другом. При желании посмотреть текстовый файл нужно написать программу вывода записей на экран.
-
Дозапись элементов в типизированные файлы
-
Между командами CLOSE и REPEAT повторить блок создания файла от REPEAT до UNTIL P= количество записей
-
Перед REPEAT поставить команды:
RESET – открыть для чтения
SEEK(имя файла, количество записей в файле) – Найти последнюю запись и приготовиться к выводу после нее дополнительных записей. Количество выводимых записей установить в P.
Примечание. Если предполагается блок дозаписи повторять несколько раз, то Р нужно обнулять(после дозаписи или перед входом в блок)
Команду SEEK можно использовать в таком формате SEEK(имя_файла,filesize(имя_файла)); Тогда количество элементов в фале будет определяться автоматически и каждый раз заново.
-
Откорректировать запросы новой информации и вывод в файл.