66881

Продукційна модель представленнязнань

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

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

Вивчення представлення знань засобами С++ та ПАСКАЛЬ в рамках продукційної моделі. Папір - метод читання оптичний, обєм середній, перезапис неможливий. Перфокарта - метод читання оптичний, обєм малий, перезапис неможливий. ГМД - метод читання магнітний, обєм середній, перезапис можливий.

Украинкский

2014-11-30

39.3 KB

0 чел.

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

ТЕРНОПІЛЬСЬКИЙ НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ ІМЕНІ ІВАНА ПУЛЮЯ

Кафедра комп’ютерних наук

Лабораторна робота №2

Продукційна модель представленнязнань

Виконав:                                                                       студент групи СНc-33

Михалевич М.М.

Перевірив:

Фалендиш В.В.

Тернопіль 2011

Тема роботи:Продукційна модель представлення знань.

Мета роботи: Вивчення представлення знань засобами С++ та ПАСКАЛЬ в рамках продукційної моделі.

Завдання до лабораторноїроботи.

Варіант 6

Завдання: Розробити форму представлення знань для системи ідентифікації носіїв інформації.

Знання, представлені експертом: Папір - метод читання оптичний, обєм середній, перезапис неможливий. Перфокарта - метод читання оптичний, обєм малий, перезапис неможливий. ГМД - метод читання магнітний, обєм середній, перезапис можливий. ЖМД - метод читання магнітний, обєм великий, перезапис можливий. CD –метод читання оптичеий, обєм великий, перезапис неможливий.CDRW – метод читання оптичеий, обєм великий, перезапис можливий.DVD – метод читання оптичеий, обєм великий, перезапис можливий.DVRW – метод читання оптичеий, обєм великий, перезапис можливий. ПЗП – метод читання електронний, обєм великий, перезапис неможливий.

Вигляд форми програми

Текст програми:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

 TForm1 = class(TForm)

   Panel1: TPanel;

   Panel2: TPanel;

   Panel3: TPanel;

   Label1: TLabel;

   RadioButton1: TRadioButton;

   RadioButton2: TRadioButton;

   RadioButton3: TRadioButton;

   Label2: TLabel;

   RadioButton4: TRadioButton;

   RadioButton5: TRadioButton;

   RadioButton6: TRadioButton;

   Label3: TLabel;

   ComboBox1: TComboBox;

   Button1: TButton;

   GroupBox1: TGroupBox;

   Memo1: TMemo;

   ScrollBox1: TScrollBox;

procedure Button1Click(Sender:TObject);

private

   { Privatedeclarations }

public

   { Publicdeclarations }

end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender:TObject);

begin

if (RadioButton1.Checked=True)and(Radiobutton4.Checked=True)and

     (ComboBox1.ItemIndex=1) then

begin

     Memo1.Lines.Clear;

     Memo1.Lines.Add('Перфокарта');

end

elseif (RadioButton1.Checked=True)and(Radiobutton5.Checked=True)and

      (ComboBox1.ItemIndex=1) then

begin

     Memo1.Lines.Clear;

     Memo1.Lines.Add('Папір');

end

elseif (RadioButton1.Checked=True)and(Radiobutton6.Checked=True)and

      (ComboBox1.ItemIndex=0) then

begin

     Memo1.Lines.Clear;

     Memo1.Lines.Add('CDRW , DVDRW');

end

elseif (RadioButton1.Checked=True)and(Radiobutton6.Checked=True)and

      (ComboBox1.ItemIndex=1) then

begin

     Memo1.Lines.Clear;

     Memo1.Lines.Add('CD , DVD');

end

elseif (RadioButton2.Checked=True)and(Radiobutton5.Checked=True)and

      (ComboBox1.ItemIndex=0) then

begin

     Memo1.Lines.Clear;

     Memo1.Lines.Add('ГМД');

end

elseif (RadioButton2.Checked=True)and(Radiobutton6.Checked=True)and

      (ComboBox1.ItemIndex=0) then

begin

     Memo1.Lines.Clear;

     Memo1.Lines.Add('ЖМД');

end

elseif (RadioButton3.Checked=True)and(Radiobutton6.Checked=True)and

      (ComboBox1.ItemIndex=1) then

begin

     Memo1.Lines.Clear;

     Memo1.Lines.Add('ПЗП');

end

elsebegin

   Memo1.Lines.Clear;

   Memo1.Lines.Add('Тип обєктувизначити не можливо!');

   Memo1.Lines.Add('Перевіртеправильністтьвведенихданих і спробуйтеще раз!');

end;

end;

end.

Висновок: На цій лабораторній роботі я ознайомився з представленням знань засобами Delphi.


 

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

70445. Влияние внутрисемейных отношений на формирование личности младшего школьника 223 KB
  Так как семейные условия включая социальное положение род занятий материальное обеспечение и уровень образования родителей в большей мере предопределяют жизненный путь ребенка. Помимо сознательного полноценного и целенаправленного воспитания которое дают ему...
70448. Разработка двухуровневой распределенной АСУ ТП секции 100 установки 4.34 MB
  Установка гидрокрекинг предназначена для переработки вакуумного газойля в присутствии водорода на алюмоникельмолибденовом катализаторе с повторной переработкой рециркулята (остатка куба колонны фракционирования) для максимального производства дизельного или реактивного топлива.
70449. Анализ финансового положения ОАО «Амира» 763.5 KB
  В настоящее время коммерческим банкам требуется более глубокий подход в оценке кредитоспособности заемщика потому что кредитоспособность клиента способность заемщика полностью и в срок рассчитаться по своим долговым обязательствам а для банка кредитные операции...
70450. Разработка подсистемы автоматизации учебно-учетной деятельности в спортивной школе 1.4 MB
  Одним из важных шагов создания информационной подсистемы является разработка базы данных которая позволит организовать и упорядочить информацию а также обеспечит быстрый доступ к данным и выборку необходимой информации.
70451. Пути совершенствования управления кадрами на предприятии ЗАО «Балаковохлеб» 140.97 KB
  Цель данного исследования - на основе анализа эффективности организации кадрового менеджмента предприятия определить пути его совершенствования и дать экономическое обоснование внедрения мероприятий в кадровую практику.
70452. Развитие рынка страхования имущества в России 141.49 KB
  Страхование - необходимый элемент производственных отношений. Оно связано с возмещением материальных потерь в процессе общественного производства. Рисковый характер общественного производства, порождает отношения между людьми по предупреждению, преодолению...
70453. Организация управления промышленным предприятием на примере ОАО завод «Красное Сормово» 4.8 MB
  Цель проекта: Изучение процесса управления промышленным предприятием. Задачи проекта: раскрыть теоретические аспекты организации управления на промышленном предприятии; изучить деятельность предприятия, организационную структуру, внешнюю среду предприятия...