ID: 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.