20976

Создание фреймов и извлечение информации из них

Лабораторная работа

Информатика, кибернетика и программирование

Создать фреймы, описывающие фрагмент библиотечной системы, содержащие как декларативную, так и процедуральную (в том числе использующую переменные ФРЛ-среды) составляющие.

Русский

2013-08-15

22.85 KB

5 чел.

Лабораторная работа № 7.

Создание фреймов

и извлечение информации из них.

  1.  Создать фреймы,  описывающие фрагмент библиотечной системы, содержащие как декларативную,  так и процедуральную (в том числе использующую переменные ФРЛ-среды) составляющие.

(setq TodayYear 2010)

(deframeq Book1

(Nazvanie  ($value (HTML_4_0)))

(Author  ($value (Matrosov_A)))

(Year   ($value (2003)))

(PageNum  ($value (672)))

(Popularity  ($value (2000)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(deframeq Book2

(Nazvanie  ($value (Programmirovanie_na_LISP)))

(Author  ($value (Chernov_P)(Bajdun_V)(Bunin_A)))

(Year   ($value (1993)))

(PageNum  ($value (40)))

(Popularity  ($value (600)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(deframeq Book3

(Nazvanie  ($value (C++)))

(Author  ($value (Stroustrup_B)))

(Year   ($value (2008)))

(PageNum  ($value (1104)))

(Popularity  ($value (2500)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(deframeq Book4

(Nazvanie  ($value (PHP_5/6)))

(Author  ($value (Kuznecov_M)))

(Year   ($value (2010)))

(PageNum  ($value (1024)))

(Popularity  ($value (1800)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(deframeq Book5

(Nazvanie  ($value (JavaScript)))

(Author  ($value (Flanagan_D)))

(Year   ($value (2009)))

(PageNum  ($value (992)))

(Popularity  ($value (1900)))

(Quantity  ($value (GetQuantity (PARM: TodayYear) (STATUS: EVAL))))

)

(passertq GetQuantity (Y)

(

(setq P (- (car (fget :FRAME Popularity)) (* 200 (- Y (car (fget :FRAME Year))))))

(cond

 ((> P 0) P)

 (T 0)

)

))

пример

(fget book1 quantity)  => 600

  1.  Добавить во фреймы, определенные в предыдущем задании, дополнительную информацию всеми имеющимися способами.
  2.  Извлечь из определенных в предыдущих заданиях фреймов информацию по заданному множеству запросов.

пример

(fput book1 oldname $value HTML_4_1)

(fget book1 oldname)  => HTML_4_1

  1.  Реализовать  функцию последовательного просмотра на экране фреймов из заданного списка.  Предусмотреть  запрос  о  направлении дальнейшего просмотра списка фреймов.

(defun FrameOutput1 (FL Num Fl2 ch)

(loop

 (TERPRI 25)

 (print (list NAZVANIE: (car (fget (car fl) Nazvanie))))

 (print (list AVTOR: (fget (car fl) Author)))

 (print (list YEAR: (car (fget (car fl) Year))))

 (print (list PAGES: (car (fget (car fl) Pagenum))))

 (print (list TIRAZH: (car (fget (car fl) Popularity))))

 (print (list KOL-VO: (car (fget (car fl) Quantity))))

 (print "_________________________")

 (print "<<-- (1) -->> (2) X (3)")

 (setq S (read input))

 ((equal S '3) (TERPRI 25))

 (cond

  ((and  (equal S '1) (not (NULL Fl2)))

    

   (setq Num (Sub1 Num))

   (setq Fl (Cons (car FL2) FL))

   (setq FL2 (cdr FL2))

  )

  ((and  (equal S '2) (not (Null (cdr FL))))

   (setq Num (Add1 Num))

   (setq Fl2 (Cons (car FL) Fl2))

   (setq FL  (cdr FL))

  )

 )

)

)

(defun FrameOutput (Flist)

(cond

 ((Null Flist) Error!_Wrong_frame_argument!)

 (T (FrameOutput1 Flist 1))

)

)

(setq Lib '(Book1 book2 book3 book4))


 

А также другие работы, которые могут Вас заинтересовать

47127. Система работы с персоналом. Структура персонала 150.5 KB
  Профессиональная карьера — рост знаний, умений, навыков. Профессиональная карьера может идти по линии специализации (углубление в одной, выбранной в начале профессионального пути, линии движения) или транспрофессионализации (овладение другими областями человеческого опыта, связанное, скорее, с расширением инструментария и областей деятельности).
47128. Базы данных и СУБД 69.78 KB
  Базы данных и СУБД. Под базой данных понимается множество взаимосвязанных элементарных групп данных информации которые могут обрабатываться одной или несколькими прикладными системами. Трехуровневая архитектура базы данных. Внутренний уровень это уровень определяющий физический вид базы данных наиболее близкий к физическому хранению и связан со способами сохранения информации на физических устройствах хранения.
47129. Информация. Информационные сообщения 61.07 KB
  Информационным объемом сообщения называется количество битов в этом сообщении. В современной вычислительной технике принято объединять биты в восьмерки, называемые байтами: 1 байт = 8 бит. Наряду с битами и байтами используются и более крупные единицы измерения информационного объема сообщения
47130. Проектні пропозиції щодо покращення стану озеленення та благоустрою території парку «Юність» у Святошинському районі м. Києва 2.27 MB
  Парки, сквери є місцями активного й пасивного відпочинку населення. Особливо великою є роль парків культури і відпочинку. Окрім них у містах влаштовують сквери, бульвари, дитячі парки, міські сади, ботанічні сади, вуличні зелені насадження уздовж тротуарів, прибудинкові зелені насадження, палісадники, зелені насадження на промислових підприємствах, в лікарнях, школах і т. ін.
47133. Транснациональные корпорации 62.66 KB
  Так стороны Конвенции о транснациональных корпорациях признают под понятием транснациональная корпорация юридическое лицо совокупность юридических лиц: имеющее в собственности хозяйственном ведении или оперативном управлении обособленное имущество на территориях двух и более сторон; образованное юридическими лицами двух и более сторон; зарегистрированное в качестве корпорации в соответствии с Конвенцией.С развитием и совершенствованием правового регулирования деликтных отношений такое единообразие в подходе было дополнено...
47134. ФОРМЫ И ФУНКЦИИ ПОДРАЖАНИЯ В ДЕТСТВЕ (По Обуховой) 63.5 KB
  Ими было установлено что подражание или имитация такая форма поведения которая находится в непрерывном изменении и вносит важный вклад в формирование интеллекта личности ребенка помогает ему в освоении норм социальной жизни. Связь подражания ребенка определенного возраста со специфической социальной ситуацией его развития; установили функции отдельных видов подражания; выявили его родство с ориентировочноисследовательской деятельностью. Опираясь на идеи Эльконина и его концепцию периодизации психического развития и Гальперина и его...