Разработка информационно-справочной системы

Задание № 11
                         на курсовое проектирование
                 по дисциплине “Логическое программирование”
                 студенту Пакостиной Александре Викторовне.
                               Группа ИР-1-95.


1. Тема исследования: “Разработка информационно - справочной системы”.
2. Исходные данные: База данных BD, включающая записи вида:

|Характеристика детали                                            | | | | | | | | |
|№     |Место        |Назван|Цена         |Дата поступления     | |      |      |      |
|      |хранения     |ие    |             |                     | |      |      |      |
|артику|№ цеха|№склад|детали|руб   |коп   |год   |месяц |число |
|ла    |      |а     |      |      |      |      |      |      |
|      |      |      |      |      |      |      |      |      |

  Язык программирования: Пролог.
3. Перечень вопросов, подлежащих разработке:
   4. Разработать меню, обеспечивающее взаимодействие пользователя с
      системой, в соответствии с заданием, предусмотрев режимы:
   5. Разработать процедуры:
      . уничтожения записей по признакам;
      . загрузки;
      . сохранения;
      . просмотра;
      . уничтожения;
  3.3. Предусмотреть создание из базы BD новых баз данных B1, B2,
      характеризуемых признаками, задаваемыми пользователем.
4. Перечень графических материалов:

  4.1. Структурная схема меню:

  [pic]
5. Структурная схема программы:

                                    [pic]


5. Календарный план работы над курсовой работой:
   6. Получение задания: 4.10.96.
   7. Анализ задания, постановка задачи, подбор и изучение литературы:
      18.10.96.
   8. Разработка меню и структуры программы: 25.10.96.
   9. Разработка процедур информационно-справочной системы: 15.11.96.
  10. Отладка программы: 29.11.96.
  11. Оформление пояснительной записки и сдача работы на правку: 13.12.96.
  12. Защита курсовой работы: 20.12.96.



                                      Руководитель: Холкин И.И. ____________

                                        Студент: Пакостина А.В. ____________
Описание

1. Понятие об информационно-справочных системах и их программная
  реализация.

  Информационно-справочные системы предназначены для управления различными
  информационными и справочными массивами, в число которых входят и базы
  данных. Эти системы организовывают определенный интерфейс пользователя с
  функциями обработки информации самой системы. Набор возможностей таких
  систем обычно включает в себя коррекцию структуры используемого объекта
  (инкапсулирующего информацию), работа с его составляющими - дополнение,
  редактирование, удаление (в случае, когда роль такого объекта выполняет
  база данных, это - записи), простой просмотр, поиск элементов. Также
  необходимо обеспечить для такой системы и функции постоянного надежного
  хранения - в простейшем случае, это - запись базы из памяти в файл на
  диске и считывание оного с диска в память.

  Программная реализация мало отличается от подобной концепции, но
  конкретизирует абстрактные операции в конкретные процедуры и функции (или
  же объекты) и зависит полностью от возможностей языка, поставленной
  задачи и искусства программиста.
2. Базы данных и способы их представления.

  Общая концепция теории простых баз данных подразумевает наличие
  некоторого множества таблиц и являющихся, собственно, базой данных,
  имеющей определенный идентификатор (имя). Каждая таблица состоит из n-го
  количества записей (величина n зависит от возможностей конкретной
  системы), каждая из которых имеет одну и ту же структуру (в рамках одной
  таблицы) и может объединять в себе несколько разнородных объектов (их
  количество также зависит целиком и полностью от возможностей системы).

  Работа с базой данных предполагает в себе возможность работать с записями
  (либо изменять структуру таблиц).

  В языке программирования Пролог база данных описывается в отдельном
  разделе, именуемом database. Таких разделов может быть несколько в одной
  программе и каждый из них, если они действительно представляют собой
  разные БД, должны иметь разные имена. В случае отсутствия имени у базы
  данных, ей дается имя по умолчанию - dbasedom.

  Работу с загружаемыми базами данных в Прологе реализуют следующие
  стандартные предикаты: assert - добавить запись в БД, retract - удалить
  указанную запись, save - сохранить указанную БД в файле, consult -
  загрузить БД из файла в память.

  В данной работе объявлена главная база данных bd, имеющая предикат
  characteristick, и две временные базы b1, b2 с предикатами table1,
  table2.
