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

                                                                        Продолжение прил.
{Эта функция отыскивает правило, содержащее в правой части имя заданного объекта. Она
применяет указатель заключения curr_con для просмотра списка правил до совпадения имени
объекта с заданным. Если соответствующий объект найден, функция принимает значение TRUE.}
FUNCTION find_rule(obj:word_string;curr_rule:rule_ptr):rule_ptr;
 VAR
 found: boolean;
 curr_con :con_ptr;
 BEGIN
found :=FALSE;
find_rule:=NIL;
WHILE ((curr_rule<>NIL) AND (found =FALSE)) DO BEGIN
           curr_con:= curr_rule^.con; WHILE
           (curr_con<>NIL) DO BEGIN
IF (curr_con^.objects=obj) THEN
 BEGIN
 found:=TRUE;
 find_rule:=curr__rule
 END;
 curr_con:~=curr_con^.next
 END;
 curr_rule;=curr_rule^.next
 END
END;
{устанавливает коэффициент доверия заключения и выводит
заключение на экран дисплея}
PROCEDURE conclude(curr_rule:rule_ptr;prem_cert:integer);
VAR
curr_con :con_ptr;
cert: integer;
BEGIN
        curr_con:=curr_rule.con;
        WHILE (curr_con<>NIL) DO


                                               198