Реферат: Разработка оболочки экспертной системы

(display " ИСПРАВИТЬ: " redsw)

(set! ill (read-line redsw))

(newline redsw)

(display " Введите СИМПТОМ, который хотите" redsw)

(newline redsw)

(display " ИСПРАВИТЬ: " redsw)

(set! sym (read-line redsw))

(display " Введите ИСПРАВЛЕННОЕ ЗНАЧЕНИЕ: " redsw)

(set! sym1 (read-line redsw))

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

(set! n1 (sub sym *symptom* nums))

(set! *symptom* (delete! (list n1 sym) *symptom*))

(set! *symptom* (append *symptom* (list (list n1 sym1)) )) )

(define (sub x spis spis_x)

(let ((n (find_index x spis)))

(cond ((memb? n spis_x) n)

(t (sub x (cdr spis) spis_x)) )))

(define (find_index x spis)

(cond ((equal? (cadar spis) x) (caar spis))

(t (find_index x (cdr spis))) ))

(define (memb? a l)

(cond ((null? l) nil)

((equal? a (car l)) t)

(t (memb? a (cdr l))) ))

;Удаление

(define (deleting)

(define ch)

(submenu)

(Window-Set-Cursor! mainw 22 30)