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

       вновь созданного узла устанавливается на вершину списка объектов. И конце процедуры по
команде WITH выполняется инициализация
нсех полей новой записи:
 PROCEDURE make_node (VAR curr_object:object,ptr); VAR
head :object_ptr;
BEGIN
new(curr_object);
head:=lop_fact;
 top_fact :=curr_object;
 WITH curr_object DO
 BEGIN
 next:=head;
 value_Iist;=NIL;
 questions";
 legal_list:=NlL;
multivald:=FALSE;
 sought: =FALSE;
 END
 END;
                           Помещение имени объекта в сцепленный список

       Следующая задача - поместить в список имя какого-либо заданного объекта. Модуль FIND
OBJECT ищет имя объекта в списке; если имя найдено, указатель устанавливается на его место в
списке объектов. В противном случае он устанавливается на nil.
       В этой процедуре программа просматривает список объектов в поисках имени f_object.
Найдя его, программа устанавливает указатель FIND_OBJECT на него; в противном случае,
выдается значение nil:
FUNCTION find_object(f_object:word_string):object_ptr;
VAR
cu rr__object: object_ptr;
BEGIN
IF (Iast_try<>NIL) and (last_try^.name=f_object) THEN
find_object:=last_try
ELSE
       BEGIN
      curr_object :=top_f act;
      last_try:=NIL;


                                               97