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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

184
Продолжение прил.
cert:=0;
setby:=";
name :=f_ value
END;
curr_object^.value_list:=value_list
END
END;
//выводит все элементы списка значений любого узла
PROCEDURE see_vals(curr_object:object_ptr;cf_on:boolean);
VAR
curr_value:value_ptr;
cf: integer;
bes: string [80];
BEGIN
curr_value:=curr_object^.value_list;
bes:=curr_object^.name+EQUALS;
if(curr_value=NIL) THEN {ShowMessage(He определено')};
WHILE (curr_value<>NIL) DO BEGIN
bes:=bes+curr__value^.name;
IF(cf_on=TRUE)THEN begin
cf:=curr_value^.cert;
//bes:=bes+', коэффициент доверия='+inttoStr(cf));
end;
curr_value:=curr_value.next;
IF(curr_value<>NIL) THEN bes:=bes+','
END;
besa_int:=besa_int+l;
besa[besa_int] :=bes;
END;
//выводит имена всех объектов базы знаний PROCEDURE
see_objects(cf_on:boolean);
var
curr_object: object_ptr;
begin 
                                                            Продолжение   прил.
    cert:=0;
setby:=";
 name :=f_ value
 END;
 curr_object^.value_list:=value_list
 END
 END;
//выводит все элементы списка значений любого узла
PROCEDURE see_vals(curr_object:object_ptr;cf_on:boolean);
VAR
curr_value:value_ptr;
cf: integer;
bes: string [80];
BEGIN
curr_value:=curr_object^.value_list;
bes:=curr_object^.name+EQUALS;
if(curr_value=NIL) THEN {ShowMessage(He определено')};
WHILE (curr_value<>NIL) DO BEGIN
  bes:=bes+curr__value^.name;
   IF(cf_on=TRUE)THEN begin
      cf:=curr_value^.cert;
      //bes:=bes+', коэффициент доверия='+inttoStr(cf));
        end;
  curr_value:=curr_value.next;
   IF(curr_value<>NIL) THEN bes:=bes+','
   END;
besa_int:=besa_int+l;
besa[besa_int] :=bes;
 END;
//выводит имена всех объектов базы знаний PROCEDURE
see_objects(cf_on:boolean);
var
curr_object: object_ptr;
begin



                                                 184

Страницы