Файл: Особенности естественно-языковых интеллектуальных информационных систем.pdf

concat(Fam,X,Fampol),%фамилия+ пробел +пол

concat(Fampol,» «,Fampol2),

str_int(Ychar,Y),concat(Ychar,»----------»,Y1),

str_int(Zchar,Z),concat(Zchar,» «,Z1),

concat(Fampol2,Y1,Z111),%фамилия+ пробел +пол+

concat(Z111,Z1,Z1111),%фамилия+ пробел +пол

lbox_Add(LBOXWIN ,-1,Z1111),!,

!.

%END Main, idc_поиск_по_имени _CtlInfo

Функция, осуществляющая поиск по году начала правления

%BEGIN Main, idc_поиск_по_началу_правления _CtlInfo

win_main_eh(_Win,e_Control(idc_поиск_по_началу_правления,_CtrlType,_CtrlWin,_CtlInfo),0):-!,

E_WINDOW = win_GetCtlHandle(_Win,idc_edit),

EDIT_STRING= win_GetText(E_WINDOW),

str_int(EDIT_STRING,EDIT_STRING2),

LBOXWIN = win_GetCtlHandle(_Win,idc_list_box),

lbox_Clear(LBOXWIN),

person (X, Y, EDIT_STRING2, Z),

concat(X,» «,Fam),%фамилия + пробел

concat(Fam,Y,Fampol),%фамилия+ пробел +пол

concat(Fampol,» «,Fampol2),

str_int(Ychar,EDIT_STRING2),concat(Ychar,»----------»,Y1),

str_int(Zchar,Z),concat(Zchar,» «,Z1),

concat(Fampol2,Y1,Z111),%фамилия+ пробел +пол+

concat(Z111,Z1,Z1111),%фамилия+ пробел +пол

lbox_Add(LBOXWIN ,-1,Z1111),

!.

%END Main, idc_поиск_по_началу_правления _CtlInfo

Функция, осуществляющая поиск по имени

%BEGIN Main, idc_поиск_по_имени _CtlInfo Поиск с возвратом!

win_main_eh(_Win,e_Control(idc_поиск_по_имени,_CtrlType,_CtrlWin,_CtlInfo),0):-!,

E_WINDOW = win_GetCtlHandle(_Win,idc_edit),

EDIT_STRING= win_GetText(E_WINDOW),

LBOXWIN = win_GetCtlHandle(_Win,idc_list_box),

lbox_Clear(LBOXWIN),

person (EDIT_STRING, X, Y, Z),

concat(EDIT_STRING,» «,Fam),%фамилия + пробел

concat(Fam,X,Fampol),%фамилия+ пробел +пол

concat(Fampol,» «,Fampol2),

str_int(Ychar,Y),concat(Ychar,»----------»,Y1),

str_int(Zchar,Z),concat(Zchar,» «,Z1),

concat(Fampol2,Y1,Z111),%фамилия+ пробел +пол+

concat(Z111,Z1,Z1111),%фамилия+ пробел +пол

lbox_Add(LBOXWIN ,-1,Z1111),fail,!.

%END Main, idc_поиск_по_фамилии _CtlInfo

%BEGIN Main, e_Size

win_main_eh(_Win,e_Size(_Width,_Height),0):-!,

ifdef use_tbar

toolbar_Resize(_Win),

enddef !.

%END Main, e_Size

%BEGIN Main, e_Menu, Parent window

win_main_eh(Win,e_Menu(ID,CAS),0):-!,

PARENT = win_GetParent(Win),

win_SendEvent(PARENT,e_Menu(ID,CAS)),!.

%END Main, e_Menu, Parent window

%END_WIN Main

/***************************************************************************

Main Goal

***************************************************************************/

goal

ifdef use_mdi

vpi_SetAttrVal(attr_win_mdi,b_true),

enddef

ifdef ws_win

ifdef use_3dctrl

vpi_SetAttrVal(attr_win_3dcontrols,b_true),

enddef

enddef

vpi_Init(task_win_Flags,task_win_eh,task_win_Menu,»wiz»,task_win_Title).

%BEGIN_TLB Project toolbar, 10:10:09-10.11.2010, Code automatically updated!

