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.


 

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

69918. Постиндустриальное общество, информационная революция, глобализация и международные отношения 43.56 KB
  В сфере производства формирование международных интегрированных производств на базе транснациональных корпораций. Основной характеристикой международных отношений с момента их исторического возникновения является постоянная трансформация.
69919. Предмет и задачи информатики 102 KB
  Наскальная живопись клинопись устная речь музыкальные звуки нотные знаки для их записи алфавит телеграф радио телефон телевидение компьютеры вот лишь некоторые звенья цепи попыток совершенствовать способы получения сохранения обработки и передачи информации.
69920. История как наука 63.5 KB
  Историческая наука: предмет особенности функции. Историческая наука: предмет особенности функции. Предмет исторической науки прошлое человеческого общества Особенности исторической науки: гуманитарная наука субъективность исторического знания тесная связь истории с политикой...
69921. Предмет и задачи истории как науки 83 KB
  Превращение истории из отрасли культуры в науку представляло собой довольно длительный процесс и завершилось на рубеже XIX-XX вв. Объект изучения для истории вся совокупность фактов характеризующих жизнь общества и в прошлом и в настоящем.
69922. История журналистского образования 120 KB
  Общая структура курса Основы журналистики История журналистского образования Первые журналистские школы стали появляться на рубеже XIXXX вв. Родоначальницей журналистского образования в Европе считается Высшая школа социальных наук в Париже со специальным факультетом журналистики.
69923. История развития техники 51 KB
  Индустрия туризма включает туроператорские и турагентские фирмы средства размещения предприятия питания транспортные средства спортивные и культурно-анимационные учреждения. Современный туризм немыслим без развитой инфраструктуры: средств связи транспортных систем энергетических систем...
69924. ПРЕДЫСТОРИЯ СЕСТРИНСКОГО ДЕЛА 165 KB
  Медицина существует столько же, сколько существует культура. Медицина является не только наукой, но и социальным институтом, т.е. исторически обусловленной системой социальных учреждений. О сестринском деле говорят, что это самая юная наука и самое древнее искусство.
69925. Господарське право в системі права України 111.5 KB
  Своєрідність господарських відносин, що становлять предмет правового регулювання, та методів їх регулювання створюють господарське право як самостійну та особливу галузь права. Господарське право як галузь права та законодавства виникла пізніше багатьох інших правових галузей...