Пример выполнения программы

Листинг программы

unit main;

interface

uses

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

Dialogs, ToolWin, ActnMan, ActnCtrls, XPStyleActnCtrls, ActnList,

StdCtrls, ExtCtrls, ImgList, XPMan, ComCtrls;

type

TForm1 = class(TForm)

ImageList1: TImageList;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

XPManifest1: TXPManifest;

GroupBox1: TGroupBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

CheckBox5: TCheckBox;

CheckBox6: TCheckBox;

CheckBox7: TCheckBox;

CheckBox8: TCheckBox;

CheckBox9: TCheckBox;

CheckBox10: TCheckBox;

CheckBox11: TCheckBox;

CheckBox12: TCheckBox;

Image1: TImage;

Panel1: TPanel;

GroupBox2: TGroupBox;

Memo2: TMemo;

Memo1: TMemo;

procedure QuitExecute(Sender: TObject);

procedure diagnosticaExecute(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure TreatmentExecute(Sender: TObject);

procedure aboutExecute(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses about;

{$R *.dfm}

var

shema: integer;

procedure TForm1.QuitExecute(Sender: TObject);

// выход из программы

begin

Close;

end;

procedure TForm1.diagnosticaExecute(Sender: TObject);

// диагностика

const

d: array [0..2] of string = (

'ТРЕБУЕТСЯ ДОПОЛНИТЕЛЬНАЯ ДИАГНОСТИКА',

'ВОСПАЛЕНИЕ СРЕДНЕГО УХА ОСТРОЕ',

'ВОСПАЛЕНИЕ СРЕДНЕГО УХА ХРОНИЧЕСКОЕ ГНОЙНОЕ');

et: array [1..2] of string = (

'111101101000',

'111111010111');

var

s: string;

begin

s:= IntToStr(Ord(CheckBox1.Checked));

s:= s + IntToStr(Ord(CheckBox2.Checked));

s:= s + IntToStr(Ord(CheckBox3.Checked));

s:= s + IntToStr(Ord(CheckBox4.Checked));

s:= s + IntToStr(Ord(CheckBox5.Checked));

s:= s + IntToStr(Ord(CheckBox6.Checked));

s:= s + IntToStr(Ord(CheckBox7.Checked));

s:= s + IntToStr(Ord(CheckBox8.Checked));

s:= s + IntToStr(Ord(CheckBox9.Checked));

s:= s + IntToStr(Ord(CheckBox10.Checked));

s:= s + IntToStr(Ord(CheckBox11.Checked));

s:= s + IntToStr(Ord(CheckBox12.Checked));

shema:= 0;

if s = et[1] then

shema:= 1;

if s = et[2] then

shema:= 2;

Panel1.Caption:= d[shema];

end;

procedure TForm1.FormCreate(Sender: TObject);

// инициализация формы

begin

shema:= 0;

end;

procedure TForm1.TreatmentExecute(Sender: TObject);

// вывод схемы лечения

begin

Memo1.Visible:= False;

Memo2.Visible:= False;

if shema = 0 then

Exit;

if shema = 1 then

Memo1.Visible:= True;

if shema = 2 then

Memo2.Visible:= True;

end;

procedure TForm1.aboutExecute(Sender: TObject);

// информация о программе

begin

Form3.ShowModal;

end;

end.

Заключение

В своей работе я изучал продукционную модель реализации знаний и пришел к выводу что согласно данной теории можно построить и реализовать продукционную модель, которая с некоторой степенью точности могла бы распознать и диагностировать заболевания уха и предлогать тактику лечения. Доказательством этого является создание программы в Delphi.

Список литературы

1) Гаврилова Т. А., Хорошевский В. Ф. Базы знаний интеллектуальных систем. Учебник. — СПб.: Питер, 2000

2) Портал искусственного интеллекта Каталог статей Модели представления знаний Продукционная модель знаний

3) http://www.snipetz.com/math/iisystem/3.html