3. Разработка системного меню.

  Системное меню объединяет в себе доступ ко всем процедурам информационно
  - справочной системы. Разработка меню отталкивается от имеющихся функций
  системы (предикатов). Поскольку объявлен предикат do (char), служащий
  буфером между системным меню и существующими процедурами, он имеет в себе
  либо подменю с выбором режимов работы имеющихся предикатов, либо их вызов
  с последующим возвратом в системное меню:

  +-------------- Системное меню --------------+
¦  Выберите вариант работы с базами данных:  ¦
¦                                            ¦
¦   1 :-  Загрузить                          ¦
¦   2 :-  Сохранить                          ¦
¦   3 :-  Просмотреть                        ¦
¦   4 :-  Скорректировать                    ¦
¦   5 :-  Удалить запись по признакам        ¦
¦   6 :-  Создать по признакам               ¦
¦   7 :-  Добавить                           ¦
¦   8 :-  Выход в ДОС                        ¦
¦                                            ¦
¦  ------------------| |------------------   ¦
+--------------------------------------------+


4. Разработка структуры программы.

  Системное меню вызывает только предикаты do (<режим>), определенные для
  каждой из необходимых задач (номер режим полностью совпадает с нумерацией
  в главном меню). Каждая из реализаций этого предиката выводит меню, либо
  сразу вызывает соответствующие процедуры: open, store, adding, correct,
  see, del, indication. Процедура Indication выводит дополнительное подменю
  и вызывает либо IndicationB1, либо IndicationB2 в зависимости от выбора
  пользователя. Do(‘8’) завершает работу с системой.
5. Разработка процедур:
   6. Загрузка базы данных (Open).

      В do(‘1’) имеется меню:

      +--------- Загрузить --------+
  ¦      Куда загрузить ?      ¦
  ¦                            ¦
  ¦        1 :-  В bd          ¦
  ¦        2 :-  В b1          ¦
  ¦        3 :-  В b2          ¦
  ¦        4 :-  Меню          ¦
  ¦                            ¦
  ¦      ------| |------       ¦
  +----------------------------+

      процедура Open имеет четыре реализации, для каждого из вариантов
      работы. Для любого случая перед загрузкой базы данных проверяется
      существование файла с введенным именем (предикат exists). Для загрузки
      базы данных используется стандартный предикат consult. При вызове
      Open(‘1’) загрузка производится в базу bd, при вызове Open(‘2’) в базу
      b1, при вызове Open(‘3’) - в b2.
   7. Сохранение (Store).

      В do(‘2’) меню:
  +--------- Сохранить --------+
  ¦      Что сохранить ?       ¦
  ¦                            ¦
  ¦        1 :-  bd            ¦
  ¦        2 :-  b1            ¦
  ¦        3 :-  b2            ¦
  ¦        4 :-  Меню          ¦
  ¦                            ¦
  ¦      ------| |------       ¦
  +----------------------------+

      Существуют предикаты для записи главной базы и двух временных.
      Используется стандартный предикат save, записывающий в текстовый файл
      факты, связанные с данной БД.
   8. Просмотр (See).

      В do(‘3’) меню:
  +-------- Просмотреть -------+
  ¦      Что просмотреть ?     ¦
  ¦                            ¦
  ¦        1 :-  bd            ¦
  ¦        2 :-  b1            ¦
  ¦        3 :-  b2            ¦
  ¦        4 :-  Меню          ¦
  ¦                            ¦
  ¦      ------| |------       ¦
  +----------------------------+

      Предложения See(‘1’) и See(‘2’) создают новые окна и выводят в них
      найденные записи. После каждой выведенной записи запрашивается нажатие
      клавиши, затем повторяется поиск с помошью стандартного предиката Fail
      или происходит выход из предиката в системное меню.
   9. Добавление (Adding).

      Данный предикат был добавлен в программу по причине облегчения работы
      с ней, хоть и в задании его не было.

      В этой процедуре используется определенная в этой же программе
      процедура Get, запрашивающая с клавиатуры значения для новой записи в
      главной базе данных и стандартная процедура assert, добавляющая новый
      факт в базу данных.
  10. Корректировка (Correct).

      В данной программе существует два варианта корректировки -
      редактирование записи, найденной по номеру артикула и найденной по
      названию детали. В каждой из версий предиката вначале запрашивается
      номер артикула (или название) изменяемой записи, поиск и вывод на
      экран, затем происходит ввод новых значений полей, подтверждаются
      сделанные изменения, удаляется старый факт (retract) и добавляется
      вновь сформированный (assert).
  11. Создания базы по признакам (Indication).

      Indication(‘1’) создает базу b1, а Indication(‘2’) - базу b2. Для
      каждой базы существует отдельный предикат - IndicationB1 и
      IndicationB2. Существуют возможности создания таких баз по следующим
      признакам: по месту хранения, по цене, по дате поступления. В каждом
      из вариантов производится запрос на несколько параметров сразу и поиск
      фактов, отвечающих этим требованиям. При успешном поиске, найденный
      факт добавляется в базу b1 или b2.
  12. Удаление записи по признакам (Del).

      Признаками для удаляемой записи могут служить номер артикула,
      название, а также возможно уничтожить из памяти всю базу данных. Во
      всех вариантах используется процедура удаления записи retract.
  6. Листинг.


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %
%
  %  Пакостина Александра.
