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


 

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

49029. Выбор профессии финансового аналитика 1.52 MB
  Нейросети в банковском деле Нейросети в маркетинге В данной работе я попытаюсь показать возможно ли применение нейросети при выборе профессии и насколько это будет эффективно. Ими были получены следующие результаты: разработана модель нейрона как простейшего процессорного элемента выполняющего вычисление переходной функции от скалярного произведения вектора входных сигналов и вектора весовых коэффициентов; предложена конструкция сети таких элементов для выполнения логических...
49030. Создание и обработка баз данных в Excel и Access 943 KB
  Для представления данных в удобном виде используют таблицы. Особенность электронных таблиц заключается в возможности применения формул для описания связи между значениями различных ячеек, расчет по ним выполняется автоматически. Изменение значения в одной ячейки приводит к пересчету во всех остальных, которые связаны с нею формульными отношениями, а тем самым к обновлению всей таблицы.
49031. Цифровая система передачи непрерывных сообщений 539.5 KB
  Кодирование отсчетов сигнала bti: kразрядный равномерный двоичный код с добавлением одного бита проверки на четность. Канал связи с постоянными параметрами и аддитивной помехой имеет полосу пропускания ΔFk значительно большую чем ширина спектра модулированного сигнала ΔFU. Смесь сигнала и шума на выходе канала zt=stnt где st= ut∙Kпк сигнал на выходе канала nt аддитивный гауссовский шум с равномерным энергетическим спектром белый...
49032. Разработка технологического процесса изготовления детали по чертежу 1.51 MB
  Технология изготовления заготовки Возможные способы изготовления заготовки. Технологический процесс изготовления заготовки. Технология изготовления детали Технологический процесс стр...
49034. Разработка технологии изготовления заготовки и детали с выбором оборудования и инструмента 271.5 KB
  Задание по курсовой работе Целью и заданием данной курсовой работы является разработка технологии изготовления заготовки и детали. Технологический процесс изготовления заготовки Данную заготовку получаем в литейной форме продольный разрез которой показан на рисунке.
49035. Технологический процесс изготовления заготовки опоры 735.17 KB
  При литье в кокиль отливки получают путем заливки расплавленного металла в металлические формы – кокили. Полости в отливках оформляют песчаными, оболочковыми или металлическими стержнями. Кокили с песчаными или оболочковыми стержнями используют для получения отливок сложной конфигурации.
49036. СИСТЕМА АВТОМАТИЧЕСКОГО РЕГУЛИРОВАНИЯ ЧАСТОТЫ ВРАЩЕНИЯ ДВИГАТЕЛЯ ПОСТОЯННОГО ТОКА 2 MB
  Анализ действующих на систему возмущающих воздействия и их влияние на статические характеристики САР Принцип работы системы Классификация САР Позвенное аналитическое описание процессов в САУ. Получим дифференциальные уравнения и передаточные функции звеньев САУ Разработка структурной схемы САР Уравнения динамики замкнутой САР Анализ на структурную устойчивость САР Расчёт требуемого коэффициента усиления в разомкнутом состоянии...
49037. Экономическая теория. Особенности экономических процессов 957.34 KB
  Экономика – одна из древнейших наук, которая всегда привлекала внимание ученых и образованных людей. Объясняется это тем, что изучение экономической теории – это реализация объективной необходимости познания мотивов, действий людей в хозяйственной деятельности, законов хозяйствования во все времена.