Описание разработки структуры программы
Для облегчения и наглядности работа с программой происходит через оператор choice, который позволяет пользователю выбрать необходимый ему пункт. Само консольное приложение разбито на подпрограммы при помощи процедур, что существенно «облегчает» главный код программы.
Все данные, внесенные в процессе работы, можно сохранить в нетипизированный файл. Также данные можно из него подгрузить и работать со списком по-новому. Графический режим не использовался.
Исходный код программы состоит из главного файла - Kartoteka.dpr. Для успешной компиляции необходимы стандартные библиотеки Delphi. Программа начинается с зарезервированного слова program. Строка {$APPTYPE CONSOLE} указывает на то, что данная программа представлена в виде консольного приложения.
Словесный алгоритм
Программа начинается с зарезервированного слова program. Первоначально на экране появляется DOS-окно, на котором можно увидеть список предлагаемых действий:
Добавить квартиру
Сохранить данные
Открыть данные
Поиск квартиры для обмена
Показать сохраненные данные
Закрыть программу
Выбор какого-либо пункта осуществляется путём нажатия на клавишу с необходимой цифрой с помощью функции case choice of соответственно.
При выборе первого пункта на экран выводится строка для заполнения «Количество комнат», далее после набранного значения нажимается кнопка ввода и пользователю представляется строка для заполнения «Этаж», далее строка «Площадь» и наконец, последняя строка «Адрес».
При выборе второго пункта пользователь может сохранить набранные им данные в файл типа list. Сохранение списка происходит при помощи оператора Assign(f,'list');.
При выборе третьего пункта пользователь может открыть набранный ранее список, где будут такие данные как количество комнат, этаж, площадь, адрес. Либо после открытия пользователь может начать добавлять новые элементы в конец списка.
При выборе четвертого пункта пользователь может произвести поиск квартиру для обмена по критериям задания.
При выборе пятого пункта пользователь может посмотреть весь список, сохраненный ранее. Для этого используется оператор ShowList(list1);.
Спецификация переменных
Таблица 1 – Спецификация переменных
-
Идентификатор
Тип
Описание
Link =;
Node =
^Node
record
Переменная типа запись
kol
Integer
Количество комнат
it
Integer
Этаж
sq
Integer
Площадь
adr
String
Адрес
Next
Link
Переменная типа ссылка
choice
Выбор из списка
x1
Integer
Переменная количества комнат
х2
Integer
Переменная этажа
х3
Integer
Переменная площади
х4
String
Переменная адреса
list1
List
Переменная типа List