База данных Аудитории на языке ЛИСП1

(if (eql temp nil) (spaces 8)

(progn(prin1 temp)

(spaces (eval(- 8 (print-length temp)))))

)

(write-string "||

||-----------------------------------------------------------------||")

(print_table1 (cdr dat))

)

;------------------------------------------------------------------------------

; Вывести список аудиторий со свойствами

;------------------------------------------------------------------------------

(defun show_data(lst)

(clear-screen)

((eql lst nil) (write-string "nil") )

(write-string " Аудитория № ")

(write-string (car lst))

(write-string "

Свойства")

(proper (car lst))

(clear-input)

(read-line)

(show_data (cdr lst))

)

;------------------------------------------------------------------------------

; Вывести свойства

;------------------------------------------------------------------------------

(defun proper(sym)

(terpri)

(write-string " кафедра------")

(write-string (get sym 'kaf))

(write-string "

Наличие специального оборудования")

(terpri)

(show_equip equipment sym)

(write-string " Вместимость --- ")

(print (get sym 'vmest ))

(write-string " Корпус -------- ")

(print (get sym 'korp ))

(write-string " Этаж ---------- ")

(print (get sym 'et ))

)

;------------------------------------------------------------------------------

; Вывести данные об оборудовании

;------------------------------------------------------------------------------

(defun show_equip(lst sym)

((eql lst ()) T)

(spaces 10)

(write-string (car lst))

(spaces (eval(- 40 (length (car lst)))))

(print (get sym (car lst)))

(show_equip (cdr lst) sym)

)

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

(menu)