20982

Последовательные, циклические и итерационные вычисления.

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

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

DEFUN F16_2 X COND = X 0 1 T X F16_2 X 1 DEFUN F16_3 X K COND = K 0 1 T X F16_2 X K 1 DEFUN F16_1 X K F16_3 X K F16_2 K DEFUN F16 X EPS SETQ X1 F16_1 X 1 SETQ P X1 SETQ K 1 LOOP SETQ K K 1 SETQ X2 F16_1 X K ABS X2 X1 EPS P SETQ P P X2 SETQ X1 X2 Найти последний элемент линейного списка. DEFUN F17 L COND NULL L NIL T LOOP NULL CDR L CAR L SETQ L CDR L Реализовать с помощью LOOP задание № 12. DEFUN F18 L P...

Русский

2013-08-02

20.74 KB

1 чел.

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

Последовательные, циклические

и итерационные вычисления.

  1.  Посчитать  с  заданной  точностью сумму бесконечного ряда, каждый член которого задается формулой:  , где k изменяется от 1 до бесконечности, а значение Х задано.

(DEFUN F16_2 (X)

(COND ((= X 0) 1)

(T (* X (F16_2 (- X 1))))

)

)

(DEFUN F16_3 (X K)
 (COND ((= K 0) 1)

(T (* X (F16_2 X (- K 1))))

)

)

(DEFUN F16_1 (X K) (/ (F16_3 X K) (F16_2 K)))

(DEFUN F16 (X EPS)

(SETQ X1 (F16_1 X 1))

(SETQ P X1)

(SETQ K 1)

(LOOP

(SETQ K (+ K 1))

(SETQ X2 (F16_1 X K))

((< (ABS (- X2 X1)) EPS) P)

(SETQ P (+ P X2))

(SETQ X1 X2)

)

)

  1.  Найти последний элемент линейного списка.

(DEFUN F17 (L)

(COND ((NULL L) NIL)

(T  (LOOP

((NULL (CDR L)) (CAR L))

(SETQ L (CDR L))

)

)

)

)

  1.  Реализовать с помощью LOOP задание № 12. Реверсировать элементы списка произвольной структуры на всех уровнях.

