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



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

(Window-Set-Size! submenuw 4 14)

(Window-Clear submenuw)

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

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

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