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

UptoLike

95
Остальные определения типа будут использоваться по мере необходимости:
prem_ptr=
A
prem;
Con_ptr=^con;
rule_ptr=
A
rule;
prem=RECORD
object;word_string;
val ue: word_string;
next:prem_ptr
END; con=RECORD
object: word_string;
value :word_string;
cert: integer;
next:con_ptr
END; rule=RECORD
name:word_string;
prem:prem_ptr;
con:con_ptr;
next:rule_ptr
END;
Ниже приведены определения переменных, которые понадобятся нам в программе экспертной
системы. Первые две будут нужны в программе меню для выбора ввода. Остальные - для
управления объектами и значениями: VAR
max_choice, choice_lim,
choice: integer;
last_try,
top_fact:object_ptr; s_word, s_object,
s_value: word_string;
s_line: line_string;
s_cf: integer; top_rule:rule_ptr;
rules :Text;
explain:boolean;
Теперь мы определили константы, типы и переменные, необходимые для построения
экспертной системы.
   Остальные определения типа будут использоваться по мере необходимости:
   prem_ptr=Aprem;
Con_ptr=^con;
rule_ptr=Arule;
prem=RECORD
           object;word_string;
           val ue: word_string;
           next:prem_ptr
           END; con=RECORD
          object: word_string;
          value :word_string;
           cert: integer;
           next:con_ptr
           END; rule=RECORD
          name:word_string;
          prem:prem_ptr;
          con:con_ptr;
          next:rule_ptr
          END;
Ниже приведены определения переменных, которые понадобятся нам в программе экспертной
системы. Первые две будут нужны в программе меню для выбора ввода. Остальные - для
управления объектами и значениями: VAR
              max_choice, choice_lim,
              choice: integer;
              last_try,
              top_fact:object_ptr; s_word, s_object,
              s_value: word_string;
              s_line: line_string;
              s_cf: integer; top_rule:rule_ptr;
              rules :Text;
              explain:boolean;
     Теперь мы определили константы, типы и переменные, необходимые для построения
экспертной системы.




                                            95