Реферат Розробка фрагментів оболонки експертної системи

)

(Display "Введіть назву ХВОРОБИ, СИМПТОМИ якої хочете" delsw)

(Newline delsw)

(Display "ВИДАЛИТИ:" delsw)

(Set! ill (read-line delsw))

(Display "Щоб ЗАКІНЧИТИ вводити симптоми наберіть: end" delsw)

(Newline delsw)

(Set! nums (find_sym ill * it_is *))

(Subdel nums ill))

(define n0)

(define (Subdel spis_nums ill)

(Display "СИМПТОМ:" delsw)

(Set! sym (read-line delsw))

(If (equal? ​​Sym "end") t

(Begin (set! n0 (sub sym * symptom * spis_nums))

(Set! * symptom * (delete! (list n0 sym) * symptom *))

(Set! * it_is * (delete! (list ill spis_nums) * it_is *))

(Set! * it_is * (append * it_is * (list (list ill

(Del n0 spis_nums)))))

(Subdel (del n0 spis_nums) ill))))

(define (Del x l)

(Cond ((null? L) nil)

((Equal? ​​X (car l)) (cdr l))

(T (cons (car l) (del x (cdr l))))))

В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В 

Додаток В

Лістинг файлу бази знань "BD2.LSP":

((1 "загальне нездужання ")

(2 "сухість, першіння, саднение ")

(3 "кашель спочатку сухий, потім з мокротою ")

(4 "голос хрипкий або беззвучний ")

(5 "іноді біль при ковтанні ")

(6 "головний біль ")

(7 "підвищення температури тіла ")

(8 "Швидка стомлюваність голосу")

(9 "Періодичний кашель з мокротою")

(10 "Захриплість з афонією")

(11 "Відчуття незручності")

(12 "Печіння в горлі")

(13 "Кашель при загостренні")

(14 "Сухий кашель")

(15 "Слизова вкрита густим слизом")

(16 "Відкашлювання з прожилками крові"))

(("ларингіт гострий "(1 2 3 4 5 6 7))

("ларингіт хронічний катаральний "(1 2 4 8 9))

("ларингіт хронічний гіпертрофічний В»(1 10 11 12 13))

("ларингіт хронічний атрофічний "(1 2 4 14 15 16)))