%
  %         ИР-1-95.
%
  %  Задание 11.
%
  %
%
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

  domains

    artikul = integer
    cex, sklad = integer
    name = string
    rubley, kopeek = integer
    year, month, day = integer
    placedom = place(cex, sklad)
    pricedom = price(rubley, kopeek)
    datedom = date(year, month, day)

  database - bd

    characteristick(artikul, placedom, name, pricedom, datedom)

  database - b1

    table1(artikul, placedom, name, pricedom, datedom)

  database - b2

    table2(artikul, placedom, name, pricedom, datedom)

  predicates

    windows
    go
    do(char)
    open(char)
    store(char)
    adding
    correct(char)
    indication(char)
    indicationB1(char)
    indicationB2(char)
    see(char)
    del(char)
    exists(string)
    show(artikul, placedom, name, pricedom, datedom)
    get(artikul, placedom, name, pricedom, datedom)

  goal

    windows, go.

  clauses

    characteristick(1,place(5,6),"Gayka",price(0,45),date(1996,1,4)).
    characteristick(2,place(6,7),"Vint",price(0,65),date(1996,2,45)).

    windows :-
      makewindow(1,52,0,"",24,0,1,80),
      write(" Пакостина Александра."),
      makewindow(2,52,0,"",0,0,1,80),
      write("           Система управления базой данных \"Характеристика
детали\""),
      makewindow(3,112,1," Системное меню ",2,17,14,46),
      nl, write("  Выберите вариант работы с базами данных:"), nl,
      nl, write("   1 :-  Загрузить"),
      nl, write("   2 :-  Сохранить"),
      nl, write("   3 :-  Просмотреть"),
      nl, write("   4 :-  Скорректировать"),
      nl, write("   5 :-  Удалить запись по признакам"),
      nl, write("   6 :-  Создать по признакам"),
      nl, write("   7 :-  Добавить"),
      nl, write("   8 :-  Выход в ДОС"), nl,
      nl, write("  ------------------| |------------------"),
      framewindow(126).

    go :-
      gotowindow(3), cursor(11,21),
      readchar(X), do(X).

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%

    do('1') :-
      makewindow(4,18,1," Загрузить ",5,25,10,30),
      framewindow(19),
      nl, write("      Куда загрузить ?"), nl,
      nl, write("        1 :-  В bd"),
      nl, write("        2 :-  В b1"),
      nl, write("        3 :-  В b2"),
      nl, write("        4 :-  Меню"), nl,
      nl, write("      ------| |------"),
      cursor(7,13), readchar(X), open(X),
      removewindow, go, !.

    do('2') :-
      makewindow(4,18,1," Сохранить ",5,25,10,30),
      framewindow(19),
      nl, write("      Что сохранить ?"), nl,
      nl, write("        1 :-  bd"),
      nl, write("        2 :-  b1"),
      nl, write("        3 :-  b2"),
      nl, write("        4 :-  Меню"), nl,
      nl, write("      ------| |------"),
      cursor(7,13), readchar(X), store(X),
      removewindow, go, !.

    do('3') :-
      makewindow(4,18,1," Просмотреть ",5,25,10,30),
      framewindow(19),
      write("      Что просмотреть ?"), nl,
      nl, write("        1 :-  bd"),
      nl, write("        2 :-  b1"),
      nl, write("        3 :-  b2"),
      nl, write("        4 :-  Меню"), nl,
      nl, write("      ------| |------"),
      cursor(7,13), readchar(X), see(X),
      removewindow, go, !.

    do('4') :-
      makewindow(4,18,1," Корректировка ",5,25,9,30),
      framewindow(19),
      write(" Способ нахождения записи: "), nl,
      nl, write("  1 :-  по номеру артикула"),
      nl, write("  2 :-  по названию"),
      nl, write("  3 :-  Меню"), nl,
      nl, write("      ------| |------"),
      cursor(6,13), readchar(X), correct(X),
      removewindow, go, !.

    do('5') :-
      makewindow(4,18,1," Удаление записи по признаку ",5,25,10,30),
      framewindow(19),
          write("     Введите признак:"), nl,
      nl, write("  1 :-  По артикулу"),
      nl, write("  2 :-  По названию"),
      nl, write("  3 :-  Удалить всю базу"),
      nl, write("  4 :-  Меню"), nl,
      nl, write("      ------| |------"),
      cursor(7,13), readchar(X), del(X),
      removewindow, go, !.

    do('6') :-
      makewindow(4,18,1," Создать базу по признаку ",5,25,9,30),
      framewindow(19),
          write("    Какую базу создать ?"), nl,
      nl, write("         1 :-  B1"),
      nl, write("         2 :-  B2"),
      nl, write("         3 :-  Меню"), nl,
      nl, write("      ------| |------"),
      cursor(6,13), readchar(X), indication(X),
      removewindow, go, !.

    do('7') :-
      makewindow(4,18,1," Добавить запись к главной базе ",7,10,13,60),
      framewindow(19), adding,
      removewindow, go, !.

    do('8') :-
      makewindow(4,95,1,"Запрос",10,29,5,22), nl,
      framewindow(94),
      write("  Выйти ? (Yes/No)"), readchar(X),
      X='y', exit;
      removewindow, go, !.

    do(_) :-
      makewindow(4,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Выберите из меню"), readchar(_),
      removewindow, go.

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%

    open('1') :-
      makewindow(5,95,1,"Загрузка bd",7,20,10,40),
      framewindow(94), nl,
      write(" Имя файла : "), readln(FN),
      exists(FN), consult(FN, bd),
      nl, write(" Загружено"), readchar(_), removewindow, !.

    open('2') :-
      makewindow(5,95,1,"Загрузка b1",7,20,10,40),
      framewindow(94), nl,
      write(" Имя файла : "), readln(FN),
      exists(FN), consult(FN, b1),
      nl, write(" Загружено"), readchar(_), removewindow, !.

    open('3') :-
      makewindow(5,95,1,"Загрузка b2",7,20,10,40),
      framewindow(94), nl,
      write(" Имя файла : "), readln(FN),
      exists(FN), consult(FN, b2),
      nl, write(" Загружено"), readchar(_), removewindow, !.

    open('4') :-
      !.

    open(_) :-
      makewindow(5,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Выберите из меню"), readchar(_),
      removewindow, removewindow, do('1').

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%

    store('1') :-
      makewindow(5,95,1,"Сохранение bd",7,20,10,40),
      framewindow(94), nl,
      write(" Имя файла : "), readln(FN), save(FN, bd),
      nl, write(" Сохранено"), readchar(_), removewindow, !.

    store('2') :-
      makewindow(5,95,1,"Сохранение b1",7,20,10,40),
      framewindow(94), nl,
      write(" Имя файла : "),
      readln(FN), save(FN, b1),
      nl, write(" Сохранено"), readchar(_), removewindow, !.

    store('3') :-
      makewindow(5,95,1,"Сохранение b2",7,20,10,40),
      framewindow(94), nl,
      write(" Имя файла : "),
      readln(FN), save(FN, b2),
      nl, write(" Сохранено"), readchar(_), removewindow, !.

    store('4') :-
      !.

    store(_) :-
      makewindow(5,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Выберите из меню"), readchar(_),
      removewindow, removewindow, do('2').

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%

    see('1') :-
      makewindow(5,95,1," Просмотр bd ",7,10,9,60),
      framewindow(94), nl,

characteristick(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),
      show(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),
      nl,nl,write("Нажмите ENTER для продолжения..."),
      readchar(_), nl, fail.

    see('1') :-
      removewindow, removewindow, do('3'), !.

    see('2') :-
      makewindow(5,95,1," Просмотр b1 ",7,10,9,60),
      framewindow(94), nl,
      table1(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),
      show(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),
      nl,nl,write("Нажмите ENTER для продолжения..."),
      readchar(_), nl, fail.

    see('2') :-
      removewindow, removewindow, do('3'), !.

    see('3') :-
      makewindow(5,95,1," Просмотр b2 ",7,10,9,60),
      framewindow(94), nl,
      table2(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),
      show(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),
      nl,nl,write("Нажмите ENTER для продолжения..."),
      readchar(_), nl, fail.

    see('3') :-
      removewindow, removewindow, do('3'), !.

    see('4') :-
      !.

    see(_) :-
      makewindow(5,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Выберите из меню"), readchar(_),
      removewindow, removewindow, do('3').

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%

    correct('1') :-
      makewindow(5,95,1," Корректировка записи, найденной по артикулу
",7,10,13,60),
      framewindow(94),
      write("Номер артикула: "), readint(X),

characteristick(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),
      nl, write("Старая запись:"), nl, nl,
      show(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)), nl, nl,
      write("Введите новый вариант:"), nl, nl,

get(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD,MonD,DayD)), nl,
      clearwindow,

retract(characteristick(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day
))),

assert(characteristick(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD
,MonD,DayD))),
      removewindow, removewindow, do('4'), !.

    correct('1') :-
      removewindow, removewindow, do('4'), !.

    correct('2') :-
      makewindow(5,95,1," Корректировка записи, найденной по названию
",7,10,13,60),
      framewindow(94),
      write("Название: "), readln(X),

characteristick(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)),
      nl, write("Старая запись:"), nl, nl,
      show(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)), nl, nl,
      write("Введите новый вариант:"), nl, nl,

