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];


 

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

52298. Із німецької літератури. Г. Белль. Творчість. Оглядово 71.5 KB
  Тема заняття: Із німецької літератури. Епіграф заняття: Важливо не те чи довго а чи правильно прожив. Мета заняття: дослідити життєвий і творчий шлях німецького письменника Г.
52299. Величини та їх значення 51.5 KB
  Актуалізація опорних знань Учитель. Учитель. Учитель. Розв€язування вправ Учитель.
52300. Сценарий конкурсно - развлекательной программы для учащихся 9-11классов «Посвящение в старшеклассники» или «Старшеклассники вместе с Бендеровичем» 58 KB
  Беспризорник Дядя дай 10 копеек Ну дядя ну дай 10 копеек Бендер Может быть тебе еще и ключ от квартиры где деньги лежат Голос Молодой человек солгал: У него на сегодня не было ни денег ни квартиры где они могли бы лежать ни ключа которым можно было эту квартиру открыть. Входит Киса в камуфляже с табличкою Охрана Бендер А что отец в вашем уездном городе достопримечательности есть Киса Кому и 9 класс достопримечательность Бендер Больше вопросов не имею Голос И тут же задал другой вопрос. Бендер А не порекомендуете...
52301. Свято 8 березня 33 KB
  Ми як справжні джентльмени Будем вас вітати 5й хлопчик: І своїх дівчаток славних Сьогодні привітаєм Тож ви їм поаплодуйте А ми їх зустрічаєм. Під музику заходять дівчата. Виконують пісню 1ша дівч.З днем 8го березня Із весняним святом З пролісками першими В цей чудовий час Мами наші рідні І бабусі милі Від усього серця Ми вітаєм вас 2га дівч.
52302. Berlin 69.5 KB
  Das Pergamonmuseum befindet sich auf der Museumsinsel. Viele Berliner und Gäste der Hauptstadt besuchen es. Im Pergamonmuseum könnt ihr die schönsten archäologischen Sammlungen der Welt sehen. Eine der bedeutenden Sehenswürdigkeiten des Museums ist das Pergamonaltar. Hier könnt ihr auch das Vorderasiatische Museum und das Museum für Islamische Kunst besichtigen. Die Besucher dieser Museen gehen durch 6000 Jahre Geschichte der alten Hochkulturen der Welt.
52303. Berühmte Menschen unseres Landes 58.5 KB
  Das war unter der Regierung des Fürsten Wolodymyr und seines Sohnes Jaroslaw. Wolodymyr der Große ging zum byzantinischer Christentum über. Von Kyiv aus breitete sich das Christentum in der ganzen Rus aus.
52304. Бешенство и его профилактика 139 KB
  Цель: познакомить учащихся с симптомами диагностикой бешенства научить оказывать неотложную помощь проинформировать о способах профилактики бешенства. Симптомы Инкубационный период бешенства длится обычно 13 месяца но может варьироваться от менее 1 недели до более одного года. Первоначальными симптомами бешенства являются высокая температура и во многих случаях боль или необычные необъяснимые ощущения покалывания пощипывания или жжения в месте раны. Эта форма бешенства протекает менее драматично и обычно дольше чем буйная форма.