Рис. 7.1. пример выбора спортивной секции

     

     Рис. 7.2. пример выбора не спортивной секции 

Приложение: программная реализация экспертной системы

 

     Листинг программы приведен ниже.

   unit sekciya; 

   interface 

   uses

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

     Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg; 

   type

     TForm1 = class(TForm)

       RadioGroup1: TRadioGroup;

       v: TGroupBox;

       BitBtn1: TBitBtn;

       vv: TLabeledEdit;

       Label1: TLabel;

       RadioGroup2: TRadioGroup;

       RadioGroup3: TRadioGroup;

       Image1: TImage;

       procedure FormActivate(Sender: TObject);

       procedure RadioGroup1Click(Sender: TObject);

       procedure BitBtn1Click(Sender: TObject);

       procedure viv;

       procedure RadioGroup2Click(Sender: TObject);

       procedure RadioGroup3Click(Sender: TObject);

     private

       { Private declarations }

     public

       { Public declarations }

     end; 

   var

     Form1: TForm1;

     sport,muz:boolean;

     vozrast:real;

     sek:string;

     vid:integer;

   implementation 

   {$R *.dfm}

   procedure Tform1.viv;

   begin

   label1.Caption:=sek;

   label1.Visible:=true;

   sek:='';

   end;

   procedure TForm1.FormActivate(Sender: TObject);

   begin

   radiogroup1.ItemIndex:=-1;

   v.Visible:=false;

   label1.Visible:=false;

   radiogroup2.ItemIndex:=-1;

   radiogroup2.visible:=false;

   radiogroup3.Visible:=false;

   end; 

   procedure TForm1.RadioGroup1Click(Sender: TObject);

   begin

   v.Visible:=false;

   label1.Visible:=false;

   radiogroup2.ItemIndex:=-1;

   radiogroup2.visible:=false;

   radiogroup3.Visible:=false;

   sek:='';

   if     radiogroup1.ItemIndex>-1 then    begin

   if radiogroup1.ItemIndex=0 then sport:=true

   else sport:=false;

   v.Visible:=true;

   end

   else Showmessage('Вы не выбрали вид секции');

   end; 

   procedure TForm1.BitBtn1Click(Sender: TObject);

   var

   c:word;

   begin

   if vv.Text<>'' then

   vozrast:=strtofloat(vv.Text) else

    showmessage('Вы не ввели возраст');

    if (vozrast<1)and(sport=false) then sek:='Ваш ребенок  слишком мал для секций'

    else

    if (vozrast>=1)and(vozrast<=3) and (sport=false) then begin

    sek:='Вам рекомендована школа раннего развития';

     image1.Picture.LoadFromFile('ran_raz.jpg');

    end

    else

    if (vozrast<3)and(sport) then

    begin

     sek:='Для таких малышей рекомендовано плаванье';

     image1.Picture.LoadFromFile('plav_det.jpg');

    end;

    if sek<>'' then

    viv

    else

    if sport then

    radiogroup2.Visible:=true else

    radiogroup3.Visible:=true;

   end; 

   procedure TForm1.RadioGroup2Click(Sender: TObject);

   begin

   with radiogroup2 do begin

     if itemindex>-1 then vid:=itemindex else

     showmessage('Вы не выбрали Вид спорта');

   end;

   vozrast:=strtofloat(vv.text);

   if (vid=0) and (vozrast>=3)and(vozrast<=6) then begin

   sek:='Вам подойдет секция ушу';

   image1.Picture.LoadFromFile('uchu.jpg');

   end;

   if (vid=0) and (vozrast>6)and(vozrast<=12) then

   begin

   sek:='Вам подойдет секция карате';

   image1.Picture.LoadFromFile('karate.jpg');

   end;

   if (vid=0) and (vozrast>12) then

   begin

   sek:='Вам подойдет секция самбо';

   image1.Picture.LoadFromFile('sambo.jpg');

   end;

   if (vid=1) then begin

   sek:='Вам подойдет секция легкой атлетики';

   image1.Picture.LoadFromFile('l_atlet.jpg');

   end;

   if (vid=2) and (vozrast>=3)and(vozrast<=8) then begin

   sek:='Вам подойдет секция спортивного плаванья';

   image1.Picture.LoadFromFile('sport_plav.jpg');

   end;

   if (vid=2) and (vozrast>8) then begin

   sek:='Вам подойдет секция водного поло';

   image1.Picture.LoadFromFile('polo.jpg');

   end;

   if (vid=3) and (vozrast>=3)and(vozrast<=5) then begin

   sek:='Вам подойдет лыжная секция ';

   image1.Picture.LoadFromFile('ligi.jpg');

   end;

   if (vid=3) and (vozrast>5) then begin

   sek:='Вам подойдет секция фигурного катания';

   image1.Picture.LoadFromFile('figure.jpg');

   end;

   viv;

   end; 

   procedure TForm1.RadioGroup3Click(Sender: TObject);

   begin

   with radiogroup3 do begin 

     if itemindex>-1 then

     if itemindex=0 then muz:=true else muz:=false

     else

     showmessage('Вы не выбрали направление секции');

     vozrast:=strtofloat(vv.text);

     if (muz) and(vozrast<=6) then begin

     sek:='Вам подходит секция танцев';

     image1.Picture.LoadFromFile('tanci.jpg');

     end

     else

     if (muz) and(vozrast>6) then begin

     sek:='Вам подходит музыкальная школа';

     image1.Picture.LoadFromFile('muz.jpg');

     end

     else

     if (not muz) and (vozrast<7) then begin

     sek:='Вам подходит секция рисования';

     image1.Picture.LoadFromFile('hud.jpg');

     end

     else

     if (not muz) and (vozrast>=7) then begin

     sek:='Вам подходит секция художественного выжигания' ;

     image1.Picture.LoadFromFile('vig.jpg');

     end;

     viv;

   end;

   end; 

   end.