20976

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

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

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

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

Русский

2013-08-15

22.85 KB

4 чел.

Лабораторная работа № 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))


 

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

34917. Предприятия, домашние хозяйства и государство - субъекты экономического кругооборота 36.5 KB
  Предприятия производят товары покупают сохраняют и продают продукты домашним хозяйствам или бюджетным организациям повышают производительность производства используя новые капиталовложения. Государственные учреждения и домашние хозяйства потребляют используя свои доходы или экономя их получают либо предоставляют кредиты. С другой стороны каждый из нас как участник домашнего хозяйства потребляет товары и услуги.
34918. Цикличность экономического развития. Экономический цикл и его фазы 30.5 KB
  Фазы экономического цикла Цикличность экономического развития. В основе цикла лежит динамика спроса которая в свою очередь определяется доходами домашних хозяйств и фирм Выделяют три типа экономических циклов в зависимости от причин и сроков длительности. Выделяют четыре фазы цикла: пик высшая точка экономической активности спад рецессия низшая точка активности подъем экспансия. Фазы экономического цикла изображены на рис.
34919. Антиинфляционная политика государства и социально-экономические последствия инфляции 29 KB
  Социальноэкономические последствия инфляции проявляются в следующем: 1. Если номинальный доход остается стабильным или растет медленнее темпов инфляции то реальный доход падает. Именно поэтому в период инфляции в наибольшей степени страдают люди с фиксированными доходами.
34920. Безработица. Виды безработицы. Естественный уровень безработицы 28.5 KB
  Виды безработицы. Естественный уровень безработицы Безработица ее виды и причины Безработица неотъемлемое свойство рыночной системы хозяйствования. На основании данных о занятости и безработице определяется уровень безработицы. Уровень безработицы – удельный вес численности безработных в численности экономически активного населения .
34921. Бюджетные линии и кривые безразличия 56.5 KB
  Осуществление потребительского выбора характеризуется при помощи набора безразличия набора вариантов потребительского выбора каждый из которых обладает одинаковой полезностью. Графическим отображением набора безразличия является кривая безразличия. Набор кривых безразличия для одного потребителя и для одной пары благ составляет карту кривых безразличия.
34922. Бюджетный дефицит 27 KB
  Наличие дефицита может быть следствием: кризисных явлений в экономике; неспособности правительства держать под контролем финансовую ситуацию в стране; чрезвычайных обстоятельств войны крупных стихийных бедствий; милитаризации экономики в мирное время; осуществления крупных централизованных вложений в развитие производства и осуществление структурной перестройки; увеличения темпов роста социальных расходов по сравнению с темпами роста валового внутреннего продукта и т. Несбалансированность имеет краткосрочный характер если несоответствие...
34923. ВВП и другие показатели дохода 32 KB
  ВВП и другие показатели дохода Основным макроэкономическим показателем рыночной экономики безусловно является ВВП. Следует заметить что в ВВП не включается стоимость промежуточных товаров и услуг которые необходимы для осуществления самого процесса производства поскольку они уже входят в стоимость товарной продукции. ВВП – это внутренний продукт поскольку в его создании участвуют только резиденты данной страны т. Соответственно в первом случае мы имеем ВВП и ВНД а вычитая из них потребление основного капитала мы получаем чистый...
34924. Виды и причины возникновения инфляции. Кривая Филипса 34 KB
  Виды инфляции: Инфляция спроса порождается избытком совокупного спроса по сравнению с реальным объемом производства. Дефицит товара Инфляция предложения издержек рост цен вызван увеличением издержек производства в условиях недоиспользованных производственных ресурсов. Сбалансированная инфляция цены различных товаров остаются неизменными друг относительно друга. Несбалансированная инфляция цены различных товаров изменяются по отношению друг к другу в различных пропорциях.