Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата



(write *symptom*)

(write *it_is*)

)))

;Меню диагностики

(define (menucons)

(Window-Set-Position! menucw 6 10)

(Window-Set-Size! menucw 17 57)

(Window-Clear menucw)

(experting *it_is*)

(window-delete menucw) )

(define (experting spis_ill)

(cond ((null? spis_ill) (board)

(display " НЕВОЗМОЖНО ОПРЕДЕЛИТЬ ДИАГНОЗ " menucw)

(wait menucw)

(set! *yes* '())

(set! *no* '()))

((exp_ill (cadar spis_ill) (caar spis_ill)))

(t (experting (cdr spis_ill))) ))

(define (exp_ill spis_num ill)

(define nums)

(define s)

(cond ((null? spis_num) (window-clear menucw) (window-set-cursor! menucw 1 1)

(display " У ВАС " menucw) (display ill menucw)

(display "." menucw)

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

(set! *yes* '())

(set! *no* '())

(log_out nums))

(t (set! s (find_sym (car spis_num) *symptom*))

(yesno? s spis_num ill)) ))

(define (into y a)

(cond ((eq? a 'д) (set! *yes* (append *yes* (list y))))

(t (set! *no* (append *no* (list y)))) ))

(define (yesno? y spis_num ill)

(define ans)

(cond ((member y *no*) nil)

((member y *yes*) (exp_ill (cdr spis_num) ill))

(t (and (board) (display " СИМПТОМ: " menucw)

(display y menucw)

(display " [Д/Н] ? " menucw)

(set! ans (read menucw))

(into y ans) (eq? 'д ans)

(exp_ill (cdr spis_num) ill))) ))

Рекомендуем скачать другие рефераты по теме: сборник изложений, тарас бульба сочинение.

Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки