Экспертная система "Злой разум"

        else if (CheckBox1.Checked)  then

     showmessage('В армии читать уметь не надо! '+#13+'Главное, что годен! :)')

    end;

    end. 

Рис. 3. Результат  работы программы 

при использовании  прямой цепочки рассуждений 
 
 
 
 
 
 
 

    4. ЭКСПЕРТНАЯ СИСТЕМА,

       РЕАЛИЗУЮЩАЯ АЛГОРИТМ ОБРАТНОЙ ЦЕПОЧКИ РАССУЖДЕНИЙ

    unit Unit1;

    interface

    uses

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

      Dialogs, StdCtrls, ExtCtrls;

    type

      TForm1 = class(TForm)

        CheckBox1: TCheckBox;

        CheckBox2: TCheckBox;

        CheckBox3: TCheckBox;

        CheckBox4: TCheckBox;

        CheckBox5: TCheckBox;

        CheckBox6: TCheckBox;

        CheckBox7: TCheckBox;

        CheckBox8: TCheckBox;

        CheckBox9: TCheckBox;

        CheckBox10: TCheckBox;

        Button1: TButton;

        CheckBox11: TCheckBox;

        CheckBox12: TCheckBox;

        Button2: TButton;

        RadioGroup1: TRadioGroup;

        procedure Button1Click(Sender: TObject);

        procedure FormCreate(Sender: TObject);

        procedure Button2Click(Sender: TObject);

        procedure RadioGroup1Click(Sender: TObject);

        procedure FormClose(Sender: TObject; var Action: TCloseAction);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form1: TForm1;

    implementation

    uses Unit2;

    {$R *.dfm}

    procedure TForm1.Button2Click(Sender: TObject);

    begin

    if Form1.ClientWidth=593 then begin

    Button2.Caption:='Ткни, чтобы узнать что ты должен  знать!';

    Form1.ClientWidth:=414

    end

    else begin

    Form1.ClientWidth:=593;

    Button2.Caption:='Не хочу знать!';

    end;

    end;

    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

    begin

    form2.Showmodal;

    end; 

    procedure TForm1.FormCreate(Sender: TObject);

    begin

    Form1.ClientWidth:=414;

    end;

    procedure TForm1.RadioGroup1Click(Sender: TObject);

    begin

    CheckBox1.Checked:=false;

    CheckBox2.Checked:=false;

    CheckBox3.Checked:=false;

    CheckBox4.Checked:=false;

    CheckBox5.Checked:=false;

    CheckBox6.Checked:=false;

    CheckBox7.Checked:=false;

    CheckBox8.Checked:=false;

    CheckBox9.Checked:=false;

    CheckBox10.Checked:=false;

    CheckBox11.Checked:=false;

    CheckBox12.Checked:=false;

    if RadioGroup1.Buttons[0].Checked then begin

      CheckBox3.Checked:=true;

      CheckBox6.Checked:=true;

      CheckBox11.Checked:=true;

    end;

    if RadioGroup1.Buttons[1].Checked then begin

      CheckBox4.Checked:=true;

      CheckBox5.Checked:=true;

      CheckBox9.Checked:=true;

    end;

    if RadioGroup1.Buttons[2].Checked then begin

      CheckBox2.Checked:=true;

      CheckBox10.Checked:=true;

    end;

    if RadioGroup1.Buttons[3].Checked then begin

      CheckBox1.Checked:=true;

      CheckBox7.Checked:=true;

      CheckBox8.Checked:=true;

    end;

    if RadioGroup1.Buttons[4].Checked then begin

      CheckBox12.Checked:=true;

    end;

    if RadioGroup1.Buttons[5].Checked then begin

      CheckBox1.Checked:=true;

      CheckBox2.Checked:=true;

      CheckBox3.Checked:=true;

      CheckBox4.Checked:=true;

      CheckBox5.Checked:=true;

      CheckBox6.Checked:=true;

      CheckBox7.Checked:=true;

      CheckBox8.Checked:=true;

      CheckBox9.Checked:=true;

      CheckBox10.Checked:=true;

      CheckBox11.Checked:=true;

      CheckBox12.Checked:=true;

    showmessage('Наши  студенты Всё знают и умеют! :)')

    end;

    end;

    end. 

Рис. 4. Результат  работы программы 

при использовании  обратной цепочки рассуждений 
 
 

    ЗАКЛЮЧЕНИЕ

    В данной контрольной работе описаны некоторые основные методы функционирования экспертных систем. В частности, в работе рассматриваются способы представления знаний с помощью правил вывода (правил “if-then-else”), главные механизмы логического вывода в экспертных системах на основе правил (такие как прямой или обратный логический вывод).

 

     СПИСОК ЛИТЕРАТУРЫ