Реферат Розробка фрагментів оболонки експертної системи

(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)))))

(define (Log_out nums)

(Cond ((null? Nums) (wait menucw))

(T (newline menucw) (display "" menucw)

(Display (find_sym (car nums) * symptom *) menucw)

(Log_out (cdr nums)))))

(define (Board)

(Define gr)

(set! gr (window-get-cursor menucw))

(If (<(car gr) 18) (newline menucw)

(Begin (window-clear menucw)

(Window-set-cursor! menucw 1 січня))))

(define (Find_sym n spis_sym)

(If (equal? ​​(Caar spis_sym) n) (cadar spis_sym)

(Find_sym n (cdr spis_sym))))

(define (Wait wname)

(Cond ((eq? (Read-char wname) # ESCAPE) t)

(T (wait wname))))

; Перегляд

(define (Viewing)

(Window-Set-Position! vieww 15 листопада)

(Window-Set-Size! vieww 12 47)

(Window-Clear vieww)

(View_ill * it_is *)

(Window-delete vieww))

(define (View_ill spis_ill)

(Cond ((null? Spis_ill) t)

(T (window-set-cursor! vieww 1 2) (display "ХВОРОБА:" vieww)

(Display (caar spis_ill) vieww)

(View_sym (cadar spis_ill))

(View_ill (cdr spis_ill)))))

(define (View_sym spis_num)

(Cond ((null? Spis_num) (wait vieww) (window-clear vieww))

(T (newline vieww)

(Display "" vieww)

(Display (find_sym (car spis_num) * symptom *) vieww)

(View_sym (cdr spis_num)))))

; Допоміжне підміню

(define (Submenu)

(Window-Set-Position! submenuw 25 листопада)

(Window-Set-Size! submenuw 14 квітня)

(Window-Clear submenuw)

(Window-set-cursor! submenuw 1 січня)

(Display "1.БОЛЕЗНЯМІ" submenuw)

(Window-set-cursor! submenuw 2 січня)

(Display "2.СІМПТОМАМІ" submenuw))

; Додавання

В 

(define (Adding)

(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) (...