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



(window-set-cursor! submenuw 1 1)

(display "1.БОЛЕЗНЯМИ" submenuw)

(window-set-cursor! submenuw 2 1)

(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) (Window-Set-Position! addiw 6 10)

(Window-Set-Size! addiw 17 57)

(Window-Clear addiw) (add_ill)

(window-delete addiw))

((eq? ch #2) (Window-Set-Position! addsw 6 10)

(Window-Set-Size! addsw 17 57)

(Window-Clear addsw) (add_sym)

(window-delete addsw))

((eq? ch #ESCAPE))

(t (adding)) ))

(define ill)

(define sym)

;Добавление болезни

(define (add_ill)

(define n)

(window-set-cursor! addiw 1 1)

(display "Введите название новой БОЛЕЗНИ: " addiw)

(set! ill (read-line addiw))

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

(newline addiw)

(set! n (caar (last-pair *symptom*)))

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

(addsyms (+ n 1) '() '() addiw)))

)) )

;Добавление симптомов

(define (add_sym)

(define n)

(define nums)

(window-set-cursor! addsw 1 2)

(display "БОЛЕЗНЬ: " addsw)

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

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

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