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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

101
IF(cf_on=TRUE)THEN begin
cf:=curr_value^cert;
bes:=bes‘, on='+intToStr(cf);
end;
curr_value:=curr_value. next;
IF(curr_value<>NIL) THEN bes:=bes+';'
END;
besa_int:=besa
_int+1; besa [
besa_int ]:=bes;
END;
Вывод фактов базы знаний
Следующий модуль, SEE_OBJECTS, будет использоваться для вывода на экран имен всех
объектов и имен значений» введенных на данный момент в базу знаний. После оператора BEGIN
процедура сортирует имена объектов в списке объектов, выводя все имена и соответствующие ям
значения до тех вор, пока не будет достигнут конец списка (ш0.
PROCEDURE see_objects(cf_on:boolean);
VAR
curr_object: object_ptr;
BEGIN
//ShowMessage(
ФAKTbI БАЗЫ ЗНАНИЙ‘);
curr_object: =top_fact;
if curr__object=NIL then begin
ShowMessage('базa Знаний, увы... пуста!');
pusto:=false;
END;
WHILE(curr_object<>NIL) DO
BEGIN
see_vals(curr_object,cf_on);
curr_object:=curr_object^.next;
END
//ShowMessage((КОНЕЦ. БАЗЫ ЗНАНИЙ)
'
) END;
Рис. 7.2. иллюстрирует связи между основной программой и модулями, введенными в этой
части. 
      IF(cf_on=TRUE)THEN begin
            cf:=curr_value^cert;
      bes:=bes‘, on='+intToStr(cf);
      end;
      curr_value:=curr_value. next;
      IF(curr_value<>NIL) THEN bes:=bes+';'
       END;
besa_int:=besa
_int+1; besa [
besa_int ]:=bes;
END;
                                   Вывод фактов базы знаний
      Следующий модуль, SEE_OBJECTS, будет использоваться для вывода на экран имен всех
объектов и имен значений» введенных на данный момент в базу знаний. После оператора BEGIN
процедура сортирует имена объектов в списке объектов, выводя все имена и соответствующие ям
значения до тех вор, пока не будет достигнут конец списка (ш0.
PROCEDURE see_objects(cf_on:boolean);
VAR
curr_object: object_ptr;
BEGIN
//ShowMessage( ФAKTbI БАЗЫ ЗНАНИЙ‘);
curr_object: =top_fact;
if curr__object=NIL then begin
      ShowMessage('базa Знаний, увы... пуста!');
      pusto:=false;
       END;
       WHILE(curr_object<>NIL) DO
      BEGIN
            see_vals(curr_object,cf_on);
            curr_object:=curr_object^.next;
      END
         //ShowMessage((КОНЕЦ. БАЗЫ ЗНАНИЙ)') END;
      Рис. 7.2. иллюстрирует связи между основной программой и модулями, введенными в этой
части.




                                               101

Страницы