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

(window-delete rediw))

((eq? ch #\2) (Window-Set-Position! redsw 11 10)

(Window-Set-Size! redsw 8 57)

(Window-Clear redsw) (red_sym)

(window-delete redsw))

((eq? ch #\ESCAPE))

(t (redacing)) ))

;Редактирование болезни

(define (red_ill)

(define nums)

(define ill1)

(window-set-cursor! rediw 1 1)

(display " Введите БОЛЕЗНЬ, название которой хотите" rediw)

(newline rediw)

(display " ИСПРАВИТЬ: " rediw)

(set! ill (read-line rediw))

(newline rediw)

(display " Введите ИСПРАВЛЕННОЕ название: " rediw)

(set! ill1 (read-line rediw))

(set! nums (find_sym ill *it_is*))

(set! *it_is* (delete! (list ill nums) *it_is*))

(set! *it_is* (append *it_is* (list (list ill1 nums)) )) )

;Редактирование симптома

(define (red_sym)

(define n1)

(define nums)

(define sym1)

(window-set-cursor! redsw 1 1)

(display " Введите БОЛЕЗНЬ, СИМПТОМ которой хотите" redsw)

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