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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

116
BEGIN
writeln;
writeln( Так как :');
currj)rem: = сигг_ги1е
л
.ргет;
WHILE (curr_prem<>NIL) DO
BEGIN
write(curr_prem .object‘=');
write(curr_prem^. value);
curr_prem:= curr prem^.next;
IF (curr prem<>NIL) THEN writeln(‗и‘)
ELSE writeln
END;
wrileln(' Можно сделать вывод, что'); cuгr_con:=curr_гuIe^.con;
,
WHILE (curr
con<>NIL) DO
BEGIN
write(curr_ con".object‘=');
write( сuгг_con^ .value,‘, к .onp=', curr_con^. cert);
сшт_сon: =curr_con^ .next;
IF (curr_con<>NIL) THEN writeln(‗ и ')
ELSE writeln
END;
Writeln
END;
Объяснение, почему был задан вопрос
Кроме объяснения, как был сделан вывод, программа должна иметь возможность пояснять,
почему был задан вопрос. Следующая процедура, EXPLAIN_WHY, вызывается, когда система
приходит к какому-либо заключению, но при этом в основной программе должна присутствовать
строка EXPLAIN =TRUE.
PROCEDURE explain_why(f_object: word_string);
BEGIN
writeln;
writeIn(TaK как в БЗ отсутствует правило‘);
writeln(
,
вывода значения для объекта f_object);
writeln('To нужно запросить пользователя.');
writeln
END; 
BEGIN
writeln;
writeln( Так как :');
currj)rem: = сигг_ги1ел.ргет;
WHILE (curr_prem<>NIL) DO
     BEGIN
     write(curr_prem .object‘=');
     write(curr_prem^. value);
     curr_prem:= curr prem^.next;
     IF (curr prem<>NIL) THEN writeln(‗и‘)
     ELSE writeln
     END;
      wrileln(' Можно сделать вывод, что'); cuгr_con:=curr_гuIe^.con;, WHILE (curr
con<>NIL) DO
     BEGIN
     write(curr_ con".object‘=');
     write( сuгг_con^ .value,‘, к .onp=', curr_con^. cert);
     сшт_сon: =curr_con^ .next;
     IF (curr_con<>NIL) THEN writeln(‗ и ')
       ELSE writeln
       END;
       Writeln
       END;
                              Объяснение, почему был задан вопрос
       Кроме объяснения, как был сделан вывод, программа должна иметь возможность пояснять,
почему был задан вопрос. Следующая процедура, EXPLAIN_WHY, вызывается, когда система
приходит к какому-либо заключению, но при этом в основной программе должна присутствовать
строка EXPLAIN =TRUE.
PROCEDURE explain_why(f_object: word_string);
BEGIN
writeln;
writeIn(TaK как в БЗ отсутствует правило‘);
writeln(,вывода значения для объекта f_object);
writeln('To нужно запросить пользователя.');
writeln
END;



                                                         116

Страницы