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

охт Д. Проектування і програмна реалізація експертних систем на персональних ЕОМ: Пер. з англ. - М.: Фінанси і статистика, 1990. - 320 с. p> 3. Хювенен Е., Сеппянен Й. Світ Ліспу. У 2-х т. Пер. з фінськ. - М.: Мир, 1990. br/>





В В В В В В В В В В В В В В В В В В В В В В В В В В В 

Додаток А

Повний текст програми мовою micro-LISP (файл "FUN.LSP):

(define mainw (make-window "ДОКТОР" #! true))

(define mmenuw (make-window "МЕНЮ" #! true))

(define menufw (make-window "__ФАЙЛИ" #! true))

(define menudbw (make-window "БазаДанних" #! true))

(define menucw (make-window "_____________________________ДИАГНОСТИКА" #! True))

(define vieww (make-window "____________ПРОСМОТР" #! true))

(define addiw (make-window "____________ДОБАВЛЕНІЕ ХВОРОБИ" #! true))

(define addsw (make-window "__________ДОБАВЛЕНІЕ СИМПТОМІВ" #! true))

(define rediw (make-window "________РЕДАКТІРОВАНІЕ ХВОРОБИ" #! true))

(define redsw (make-window "_______РЕДАКТІРОВАНІЕ симптомами" #! true))

(define deliw (make-window "______________УДАЛЕНІЕ ХВОРОБИ" #! true))

(define delsw (make-window "_____________УДАЛЕНІЕ симптомами" #! true))

(define submenuw (make-window "___Работа з:" #! true))

(define menulw (make-window "Введіть Ім` я файла: "#! true))

(define f)

(define * Symptom *)

(define * It_is *)

(define * Yes * '())

(define * No * '())

(define (Start)

(Window-set-position! mainw 1 січня)

(Window-set-size! mainw 23 78)

(Window-clear mainw)

(Mainmenu))

; Головне меню

(define (Mainmenu)

(Define ch)

(Window-Set-Position! mmenuw 15 березня)

(Window-Set-Size! mmenuw 1 47)

(Window-Clear mmenuw)

(Display "1.Files 2.DataBase 3.Diagnosticka 4.Quit" mmenuw)

(Do ((i 0 (+ i 0)))

((> I 5) i)

(Window-Set-Cursor! mainw 22 30)

(Display "Ваш вибір:" mainw)

(Set! ch (read-char mainw))

(Window-Set-Cursor! mainw 22 30)

(Display "" mainw)

(Cond

((Eq? Ch # 1) (menufiles))

((Eq? Ch # 2) (menudb))

((Eq? Ch # 3) (menucons))

((Eq? Ch # 4) (exit))

))) br/>

; Меню фото

(define (Menufiles)

(Define ch)

(Window-Set-Position! menufw 16 травня)

(Window-Set-Size! menufw 8 квітня)

(Window-Clear menufw)

(Window-Set-Cursor! menufw 1 січня)

(Display "1.LOAD" menufw)

(Window-Set-Cursor! menufw 2 січня)

(Display "2.SAVE" menufw)

(Do ((i 0 (+ i 0)))

((> I 5) i)

(Window-Set-Cursor! mainw 22 30)

(Display "ВАШ ВИБІР:" mainw)

(Set! ch (read-char mainw))

(Window-Set-Cursor! mainw 22 30)