2. Реализация базы данных клиентов банка на основе двоичных деревьев

   1. Постановка задачи

Требуется разработать программу-базу данных клиентов банка, которая служит для хранения записей о клиентах позволяет выполнять поиск. Эта программа будет предназначена для хранения информации о клиенте – Имя клиента, его доход, номер телефона.

Перед разрабатываемой программой ставятся следующие основные задачи:

• возможность добавления записей клиентов в БД;

• возможность считывания данных из файла;

• просмотра БД клиентов;

• поиск по БД.

2. Глобальные и локальные переменные

   1. Глобальные переменные

Глобальные переменные, используемые в программе, приведены в таблице 5.

Переменная	Тип	Описание
BD	Base	Хранит значение базы
Tree	PNode	Хранит значение самого дерева
p1	PNode	Восстанавливает значение дерева при поиске
n	integer	Хранит значение вводимых данных
x	integer	Хранит значение номера телефона
i	integer	Хранит значение последовательных числе при выполнении циклов
ch	integer	Хранит значение команд во время выполнения программы
k	string	Хранит значение имени клиента
f	text	Хранит значение файловой переменной
t	string	Хранит значение дохода клиента

Таблица 5 – Глобальные переменные

2. Локальные переменные

В данной программе используются следующие локальные переменные:

procedure AddToTree (var Tree:PNode; x:integer; t:string ; k:string[15]) Tree:PNode - xранит значение самого дерева;

• x:integer - xранит значение номера телефона;

• k:String[15] - xранит значение имени Клиента;

• t:string – хранит значение дохода клиента

Procedure Lkp(Tree:PNode).

• Tree: PNode - xранит значение самого дерева;

Procedure zapis (var BD:Base).

• BD:Base - xранит значение самого дерева;

• i:integer - xранит значение последовательных числе при выполнении циклов;

Procedure DeleteTree(var Tree1:PNode ).

• Tree1:PNode - xранит значение самого дерева;

Function Search(Tree:PNode;x:integer;k:string [15]):PNode.

• Tree:PNode - xранит значение самого дерева;

• x:integer - xранит значение номера телефона;

• k:string - xранит значение имени абонента;

• p:PNode - xранит значение дерева.

3. Процедуры и функции

   1. Процедуры программы

Все процедуры приведены в соответствии с приложение Б.

• procedure AddToTree (var Tree:PNode;x:integer; k:string[15]); - процедура добавления элемента в дерево. С помощь данной процедуры происходит создание дерева или добавление нового элемента уже в имеющееся дерево;

• procedure Lkp(Tree:PNode) – процедура вывода каталога на экран. С помощью данной процедуры происходит прохождение каждого элемента дерева и вывод этих элементов на экран. Вывод элементов начинается с нижнего левого. И при выводе элементов на экран получается числовой список выстраивается по возрастанию;

• procedure zapis (var BD:Base) - процедура считывания данных из файла. При помощи данной процедуры происходит считывание из файла, расположенного на компьютере и заранее заполненного, данных и запись их в дерево;

• procedure DeleteTree(var Tree1:PNode ) - процедура удаления дерева. При помощи данной процедуры происходит удаление всего дерева.