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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

181
Продолжение прил.
besa:array[1..10000]of string;
besa_int: integer;
pusto:boolean;
implementation
uses Unitl;
{$R *.DFM}
{обеспечивает возможность добавления к списку нового объекта}
PROCEDURE make_node(VAR curr_object:object_ptr);
VAR
head:object_ptr;
BEGIN
new(curr_object);
head:=top_fact;
top_fact:=curr_object;
WITH curr_object^ do
BEGIN
Next:=head;
value_list:=NIL;
question:=";
legaI_list:=NIL;
multivaId:=FALSE;
sought :=FALSE;
END;
END;
{ищет в списке объектов имя конкретного объекта} FUNCTION
find_object(f_object:word_string):object__ptr;
VAR
cur_object:object_ptr;
BEGIN
IF (last:try<>NIL) and (last_try^.name=f_object) THEN find_object:=last_try 
                                                                      Продолжение   прил.
besa:array[1..10000]of string;
besa_int: integer;
 pusto:boolean;
 implementation
uses Unitl;
{$R *.DFM}
{обеспечивает возможность добавления к списку нового объекта}
PROCEDURE make_node(VAR curr_object:object_ptr);
VAR
head:object_ptr;
BEGIN
new(curr_object);
head:=top_fact;
top_fact:=curr_object;
WITH curr_object^ do
BEGIN
Next:=head;
value_list:=NIL;
question:=";
legaI_list:=NIL;
multivaId:=FALSE;
sought :=FALSE;
END;
END;
{ищет в списке объектов имя конкретного объекта} FUNCTION
find_object(f_object:word_string):object__ptr;
VAR
cur_object:object_ptr;
BEGIN
IF (last:try<>NIL) and (last_try^.name=f_object) THEN find_object:=last_try




                                                 181

Страницы