/************************************************************* *************

Creation of toolbar: Project toolbar

*********************************************************

ГЛАВА 3. ТЕСТИРОВАНИЕ И ОТЛАДКА ПРИЛОЖЕНИЯ

Основными задачами тестирования являются:

- нахождение ошибок при работе программы;

- проверка правильности полученных результатов работы;

- проверка на стабильную работу приложения и др.

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

Для запуска приложения необходимо запустить на выполнение файл Wiz.exe. После запуска на экране появилось главное окно приложения (рисунок 2).

Рисунок 2. – Главное окно приложения.

Для начала поиска необходимо ввести имя императора или год начала правления в период с 1613 по 1915 год.

Рисунок 3. – Главное окно программы с введенным года правления императора.

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

Рисунок 5. – Главное окно приложения с результатами поиска

по имени.

Рисунок 6. – Главное окно приложения с результатами поиска по году начала правления.

ЗАКЛЮЧЕНИЕ

Логическое программирование основывается на выводе информации, являющейся результатом изучения фактов. Образно говоря, это чем-то похоже на процесс обучения ребенка, когда вам чётко надо задать окружающие объекты, которые трогать «нельзя», остальные же изначально помечаются, как «доступные». Получив ваши наставления ребёнок начинает изучать мир и, сопоставляя данные, принимает решения. В логическом программировании этот принцип повторяется практически в точности, но разумеется в чуть более сложной форме.

Самым известным представителем и пожалуй самым популярным из используемых, является язык Prolog.

В результате проделанной работы были получены теоретические знания, практические навыки программирования на языке Prolog и разработано работоспособное приложение. Программа работает с различными типами данных и видами поиска, а разработанный интерфейс позволит пользователю легко освоиться с работой в приложении. Данная работа наглядно демонстрирует эффективность решения поставленных задач при работе с внутренней базой данных.

СПИСОК ЛИТЕРАТУРЫ

1. Алгоритмизация и программирование: Учебное пособие / С.А. Канцедал. - М.: ИД ФОРУМ: НИЦ ИНФРА-М, 2014. - 352 с.
2. Бабушкина, И. А. Практикум по объектно-ориентированному программированию / И. А. Бабушкина, С. М. Окулов. - 3-е изд. (эл.). - М. : БИНОМ. Лаборатория знаний, 2012. - 366 с.
3. Базовые средства программирования/ В.Н. Шакин. - М.: Форум: НИЦ ИНФРА-М, 2015. - 304 с.
4. Введение в специальность программиста: Учебник / В.А. Гвоздева. - 2-e изд., испр. и доп. - М.: ИД ФОРУМ: НИЦ Инфра-М, 2013. - 208 с.
5. Голицына О.Л. Языки программирования: Учебное пособие / О.Л. Голицына, Т.Л. Партыка, И.И. Попов. - 3-e изд., перераб. и доп. - М.: Форум: ИНФРА-М, 2015. - 400 с
6. Ездаков, А. Л. Функциональное и логическое программирование: учебное пособие / А.Л.Ездаков. - 2-е изд. - М. : БИНОМ. Лаборатория знаний, 2011. - 119 с.
7. Информатика, автоматизированные информационные технологии и системы: Учебник / В.А. Гвоздева. - М.: ИД ФОРУМ: НИЦ ИНФРА-М, 2015. - 544 с.
8. Каймин В.А.Информатика: Учебник/ Каймин В. А., 6-е изд. - М.: НИЦ ИНФРА-М, 2015. - 285 с
9. Культин Н. Б. Основы программирования в Delphi XE. — СПб.: БХВ-Петербург, 2011. — 405 с.
10. Культин, Н. Б. Основы программирования в Delphi 7 / Н.Б. Культин. — 2-е изд., перераб. и доп. — СПб.: БХВ-Петербург, 2011. — 640 с.
11. Масленникова, О. Е. Основы искусственного интеллекта: учеб. пособие / О. Е. Масленникова, И. В. Гаврилова. - 2-е изд., стер. - М.: ФЛИНТА, 2013. - 282 c.
12. Машнин Т. С. Современные Java-технологии на практике. — СПб.: БХВ-Петербург, 2010. — 560 с.
13. Монахов В. В. Язык программирования Java и среда NetBeans. — 3-е изд., перераб. и доп. — СПб.: БХВ-Петербург, 2011. — 703 с.
14. Окулов, С. М. Основы программирования / С. М. Окулов. - 5-е изд., испр. - М.: БИНОМ. Лаборатория знаний, 2011. - 440 с.
15. Осипов Д. Л. Базы данных и Delphi. Теория и практика. — СПб.: БХВ-Петербург, 2011. — 746 с.
16. Основы алгоритмизации и программирования: Учебное пособие / В.Д. Колдаев; Под ред. Л.Г. Гагариной. - М.: ИД ФОРУМ: ИНФРА-М, 2015. - 416 с.
17. Программирование на языке Object Pascal: Учеб. пос. / Т.И.Немцова и др; Под ред. Л.Г.Гагариной. - М.: ИД ФОРУМ: НИЦ ИНФРА-М, 2013. - 496 с.
18. Программирование на языке высокого уровня. Учебное пособие / Т.И. Немцова; Под ред. Л.Г. Гагариной. - М.: ФОРУМ: ИНФРА-М, 2015. - 496 с.
19. Программирование на языке Си/А.В.Кузин, Е.В.Чумакова - М.: Форум, НИЦ ИНФРА-М, 2015. - 144 с.
20. Технология разработки программного обеспечения: Учеб. пос. / Л.Г.Гагарина, Е.В.Кокорева, Б.Д.Виснадул; Под ред. проф. Л.Г.Гагариной - М.: ИД ФОРУМ: НИЦ Инфра-М, 2013. - 400 с.
21. Языки программирования: Учебное пособие / О.Л. Голицына, Т.Л. Партыка, И.И. Попов. - 3-e изд., перераб. и доп. - М.: Форум: ИНФРА-М, 2015. - 400 с.