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.


 

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

30276. Основные методы (школы) литературоведения. Филологический метод 31 KB
  Анализы памятников слова практиковались уже в глубокой древности; таковы в Греции первые изучения Гомера в Египте деятельность таких александрийских филологов как Аристарх и Ликофрон в Риме критическая обработка текстов Вергилия Валерием Проббом и т. В огромном большинстве случаев филологизм древности вызван был к жизни научновспомогательными соображениями заботой о проведении в наличность древнейших и популярнейших произведений поэтического творчества и о сохранении их от гибели порчи и всяких искажений столь возможных в те...
30277. Основные методы (школы) литературоведения. Биографический метод (Ш.-О.Сент-Бёв) 36.5 KB
  На примере виднейшего критика французского романтизма СентБёва особенно отчетливо вырисовываются эти черты нового литературоведческого метода. В противоположность Буало и его последователям подчинявшим индивидуальное развитие художника множеству регламентирующих указаний СентБёв эмансипирует личность. Мелкобуржуазного романтика СентБёва интересует прежде всего творческая индивидуальность писателя. Биографический охват творящей личности сыграл в глазах СентБёва доминирующую роль в литой науке.