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))


 

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

66268. ПЕРВОЕ СЕНТЯБРЯ 109.5 KB
  Маленький волшебник выглядывая из окошка зовет: Эй Мудрая Сова доброе утро Мудрая Сова появляется на дереве: Доброе утро. Маленький волшебник Маленький волшебник выходит из дома натягиваясь: Надо немного поразмяться.
66269. З історії створення шкільного етнографічного музею «Світлиця» 14.29 MB
  Себе шукаємо в історії щоб зрозуміти знати і знайти Девіз шкільного етнографічного клубу Витоки З історії створення шкільного етнографічного музею Світлиця Сьогоднішнє і давнє без вузла І час наспів цей вузол завязати Аби полуда з пращура сповзла І вийшов родовід з курної хати.
66270. Україна - наш спільний дім 49.5 KB
  Ознайомити учнів із основними державотворчими подіями становлення незалежної України основними засадами демократичного та суспільного ладу її досягнень за останні роки; закріпити знання про державну символіку Герб Прапор Гімн Основний Закон України Конституцію про такі поняття...
66271. УКРАЇНА У НАС ОДНА 40 KB
  Знаю, що на урочистих лінійках з нагоди свята Першого дзвоника інколи потрібні невеличкі сценки, щоб зацікавити дітей та їхніх батьків, щоб прикрасити й урізноманітнити свято. Так, як цей рік ювілейний для нашої держави, пропоную сценку...
66272. «І МЕНЕ В СІМ’Ї ВЕЛИКІЙ, В СІМ’Ї ВОЛЬНІЙ НОВІЙ, НЕ ЗАБУДЬТЕ ПОМ’ЯНУТИ НЕЗЛИМ ТИХИМ СЛОВОМ…» 29 KB
  Хлопчик: Матусю а правда що небо на залізних стовпах тримається Мати: Таксиночку правда. Хлопчик: А чому так багато зірок на небі Мати: Цеколи людина на світ приходитьБог свічку запалює і горить та свічкапоки людина не помре.
66276. Хімічний та елементний склад живих організмів. Вода і мінеральні солі 63.5 KB
  Мета: ознайомити студентів з хімічним складом живих організмів, з біологічними елементами; розглянути їх біологічну роль в організмі. Розширити знання про біологічне значення в організмі неорганічних сполук води і мінеральних солей.