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

((member y *yes*) (exp_ill (cdr spis_num) ill))

(t (and (board) (display " СИМПТОМ: " menucw)

(display y menucw)

(display " [Д/Н] ? " menucw)

(set! ans (read menucw))

(into y ans) (eq? 'д ans)

(exp_ill (cdr spis_num) ill))) ))

(define (log_out nums)

(cond ((null? nums) (wait menucw))

(t (newline menucw) (display " " menucw)

(display (find_sym (car nums) *symptom*) menucw)

(log_out (cdr nums))) ))

(define (board)

(define gr)

(set! gr (window-get-cursor menucw))

(if (< (car gr) 18) (newline menucw)

(begin (window-clear menucw)

(window-set-cursor! menucw 1 1))))

(define (find_sym n spis_sym)

(if (equal? (caar spis_sym) n) (cadar spis_sym)

(find_sym n (cdr spis_sym)) ))

(define (wait wname)

(cond ((eq? (read-char wname) #\ESCAPE) t)

(t (wait wname)) ))

;Просмотр

(define (viewing)

(Window-Set-Position! vieww 11 15)

(Window-Set-Size! vieww 12 47)

(Window-Clear vieww)