50857

Система COMP-P(Expert COMPonent for the Pascal-oriented tool) и построение исполняемого модуля в Borland Delphi

Лабораторная работа

Информатика, кибернетика и программирование

Ознакомьтесь с примером из папки Exmples Steklo. Запустите программу COMPP версия 3 smll и откройте пример steklo. Рассмотрим проект ksteklo. Проект содержит модули формы steklo1.

Русский

2014-01-31

149 KB

6 чел.

Лабораторная работа №1

Целью данной лабораторной работы является знакомство с системой COMP-P(Expert COMPonent for the Pascal-oriented tool) и построение исполняемого модуля в Borland Delphi.

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

Порядок выполнения работы

1. Ознакомьтесь с примером из папки Examples\Steklo.

Ответив только на три вопроса и запустив процедуру логического вывода,

Вы получите значения вспомогательных и целевой переменных.

Трассировка позволяет проследить логический вывод.

2. Запустите программу «COMP-P версия 3 small» и откройте пример «steklo.set».

Закладка «текст набора правил» содержит описание базы знаний.

Выполните команду «Компиляция/Выполнить компиляцию». В закладке «Pascal модуль» сгенерируется код для модуля проекта Delphi.

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

3. Рассмотрим проект ksteklo.dpr.

Проект содержит модули формы steklo1.pas, steklo1.dfm и модуль логического вывода steklo.pas.

  •  Модуль формы «steklo1» предназначен для диалога с пользователем и создается разработчиком приложения.
  •  Модуль «steklo» содержит базу знаний и создается автоматически программой COMP-P.

К модулю формы подключена библиотека «cp3_iesm» и файл проекта «steklo».

В процедуре Button1Click задаются начальные значения переменных логического вывода из модуля «steklo».

   kach:=0;

   odnor:=0;

   polos:=0;

   vspen:=0;

   nalser:=0;

   osv:=0;

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

   zerns:=RG1.ItemIndex+1;

   vlagn:=RG2.ItemIndex+1;

   sodg:=RG3.ItemIndex+1;

Параметры esSetReasonMode  и esSetReasonMode из библиотеки «cp3_iesm»   задают режим логического вывода.

   if CBox1.Checked then esSetReasonMode:=1

   else esSetReasonMode:=0;

   if CBox2.Checked then esSetTrassMode:=1

   else esSetTrassMode:=0;

   if CBox3.Checked then

       esSetTrassMode:=esSetTrassMode+2;

Вызывается функция  логического вывода из модуля «steklo».

_steklo;

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

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

   Label1.Caption:=t_nalser[nalser];

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

   Label2.Caption:=t_polos[polos];

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

   Label3.Caption:=t_osv[osv];

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

   Label4.Caption:=t_vspen[vspen];

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

   Label5.Caption:=t_odnor[odnor];

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

   ST6.Caption:=t_kach[kach];


 

А также другие работы, которые могут Вас заинтересовать

13612. Политическая партия – это союз людей, которые соединились для того, чтобы добиться нужных им всем законов 28.5 KB
  Политическая партия это союз людей которые соединились для того чтобы добиться нужных им всем законов. И. Ильин Выбранное мною высказывание касается проблемы сущности значения политических партий и их роли в обществе. История партий в РФ насчитывает всего неск
13613. Государство существует не для того, чтобы превращать земную жизнь в рай, а для того, чтобы помешать ей окончательно превратиться в ад 16.26 KB
  Государство существует не для того чтобы превращать земную жизнь в рай а для того чтобы помешать ей окончательно превратиться в ад. Н. Бердяев Выбранное мною высказывание посвящено проблеме роли значения и функций государства как социального института. Эта пробл...
13614. Эссе по курсу обществознания, Государство растит людей: прекрасное – хороших, противоположное – дурных 33 KB
  Государство растит людей: прекрасное хороших противоположное дурных. Сократ. Выбранное мною высказывание затрагивает вопрос о воздействии государственных порядков на формирование личностных качеств людей. В современном мире данный вопрос является крайне акту
13615. Хорошая политика не отличается от здоровой нравственности 17.51 KB
  Хорошая политика не отличается от здоровой нравственности. Г.Б. де Мабли Выбранное мною высказывание связано с проблемой соотношения политики и морали. Проблема не нова. Сочетается ли политика и мораль пытались решить многие мыслители. Особенно важен этот вопрос в ...
13616. Человек, властвуя над другими, утрачивает собственную свободу 17.91 KB
  Человек властвуя над другими утрачивает собственную свободу. Ф. Бэкон В выбранном мною высказывании речь идет о проблеме роли влияния власти на человека который ею обладает. Влияние власти на ее носителя всегда было интересно мыслителям. Особенно их интересовало ...
13617. Закон должен быть строг, а люди снисходительны 16.24 KB
  Закон должен быть строг а люди снисходительны. М. Вовенарг В выбранном мною высказывании автор обращается к проблеме сопоставления норм права и норм морали. Эти социальные регуляторы во все времена имели наибольший вес в обществе именно поэтому многие ученые и ф...
13618. Истинное равенство граждан состоит в том, чтобы все они были одинаково подчинены закону 31.5 KB
  Истинное равенство граждан состоит в том чтобы все они были одинаково подчинены закону Ж. Даламбер Выбранное мною высказывание связано с сущностью равенства людей перед законом и судом. Без обеспечения равенства в этой сфере трудно говорить об обеспечении равенств
13619. Наказание не может быть вечным, но вина пребывает вовек 17.06 KB
  Наказание не может быть вечным но вина пребывает вовек. изречение из римского права Выбранное мною высказывание посвящено проблеме правового и морального наказания за правонарушение. С тех самых пор как только человек впервые преступил негласную норму морали бы
13620. Сократ. Я считаю обязательным для каждого беспрекословно и неуклонно повиноваться законам 15.85 KB
  Я считаю обязательным для каждого беспрекословно и неуклонно повиноваться законам. Сократ В выбранном мною высказывании автор затрагивает проблему сущности закона. Эта проблема актуальна во все времена так как закон регулирует общественную жизнь делая ее более