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

(window-delete vieww) )

(define (view_ill spis_ill)

(cond ((null? spis_ill) t)

(t (window-set-cursor! vieww 1 2) (display "БОЛЕЗНЬ: " vieww)

(display (caar spis_ill) vieww)

(view_sym (cadar spis_ill))

(view_ill (cdr spis_ill))) ))

(define (view_sym spis_num)

(cond ((null? spis_num) (wait vieww) (window-clear vieww))

(t (newline vieww)

(display " " vieww)

(display (find_sym (car spis_num) *symptom*) vieww)

(view_sym (cdr spis_num))) ))

;Вспомогательное подменю

(define (submenu)

(Window-Set-Position! submenuw 11 25)

(Window-Set-Size! submenuw 4 14)

(Window-Clear submenuw)

(window-set-cursor! submenuw 1 1)

(display "1.БОЛЕЗНЯМИ" submenuw)

(window-set-cursor! submenuw 2 1)

(display "2.СИМПТОМАМИ" submenuw) )

;Добавление

(define (adding)

(define ch)

(submenu)

(Window-Set-Cursor! mainw 22 30)

(display "ВАШ ВЫБОР :" mainw)

(set! ch (read-char mainw))

К-во Просмотров: 541
Бесплатно скачать Реферат: Разработка оболочки экспертной системы