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

                                                                 Продолжение   прил.
IF роs('абсолютный',trim)>0 THEN cf:=DEFINITE
END;
get_cf:=cf
END;
PROCEDURE add_cf(f_object,f_value:word_string;cf2:integer);
VAR
cft:integer;
curr_value:value_ptr;
BEGIN
сurr_value: =test( f_object, f_value );
cf1 :=curr_value^.cert;
curr_value^.cert:=blend(cf1, cf2)
END;
FUNCTION ok_add(f_object:word_string;cf:integer) :boolean;
VAR
curr_object: object_ptr; curr_value:value_ptr; is_100:boolean;
 BEGIN
ok_add:=TRUE; is_100:=FALSE;
curr_object:=find_object( f_object);
 IF (curr_object <>NIL) THEN
BEGIN
curr_value :=curr_object^.value_list;
WHILE (curr_value<>NIL) DO
BEGIN
IF(curr_value^.cert=DEFINITE)THEN
                  is_100:=TRUE;
                  curr__value:=curr_value^. Next
                   END
                  END;




                                                   189