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

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

203
Продолжение п р и л .
{Позволяет системе выводить на экран результаты консультации. Процедуре P_RESULT из
основной программы передается имя объекта-цели.
Она распечатывает на экране дисплея список всех значений этого объекта.}
PROCEDURE p_result(f_object:word_string); VAR
curr_object:object_ptr; BEGIN
curr_object:=find_object(f_object); see_vals(curr_object,TRUE);
END;
procedure Tfor_me. exit Click (Sender: TObject);
begin
for_me. Close;
end;
/////////////////
{будет использоваться для чтения всего содержимого файла правил в базу знаний}
PROCEDURE read_file;
VAR
command: word__string;
m_line, f_line:line_string;
st_place:integer; BEGIN
assign(rules, 'rules.txt');
reset(rules);
top_rule:=NIL;
command :="; 
                                                                    Продолжение п р и л .
{Позволяет системе выводить на экран результаты консультации. Процедуре P_RESULT из
основной программы передается имя объекта-цели.
Она распечатывает на экране дисплея список всех значений этого объекта.}
PROCEDURE p_result(f_object:word_string); VAR
curr_object:object_ptr; BEGIN
curr_object:=find_object(f_object); see_vals(curr_object,TRUE);
END;
procedure Tfor_me. exit Click (Sender: TObject);
begin
for_me. Close;
end;
/////////////////
{будет использоваться для чтения всего содержимого файла правил в базу знаний}
PROCEDURE read_file;


 VAR
     command: word__string;
     m_line, f_line:line_string;
     st_place:integer; BEGIN


assign(rules, 'rules.txt');
reset(rules);
top_rule:=NIL;
command :=";




                                           203

Страницы