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

UptoLike

179
Продолжение прил.
objects=Tecord
name: word_st ring;
question: line_string;
multivald: boolean;
legal_list:legal_ptr;
sought: boolean;
value_list:value_ptr;
next:object_ptr
end;
prem_ptr=^prem;
con_ptr=
^
con;
rule_ptr_rule;
prem=record
objects :word_string;
value :word_string;
next:prem_ptr
end;
con=record
objects :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;
Tfor_me = class(TForm)
Vvod: TButton;
testen: TButton;
                                Продолжение   прил.
objects=Tecord
 name: word_st ring;
 question: line_string;
 multivald: boolean;
 legal_list:legal_ptr;
sought: boolean;
value_list:value_ptr;
next:object_ptr
end;
prem_ptr=^prem;
con_ptr=^con;
 rule_ptr_rule;
prem=record
objects :word_string;
value :word_string;
next:prem_ptr
 end;
con=record
 objects :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;
Tfor_me = class(TForm)
Vvod: TButton;
testen: TButton;

                          179