TURBO BASIC

8 Базы данных8.1 Цель работыЦелью работы является закрепление навыков сортировки списков,формирования баз данных, работы с файлами и строковыми переменными.8.2 ЗаданиеРазработать и отладить программу, позволяющую создавать телефоннуюкнигу с возможностью изменения, сортировки данных и ихсохранения в файлах.8.3 Указания к работеМеню телефонной книги должно содержать опции: добавитьномер, удалить, найти, просмотр, выход, в частности10 1 ---------- м е н ю ----------dolocate 22,10,0:color 14,0print "Esc-выход, Ins-добавить, Del-удалить, Tab-найти, 11;print chr$(24) chr$ (25) 11-просмотр"while not instat:wendlocate 22,10:color 7,0:print space$(69) 1 стереть менюc$=inkey$:kod=asc(right$(c$,1)) ' проверка нажатой клавишиselect case kodcase 82:gosub 201 добавить номерcase 83:gosub 401 удалить номерcase 9 :gosub phone:gosub clean 1 найти номерcase 72,75:if m>l then deer m ' к началу спискаcase 80,77:if nKn then incr m ' к концу спискаend selectgosub 30' показать списокloop until kod—271 выход по клавише Esc' ----- Завершение работы --------------Каждая запись - строковая переменная record$(), включает триполя данных, начинающихся с первой, 20 и 40 позиции: телефон (номер),абонент (фамилия) и адрес. Число записей ограничим размером100, поэтому можно сразу объявить статические массивы для записейи вспомогательных индексов, напримерdim record$(100), index(lOO)обозначая n - общее количество записей, m - номер текущей записи.Для хранения данных обычно используют специальные файлы,причем в Бейсике различают файлы с последовательным, параллельнымдоступом и двоичные. Пример сохранения в конце работы строковыхпеременных record$Q в последовательный файл с разделите-32