Реферат: Разработка оболочки экспертной системы
(Window-Set-Size! menucw 17 57)
(Window-Clear menucw)
(experting *it_is*)
(window-delete menucw) )
(define (experting spis_ill)
(cond ((null? spis_ill) (board)
(display " НЕВОЗМОЖНО ОПРЕДЕЛИТЬ ДИАГНОЗ " menucw)
(wait menucw)
(set! *yes* '())
(set! *no* '()))
((exp_ill (cadar spis_ill) (caar spis_ill)))
(t (experting (cdr spis_ill))) ))
(define (exp_ill spis_num ill)
(define nums)
(define s)
(cond ((null? spis_num) (window-clear menucw) (window-set-cursor! menucw 1 1)
(display " У ВАС " menucw) (display ill menucw)
(display "." menucw)
(set! nums (find_sym ill *it_is*))
(set! *yes* '())
(set! *no* '())
(log_out nums))
(t (set! s (find_sym (car spis_num) *symptom*))
(yesno? s spis_num ill)) ))
(define (into y a)
(cond ((eq? a 'д) (set! *yes* (append *yes* (list y))))
(t (set! *no* (append *no* (list y)))) ))
(define (yesno? y spis_num ill)
(define ans)