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

                    END;
             IF(bad=FALSE)TH
             EN BEGIN
             concl ud e( curr_r ule, 1оwest);
             solved:=TRUE
              END;
             cur r_rule:=find_rule (f_object, curr_rul e^. next) END;
       IF (solved =FALSE)
       THEN BEGIN
ask (f_object, f_value );
 add_object(f_object, f_value );
add_cf(f_object,f_value,DEFINITE)
 END
 END
 END;
                                    Печать результатов консультации

       Следующая подпрограмма позволяет системе выводить "на" экран результаты консультации.
Процедуре P_RESULT из основной программы передается имя объекта-цели. Она распечатывает
на экране дисплея список всех значений этого объекта,
PROCEDURE p_result(f_object:word_string);
VAR
curr_object: object_ptr;
BEGIN
      wrileln;
      writeln(‗РЕЗУЛЬТАТ КОНСУЛЬТАЦИИ:');
      writeln;
      curr_obj ect :=f ind,object( f object);
      see_vals(curr_object,TRUE);
      writeln;
      writeln('КОНЕЦ КОНСУЛЬТАЦИИ')
       END;




                                                             111