(DEFUN F18 (L P)

(SETQ P '())

(COND ((NULL L) P)

(T (LOOP

((NULL (CAR L)) P)

(COND ((ATOM (CAR L)) (SETQ P (CONS (CAR L) P)))

(T (SETQ P (CONS (F18 (CAR L) '()) P)))

)

(SETQ L (CDR L))

)

)

)

)

  1.  Удалить  из  числового  линейного списка все элементы,  не входящие в заданный интервал значений.

(DEFUN F19_1 (L A B P)

(LOOP

((NULL (CAR L)) (REVERSE P))

(IF (LISTP (CAR L))

(IF (NOT (NULL (F19_1 (CAR L) A B ‘())))

(SETQ P (CONS (F19_1 (CAR L) A B ‘()) P))

)

(IF (AND (NUMBERP (CAR L)) (>= (CAR L) A) (<= (CAR L) B))

(SETQ P (CONS (CAR L) P))

)

 )

(SETQ L (CDR L))

)

)

(DEFUN F19 (L A B)

(COND ((NOT (LISTP L)) ERROR!_WRONG_LIST_ARGUMENT!)

((NULL L) LIST_IS_EMPTY!)

((OR (NOT (NUMBERP A)) (NOT (NUMBERP B)) (> A B)) ERROR!_WRONG_INTERVAL!)

(T (F19_1 L A B ‘()))

)

)

  1.  Задан список символьных атомов.  Заменить во  всех  атомах заданный символ на другой заданный символ, но не более чем заданное число раз вхождений в каждом атоме.

(DEFUN F20_1 (L A B C)

(SETQ D '())

(LOOP

((NULL L) D)

(COND ((EQ (CAR L) A)

(COND ((= C 0) (SETQ D (APPEND D (LIST (CAR L)))))

(T (SETQ C (- C 1)) (SETQ D (APPEND D (LIST B)))))

)

(T (SETQ D (APPEND D (LIST (CAR L)))))

)

(SETQ L (CDR L))

)

)

(DEFUN F20 (L A B C)

(COND ((NOT (LISTP L)) Error!_Not_list!)

((NOT (NUMBERP C)) Error!_Not_number!)

(T

(SETQ P '())

(LOOP

((NULL L) P)

(SETQ P (APPEND P (LIST (PACK (F20_1 (UNPACK (CAR L)) A B C)))))

(SETQ L (CDR L))

)

 )

)

)


 

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

43563. РАЗРАБОТКА СБЫТОВОЙ СЕТИ ПРОИЗВОДСТВЕННОГО ТОРГОВОГО ПРЕДПРИЯТИЯ 229.23 KB
  Маркетинговое исследование потребителей продукции Рекомендации по организации сбытовой сети товаров народного потребления ЗАКЛЮЧЕНИЕ БИБЛИОГРАФИЯ ПРИЛОЖЕНИЕ Введение Отрасль производства товаров народного потребления является самой огромной по количеству представителей и по объему выпускаемых единиц товара. Целью исследования в данной дипломной работе является разработка рекомендаций по организации сбытовой сети...
43564. Экологическая безопасность при обработке конструкций кондиционеров завода «Кондиционер» 1.2 MB
  Цель и задача работы: проанализировать цех покраски деталей и технологию нанесения гальванических покрытий с точки зрения обеспечения экологической безопасности производства. В задачи проектного исследования входило совершенствование системы обезвреживания и очистки промывных вод гальванического производства и вод завесы окрасочной камеры.
43565. Анализ последствий управленческих решений на примере санатория «Черноморье» 3.64 MB
  Процесс принятия решения и его структура. Управленческие решения и их виды. Модель принятия управленческого решения менеджера. Исследование основных характеристик влияющих на процесс принятия управленческого решения.
43566. Разработка предложений по совершенствованию рынка труда в России в условиях кризиса 93.85 KB
  Актуальность темы курсовой работы усиливается и тем обстоятельством, что субъекты российского рынка труда еще только накапливают опыт функционирования в новых экономических условиях. Функционирование рынка труда сопряжено со множеством сложностей, столкновений интересов различных социальных групп.
43567. Внешнее измерение социальной политики Европейского Союза и проблема расширения 484.28 KB
  Этапы формирования социальной политики Европейского Союза 12 1. Этапы развития социальной политики Европейского Союза 17 1. Политика в области занятости образования и в социальной сфере 22 1. Особенности функционирования механизма социальной политики Европейского Союза на современном этапе.
43568. Проблемы правового регулирования и перспективы развития законодательства о наследовании 323 KB
  Независимо от социального развития общества, экономической или политической ситуации наследственные отношения были, есть, и будут актуальны, так как в любом государстве неизбежны две вещи: смерть и налоги. В связи с вступлением в силу третьей части Гражданского Кодекса Российской Федерации, вопросы наследования стали особо интересны.
43569. Прекращение трудового договора по инициативе работодателя по основаниям, не связанным с виной работника, анализ судебной практики и выработка на этой основе предложений по совершенствованию норм права 107.13 KB
  Принципы прекращения трудовых отношений по инициативе работодателя по основаниям не связанным с виной работника. Основания расторжения трудового договора по инициативе работодателя не связанные с виной работника. Расторжение трудового договора в связи с несоответствием работника занимаемой должности вследствие недостаточной квалификации подтвержденной результатами аттестации....
43570. Общественные отношения, возникающие в процессе исполнения (отбывания) наказания в виде пожизненного лишения свободы и применения к осужденным основных средств исправления 145.86 KB
  Введение пожизненного лишения свободы Указом Президента Российской Федерации от 17 декабря 1992 г. Российская Федерация была одним из первых государств на территории бывшего Советского Союза которая в своём Уголовном кодексе предусмотрела такое наказание как пожизненное лишение свободы.3 многие вопросы связанные с исполнением пожизненного лишения свободы нашли законодательное урегулирование хотя как показала практика отдельные аспекты организации его исполнения попрежнему вызывают споры и сомнения. 57 УК РФ пожизненное лишение свободы...