Задание №3, «Анализ существующей экспертной системы», страница 2

      if (explain == true)

      explain_how(curr_rule);

      conclude(curr_rule, lowest);

      solved = true;

    }

    curr_rule = find_rule(f_obiect, curr_rule->next);

  }

  if (solved != false)

    return;

  if (explain == true)

    explain_why(f_obiect);

  ask(f_obiect, f_value);

  add_obiect(f_obiect, f_value);

  add_cf(f_obiect, f_value, (long)DEFINITE);

}

В файл с правилами figura.rul добавляем следующее правило:

правило5:  если

      углы=есть и

      количество_сторон=4 и

      равенство_сторон=да

то

           фигура=ромб.

Ну и разумеется в команду разрешенных фигур надо добавить ромб:

разрешзн(фигура)=круг,треугольник,квадрат,прямоугольник,ромб

Проверим работоспособность программы (с учетом, что база знаний у нас еще пуста):

3. Выводы

Рассмотрели существующую экспертную систему. Модифицировали файл с правилами и проверили работоспособность программы, используя это правило. Ознакомились со структурой программы.