Реферат: Экспертные системы на базе VP-Expert

"Вас приветствует система поиска неисправностей!

выбирайте симптомы- получайте способ устранения

(нажмите любую клавишу для продолжения.) "

cls

FIND bug_method

display "метод устранения неисправности {#bug_method}.";

ask prich1: "Неисправность

1-нет топлива в карбюраторе

2-нет импульсов высокого напряжения

3-нет импульсов тока на катушке зажигания

4-нет высокого напряжения на свечах

5-неправиьно подсоединены высоковольтные провода

6-неправильный зазор в свечах

7-трещина на изоляторе свечей

8-неправильный момент зажигания

9-неисправен эл.маг. клапан

10-не открывается воздушная заслонка "

;

!----------------------------------------------------------------

ask prich1_1: "Неисправность

1-засорены топливопроводы

2-засорены фильтры

3-несправен топливный насос"

;

RULE 6

IF prich=1 and

prich1=1 and

prich1_1=1

THEN