Реферат: Разработка оболочки экспертной системы
(window-set-cursor! addsw 1 2)
(display "БОЛЕЗНЬ: " addsw)
(set! ill (read-line addsw))
(display " Чтобы ЗАКОНЧИТЬ вводить симптомы НАБЕРИТЕ: end" addsw)
(newline addsw)
(set! n (caar (last-pair *symptom*)))
(set! nums (find_sym ill *it_is*))
(set! *it_is* (delete! (list ill nums) *it_is*))
(set! *it_is* (append *it_is* (list (list ill
(addsyms (+ n 1) '() nums addsw)))
)) )
(define (addsyms nn spis_num nums nwin)
(display " СИМПТОМ: " nwin)
(set! sym (read-line nwin))
(if (equal? sym "end") (append nums spis_num)
(begin (set! *symptom* (append *symptom* (list (list nn sym))))
(addsyms (+ nn 1) (append spis_num (list nn)) nums nwin)) ))
;Редактирование
(define (redacting)
(define ch)
(submenu)
(Window-Set-Cursor! mainw 22 30)
(display "ВАШ ВЫБОР :" mainw)
(set! ch (read-char mainw))
(Window-Set-Cursor! mainw 22 30)
(display " " mainw)
(window-delete submenuw)
(cond ((eq? ch #\1) (Window-Set-Position! rediw 11 10)
(Window-Set-Size! rediw 6 57)