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

*symptom*))

(delsyms (cdr spis_nums))) ))

;Удаление симптомов

(define (del_sym)

(define nums)

(window-set-cursor! delsw 1 2)

(display "Введите название БОЛЕЗНИ, СИМПТОМЫ которой хотите" delsw)

(newline delsw)

(display " УДАЛИТЬ: " delsw)

(set! ill (read-line delsw))

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

(newline delsw)

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

(subdel nums ill) )

(define n0)

(define (subdel spis_nums ill)

(display " СИМПТОМ: " delsw)

(set! sym (read-line delsw))

(if (equal? sym "end") t

(begin (set! n0 (sub sym *symptom* spis_nums))

(set! *symptom* (delete! (list n0 sym) *symptom*))

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

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

(del n0 spis_nums))) ))

(subdel (del n0 spis_nums) ill)) ))

(define (del x l)

(cond ((null? l) nil)

((equal? x (car l)) (cdr l))

(t (cons (car l) (del x (cdr l)))) ))

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