Основы построения и функционирования интеллектуальных информационных систем. Былкин В.Д - 180 стр.

                                                        Продолжение прил.
     preview: TButton;
       exit: TButton;
       bz: TListBox;
       Label1: TLabel;
       run: TBitBtn;
       Popup: TPopupMenu;
       about: TMenuItem;
       hv: TCheckBox;
     N1: TMenuItem;
      procedure vvodClick(Sender: TObject);
       procedure testenClick(Sender: TObject);
       procedure previewСlick(Sender: TObject);
       procedure exitClick(Sender: TObject);
       procedure FormCreate(Sender: TObject);
       procedure runClick(Sender: TObject);
       procedure aboutClick(Sender: TObject);
       procedure NlClick(Sender: TObject);
  private
      { Private declarations }
   public
      { Public
   declarations } end;
var
for_me:
   Tfor_me;
   max_choice, choice_lim,
  choice: integer;
   Iast_try,
   top_fact :obj ect_ptr;
  s_word, s_object, s_value:word_string;
  s_line :line_string;
  s_cf:integer;
  top_rule:rule__ptr;
  rules :Text;
  explain: boolean;

                                                  180