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

(display " " mainw)

(window-delete submenuw)

(cond ((eq? ch #\1) (Window-Set-Position! addiw 6 10)

(Window-Set-Size! addiw 17 57)

(Window-Clear addiw) (add_ill)

(window-delete addiw))

((eq? ch #\2) (Window-Set-Position! addsw 6 10)

(Window-Set-Size! addsw 17 57)

(Window-Clear addsw) (add_sym)

(window-delete addsw))

((eq? ch #\ESCAPE))

(t (adding)) ))

(define ill)

(define sym)

;Добавление болезни

(define (add_ill)

(define n)

(window-set-cursor! addiw 1 1)

(display "Введите название новой БОЛЕЗНИ: " addiw)

(set! ill (read-line addiw))

(display " Чтобы ЗАКОНЧИТЬ вводить симптомы НАБЕРИТЕ: end" addiw)

(newline addiw)

(set! n (caar (last-pair *symptom*)))

(set! *it_is* (append *it_is* (list (list ill

(addsyms (+ n 1) '() '() addiw)))

)) )

;Добавление симптомов

(define (add_sym)

(define n)

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