get(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD,MonD,DayD)), nl,
      clearwindow,

retract(characteristick(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)
)),

assert(characteristick(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD
,MonD,DayD))),
      removewindow, removewindow, do('4'), !.

    correct('2') :-
      removewindow, removewindow, do('4'), !.

    correct('3') :-
      !.

    correct(_) :-
      makewindow(5,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Выберите из меню"), readchar(_),
      removewindow, removewindow, do('4').

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%

    del('1') :-
      makewindow(5,95,1," Удаление по артикулу ",7,20,10,40),
      framewindow(94),
      write(" Номер артикула: "), readint(X),

retract(characteristick(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day
))), nl,
      write(" Готово."), readchar(_),
      removewindow,removewindow, do('5'), !.

    del('1') :-
      makewindow(6,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Запись не найдена."), readchar(_),
      removewindow, removewindow, removewindow, do('5').

    del('2') :-
      makewindow(5,95,1," Удаление по названию ",7,20,10,40),
      framewindow(94),
      write(" Название: "), readln(X),

retract(characteristick(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)
)), nl,
      write(" Готово."), readchar(_),
      removewindow,removewindow, do('5'), !.

    del('2') :-
      makewindow(6,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Запись не найдена."), readchar(_),
      removewindow, removewindow, removewindow, do('5').

    del('3') :-
      makewindow(5,95,1," Удаление всей базы ",7,20,10,40),
      framewindow(94),
      retract(characteristick(_,place(_,_),_,price(_,_),date(_,_,_))),
      fail.

    del('3') :-
      write(" База удалена."), readchar(_),
      removewindow,removewindow, do('5'), !.

    del('4') :-
      !.

    del('_') :-
      makewindow(5,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Выберите из меню"), readchar(_),
      removewindow, removewindow, do('5').

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%

    indication('1') :-
      makewindow(5,18,1," Создать базу B1 по признаку ",8,25,10,30),
      framewindow(19),
          write("      Введите признак:"), nl,
      nl, write("  1 :-  По месту хранения"),
      nl, write("  2 :-  По цене"),
      nl, write("  3 :-  По дате поступления"),
      nl, write("  4 :-  Меню"), nl,
      nl, write("      ------| |------"),
      cursor(7,13), readchar(X), indicationB1(X),
      removewindow, removewindow, do('6'), !.

    indication('2') :-
      makewindow(5,18,1," Создать базу B2 по признаку ",8,25,10,30),
      framewindow(19),
          write("      Введите признак:"), nl,
      nl, write("  1 :-  По месту хранения"),
      nl, write("  2 :-  По цене"),
      nl, write("  3 :-  По дате поступления"),
      nl, write("  4 :-  Меню"), nl,
      nl, write("      ------| |------"),
      cursor(7,13), readchar(X), indicationB2(X),
      removewindow, removewindow, do('6'), !.

    indication('3') :-
      !.

    indication(_) :-
      makewindow(5,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Выберите из меню"), readchar(_),
      removewindow, removewindow, do('6').



    indicationB1('1') :-
      makewindow(6,95,1," Создание базы B1 по месту хранения ",7,20,10,40),
      framewindow(94), nl,
      write(" Номер цеха: "), readint(X),
      write(" Номер склада: "), readint(Y),

characteristick(Art,place(X,Y),Name,price(Rub,Kop),date(Year,Mon,Day)),

assert(table1(Art,place(X,Y),Name,price(Rub,Kop),date(Year,Mon,Day))),
      fail.

    indicationB1('1') :-
      removewindow, removewindow, indication('1').

    indicationB1('2') :-
      makewindow(6,95,1," Создание базы B1 по цене ",7,20,10,40),
      framewindow(94), nl,
      write(" Рублей: "), readint(X),
      write(" Копеек: "), readint(Y),
      characteristick(Art,place(NC,NS),Name,price(X,Y),date(Year,Mon,Day)),
      assert(table1(Art,place(NC,NS),Name,price(X,Y),date(Year,Mon,Day))),
      fail.

    indicationB1('2') :-
      removewindow, removewindow, indication('1').

    indicationB1('3') :-
      makewindow(6,95,1," Создание базы B1 по дате поступления
",7,20,10,40),
      framewindow(94), nl,
      write(" Год: "), readint(X),
      write(" Месяц: "), readint(Y),
      write(" День: "), readint(Z),
      characteristick(Art,place(NC,NS),Name,price(Rub,Kop),date(X,Y,Z)),
      assert(table1(Art,place(NC,NS),Name,price(Rub,Kop),date(X,Y,Z))),
      fail.

    indicationB1('3') :-
      removewindow, removewindow, indication('1').

    indicationB1('4') :-
      !.

    indicationB1(_) :-
      makewindow(6,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Выберите из меню"), readchar(_),
      removewindow, removewindow, indication('1').

    indicationB2('1') :-
      makewindow(6,95,1," Создание базы B2 по месту хранения ",7,20,10,40),
      framewindow(94), nl,
      write(" Номер цеха: "), readint(X),
      write(" Номер склада: "), readint(Y),

characteristick(Art,place(X,Y),Name,price(Rub,Kop),date(Year,Mon,Day)),

assert(table2(Art,place(X,Y),Name,price(Rub,Kop),date(Year,Mon,Day))),
      fail.

    indicationB2('1') :-
      removewindow, removewindow, indication('2').

    indicationB2('2') :-
      makewindow(6,95,1," Создание базы B2 по цене ",7,20,10,40),
      framewindow(94), nl,
      write(" Рублей: "), readint(X),
      write(" Копеек: "), readint(Y),
      characteristick(Art,place(NC,NS),Name,price(X,Y),date(Year,Mon,Day)),
      assert(table2(Art,place(NC,NS),Name,price(X,Y),date(Year,Mon,Day))),
      fail.

    indicationB2('2') :-
      removewindow, removewindow, indication('2').

    indicationB2('3') :-
      makewindow(6,95,1," Создание базы B2 по дате поступления
",7,20,10,40),
      framewindow(94), nl,
      write(" Год: "), readint(X),
      write(" Месяц: "), readint(Y),
      write(" День: "), readint(Z),
      characteristick(Art,place(NC,NS),Name,price(Rub,Kop),date(X,Y,Z)),
      assert(table2(Art,place(NC,NS),Name,price(Rub,Kop),date(X,Y,Z))),
      fail.

    indicationB2('3') :-
      removewindow, removewindow, indication('2').

    indicationB2('4') :-
      !.

    indicationB2(_) :-
      makewindow(6,76,1,"Ошибка",8,29,5,22),
      framewindow(75), nl,
      write(" Выберите из меню"), readchar(_),
      removewindow, removewindow, indication('2').

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%

    adding :-
      get(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),
      nl, write(" Вы ввели :"),
      nl, show(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),
nl,
      nl, write(" Добавить ? (Yes/No)"), readchar(A),
      A='y',

assert(characteristick(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Da
y)));
      !.

  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%

    exists(FN) :-
      existfile(FN);
      makewindow(6,76,1,"Ошибка",10,25,5,30), nl,
      framewindow(75),
      write(" Файл ",FN," не найден!"),
      readchar(_), removewindow,
      removewindow, removewindow, do('1').

    show(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)) :-
          write(" Артикул                           : ",Art),
      nl, write(" Местоположение (Цех, Склад)       : ",NC,", ",NS),
      nl, write(" Наименование товара               : ",Name),
      nl, write(" Стоимость (Рублей:Копеек)         : ",Rub,":",Kop),
      nl, write(" Дата поступления (Год-Месяц-День) : ",Year,"-",Mon,"-
",Day).

    get(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)) :-
      write(" Артикул                           : "), readint(Art),
      write(" Местоположение                    : "), nl,
      write("        Цех                        : "), readint(NC),
      write("        Склад                      : "), readint(NS),
      write(" Наименование товара               : "), readln(Name),
      write(" Стоимость                         : "), nl,
      write("        Рублей                     : "), readint(Rub),
      write("        Копеек                     : "), readint(Kop),
      write(" Дата поступления                  : "), nl,
      write("        Год                        : "), readint(Year),
      write("        Месяц                      : "), readint(Mon),
      write("        День                       : "), readint(Day).


7. Отладка программы.

  Открытие БД.

  +-------------- Системное меню --------------+
¦  Выберите вариант работы с базами данных:  ¦
¦   1 :-+--------- Загрузить --------+       ¦
¦   2 :-¦      Куда загрузить ?      ¦       ¦
¦  +--------------Загрузка bd-------------+  ¦
¦  ¦                                      ¦  ¦
¦  ¦ Имя файла : data                     ¦  ¦
¦  ¦                                      ¦  ¦
¦  ¦ Загружено                            ¦  ¦
+--¦                                      ¦--+
   +--------------------------------------+

  Сохранение БД.

  +-------------- Системное меню --------------+
¦  Выберите вариант работы с базами данных:  ¦
¦                                            ¦
¦   1 :-+--------- Сохранить --------+       ¦
¦   2 :-¦      Что сохранить ?       ¦       ¦
¦  +-------------Сохранение b2------------+  ¦
¦  ¦                                      ¦  ¦
¦  ¦ Имя файла : data2                    ¦  ¦
¦  ¦                                      ¦  ¦
¦  ¦ Сохранено                            ¦  ¦
+--¦                                      ¦--+
   +--------------------------------------+

  Просмотр.

      +-------------- Системное меню --------------+
       ¦  Выберите вариант работы с базами данных:  ¦
       ¦                                            ¦
       ¦   1 :-+-------- Просмотреть -------+       ¦
       ¦   2 :-¦      Что просмотреть ?     ¦       ¦
+----------------------- Просмотр bd ----------------------+
¦ Артикул                           : 2                    ¦
¦ Местоположение (Цех, Склад)       : 6, 7                 ¦
¦ Наименование товара               : Vint                 ¦
¦ Стоимость (Рублей:Копеек)         : 0:65                 ¦
¦ Дата поступления (Год-Месяц-День) : 1996-2-45            ¦
¦                                                          ¦
¦Нажмите ENTER для продолжения...                          ¦
+----------------------------------------------------------+

  Корректировка.

      +-------------- Системное меню --------------+
       ¦  Выберите вариант работы с базами данных:  ¦
       ¦                                            ¦
       ¦   1 :-+------- Корректировка ------+       ¦
       ¦   2 :-¦ Способ нахождения записи:  ¦       ¦
+------- Корректировка записи, найденной по названию ------+
¦Старая запись:                                            ¦
¦                                                          ¦
¦ Артикул                           : 1                    ¦
¦ Местоположение (Цех, Склад)       : 5, 6                 ¦
¦ Наименование товара               : Gayka                ¦
¦ Стоимость (Рублей:Копеек)         : 0:45                 ¦
¦ Дата поступления (Год-Месяц-День) : 1996-1-4             ¦
¦                                                          ¦
¦Введите новый вариант:                                    ¦
¦                                                          ¦
¦ Артикул                           :                      ¦
+----------------------------------------------------------+

  Удаление.

  +-------------- Системное меню --------------+
¦  Выберите вариант работы с базами данных:  ¦
¦                                            ¦
¦   1 :-+ Удаление записи по признаку+       ¦
¦   2 :-¦     Введите признак:       ¦       ¦
¦  +-------- Удаление по артикулу --------+  ¦
¦  ¦ Номер артикула: 1                    ¦  ¦
¦  ¦                                      ¦  ¦
¦  ¦ Готово.                              ¦  ¦
+--¦                                      ¦--+
   +--------------------------------------+

  Создание по признакам.

  +-------------- Системное меню --------------+
¦  Выберите вариант работы с базами данных:  ¦
¦                                            ¦
¦   1 :-+- Создать базу по признаку -+       ¦
¦   2 :-¦    Какую базу создать ?    ¦       ¦
¦  +------ Создание базы B1 по цене ------+  ¦
¦  ¦                                      ¦  ¦
¦  ¦ Рублей: 0                            ¦  ¦
¦  ¦ Копеек: 45                           ¦  ¦
+--¦                                      ¦--+
   +--------------------------------------+
        +----------------------------+

  Добавление.

      +-------------- Системное меню --------------+
       ¦  Выберите вариант работы с базами данных:  ¦
       ¦                                            ¦
       ¦   1 :-  Загрузить                          ¦
       ¦   2 :-  Сохранить                          ¦
+------------- Добавить запись к главной базе -------------+
¦ Местоположение                    :                      ¦
¦        Цех                        : 5                    ¦
¦        Склад                      : 6                    ¦
¦ Наименование товара               : Shayba               ¦
¦ Стоимость                         :                      ¦
¦        Рублей                     : 1                    ¦
¦        Копеек                     : 2                    ¦
¦ Дата поступления                  :                      ¦
¦        Год                        : 1996                 ¦
¦        Месяц                      : 23                   ¦
¦        День                       : 3                    ¦
+----------------------------------------------------------+
8. Инструкция пользователя и решение контрольных примеров.

  Решение контрольных примеров основывается на том, что было сделано в
  отладке программы и может быть изучено по вышестоящей части (7.).

  Для работы с программой необходимо выбирать из предлагаемых меню пункты
  путем нажатия на соответствующие цифры. При появлении подменю повторить
  операцию, при запросе на имя файла - ввести строку, определяющую имя
  файла, при запросе на символ, нажать соответствующую клавишу на
  клавиатуре (не забывайте, пожалуйста об языковой раскладке клавиатуры и
  состоянии клавиши CAPSLOCK). Также в нескольких процедурах производится
  подтверждение (Yes/No - Да/Нет) - необходимо переключиться на английскую
  раскладку и нажать соответствующую клавишу в нижнем регистре.
9. Заключение.

  Язык программирования Пролог безусловно может быть использован для
  написания подобных информационно-справочных систем, так как он позволяет
  легко и быстро создавать логические запросы к базам данных, что
  безусловно выделяет его среди остальных языков программирования.
10. Список литературы.

  1. К. Кларк. “Введение в логическое программирование на Micro Prologe”.

  2. К. Хоггер. “Введение в логическое программирование”.