Листинг программы на Visual Prolog 5.1(vp):
DOMAINS
название=string
температура=real
боль_в_горле=symbol
давление=real
пульс=integer
PREDICATES
болезнь(название, температура, боль_в_горле, давление, пульс)
start
CLAUSES
болезнь("Здоров", 36.6, есть, 120, 70).
болезнь("Простуда",37,есть,120, 70).
болезнь("Грипп",39,есть, 120, 70).
болезнь("Отравление",39, нет, 150, 120).
болезнь("Солнечный удар",38,нет,150, 100).
start:-write(" Критерии для поиска"),nl,
write("Введите давление - "),readreal(Davl),
write("Введите температуру - "),readreal(Temper),
болезнь(Name,Temp,Bol_v_Gorle,Davleynie, Puls), Davleynie=Davl, Temp=Temper,
nl,write("Название: "), write(Name),nl, write("Температура: "),
write(Temp), nl,write("Боль в горле: "), write(Bol_v_Gorle), nl,write("Давление: "),
write(Davleynie),nl,write("Пульс: "), write(Puls), nl;
write("Такой болезни еще нет )"), nl.
GOAL
start.
Создание проекта на Visual Prolog 7.3(vp):
После запуска системы создаем консольный проект: открываем Project/Newи вProjectSettingустанавливаем имя проекта. Автоматически создается подкаталог с таким же именем как и название проекта. Выбираем консольное приложение (рис.5.1 и рис.5.2). Остальные опции можно не менять. Нажимаем ок.
Рис. 5.1
Рис. 5.2
Для начала работы, нам нужно выполнить компиляцию текущего проекта. Выберите из меню BuildпозициюBuild. Пустой проект, который ничего не делает, будет построен. (В этот момент времени никаких сообщений о ошибках в окнеMessagesбыть не должно).
Рис. 6
Теперь у нас появился файл main.pro(рис.7).
Рис. 7
Открываем его и здесь пишем свой код программы.
Структура программы
В отличие от VP5.1 структура программы состоит из 8-разделов: implement, open, constants, domains, class facts, class predicates, clauses и goal.
implement и end implement
Это ключевые слова, используемые парно. Visual Prolog рассматривает код, помещенный между этими ключевыми словами, как код, принадлежащий одному классу. За ключевым словом implement обязательно должно следовать имя класса.
open
Это ключевое слово используется для расширения области видимости класса. Оно должно быть помещено вначале кода класса, сразу после ключевого слова implement.
constants
Это ключевое слово исползуется для обозначения секции кода, котора определяет неоднократно используемые значения, применяемые в коде. Например, если строковый литерал "PDC Prolog" предполагается использовать в различных местах кода, тогда можно единожды определить мнемоническое (краткое, легко запоминаемое слово) для использовани в таких местах:
constants
pdc="PDC Prolog".
Заметьте, что определение константы завершается точкой (.). В отличие от переменных Пролога константы должны начинаться со строчной буквы (нижний регистр).
domains
Это ключевое слово используется для обозначения секции, объявляющей домены, которые будут использованы в коде. Синтаксис таких объявлений позволяет порождать множество вариантов объявлений доменов, используемых в тексте программы.
class facts
Это ключевое слово представляет секцию, в которой объявляются факты, которые будут в дальнейшем использоваться в тексте программы. Каждый факт объявляется как имя, используемое для обозначения факта, и набор аргументов, каждый из которых должен соответствовать либо стандартному (предопределенному), либо объявленному домену.
class predicates
Эта секция содержит объявления предикатов, которые определяются в тексте программы в разделе clauses. И опять, объявление предиката - это имя, которое присваивается предикату, и набор аргументов, каждый из которых должен соответствовать либо стандартному (предопределенному), либо объявленному домену.
clauses
Среди всех разделов, существующих в тексте программ на Visual Prolog, это единственный раздел, который близко совпадает с традиционными программами на Прологе. Он содержит конкретные определения объявленных в разделе class predicates предикатов, причем синтаксически им соответствующие.
goal
Этот раздел определяет главную точку входа в программу на языке системы Visual Prolog.
После написания кода программы, нам нужно снова выполнить компиляцию текущего проекта. Выберите из меню BuildпозициюBuild. Если ошибок не возникает, то можем запусить проект из меню Build / Run in Windows.
