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


 

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

76495. Осуществление и защита родительских прав 14.01 KB
  Способы воспитания детей должны исключать пренебрежительное жестокое грубое унижающее человеческое достоинство обращение оскорбление или эксплуатацию детей. Родители осуществляющие родительские права в ущерб правам и интересам детей несут ответственность в установленном законом порядке. Все вопросы касающиеся воспитания и образования детей решаются родителями по их взаимному согласию исходя из интересов детей и с учетом мнения детей.
76496. Осуществление прав отдельно проживающим родителем 16.2 KB
  66 СК родитель проживающий отдельно от ребенка имеет право на общение с ребенком участие в его воспитании и решение вопросов получения ребенком образования что согласуется с установленным в Кодексе принципом равных родительских прав и обязанностей п. В результате ущемляются законные права и интересы как одного из родителей так и ребенка. 66 СК установлено что родитель с которым проживает ребенок не должен препятствовать общению ребенка с другим родителем если такое общение не причиняет вред физическому и психическому здоровью...
76497. Меры государственной помощи семьям, имеющим детей 17.04 KB
  Основные виды государственных пособий гражданам имеющим детей в связи с их рождением и воспитанием перечислены в Федеральном законе от 19. При этом более подробные нормы об условиях назначения детских пособий и порядке их выплаты содержатся в Приказе Минздравсоцразвития России от 23 декабря 2009 г. N 1012н Об утверждении Порядка и условий назначения и выплаты государственных пособий гражданам имеющим детей. В указанных правовых актах перечислены следующие виды пособий: 1 пособие по беременности и родам; 2 единовременное пособие...
76498. Защита прав несовершеннолетних детей 19.12 KB
  56 Семейного Кодекса РФ говорит о том что ребенок имеет право на защиту своих прав и право на защиту от злоупотреблений со стороны родителей. Защита прав и законных интересов осуществляется родителями а в случаях предусмотренных Семейным кодексом в частности когда органом опеки и попечительства установлено что между интересами родителей и детей имеются противоречия родители лишены родительских прав граждане чья дееспособность ограничена вследствие злоупотребления алкоголем органом Опеки и попечительства прокурором судом. При...
76499. Лишение родительских прав: основания, порядок 16.41 KB
  Уклонение родителей от выполнения своих обязанностей по воспитанию детей может выражаться в отсутствии заботы об их нравственном и физическом развитии обучении подготовке к общественно полезному труду; отказываются без уважительных причин взять своего ребенка из родильного дома отделения либо из иного лечебного учреждения воспитательного учреждения учреждения социальной защиты населения или из других аналогичных учреждений; злоупотребляют своими родительскими правами т. использование этих прав в ущерб интересам детей например...
76500. Правовые последствия лишения родительских прав 16.64 KB
  71 СК следует что родители лишенные родительских прав утрачивают вопервых все права основанные на факте родства с ребенком в отношении которого они лишены родительских прав причем речь идет не только о тех правах которые они имели до достижения детьми совершеннолетия но и других вытекающих как из семейных так и иных правоотношений. Вовторых родители лишенные родительских прав утрачивают право на льготы и государственные пособия установленные для граждан имеющих детей. Так лишение родительских прав влечет утрату для...
76501. Восстановление в родительских правах 18.79 KB
  Что касается правовой стороны восстановления в родительских правах то оно допустимо лишь в отношении несовершеннолетних так как напрямую связано с воспитанием ребенка. 72 СК восстановление в родительских правах уже невозможно. Восстановление в родительских правах допускается если родители один из них изменили: свое поведение; образ жизни; отношение к воспитанию ребенка.
76502. Ограничение родительских прав 17.55 KB
  При лишении родительских прав родители ребёнка утрачивают право на личное воспитание в том числе на общение; на получение мер социальной поддержки: пособий компенсаций льгот. При ограничении родительских прав отец и мать утрачивают права на личное воспитание и получение льгот но сохраняют право на общение с ребенком если такое общение не оказывает на ребенка негативного вредного влияния. В каких случаях суд можно ограничить мать и отца в родительских правах Если ребенок находится в опасной обстановке которая возникла не по вине...
76503. Алиментные правоотношения супругов и бывших супругов 18.09 KB
  Супруги вправе заключить соглашение об уплате алиментов. проживающие как супруги без официальной регистрации брака в органах загса могут заключить соглашение о предоставлении содержания на которые нормы СК РФ регулирующие соглашения об уплате алиментов будут распространяться в порядке аналогии закона. В случае отказа от материальной поддержки и отсутствия соглашения между супругами об уплате алиментов право требовать предоставления алиментов в судебном порядке от другого супруга обладающего необходимыми для этого средствами имеют: а...