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

)

 )

)

)


 

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

30953. Основи економічної теорії 1.96 MB
  Це сфера суспільного виробництва або сфера економіки. Розв'язання цієї суперечності й зумовило інтерес людства до з'ясування закономірностей які регулюють сферу використання обмежених ресурсів тобто сферу суспільного виробництва. На противагу меркантилістам фізіократи вважали що багатство створюється не за рахунок обміну чи торгівлі а в результаті праці у сфері виробництва.
30954. ЭТОЛОГИЯ – НАУКА О ПОВЕДЕНИИ ЖИВОТНЫХ 87 KB
  Этология наука о поведении животных Таксисы Инстинкт Рефлекс Обучение Запечатление Условный рефлекс Инструментальный условный рефлекс Метод проб и ошибок Подражание Инсайт Мышление 2. Типы высшей нервной деятельности и поведение животных 4. Список литературы ЭТОЛОГИЯ НАУКА О ПОВЕДЕНИИ ЖИВОТНЫХ Термин этология происходит и греческого слова этос и означает поведение характер. Этология как наука о биологических закономерностях поведения значительное развитие...
30955. Социально инвестиционная программа «Пуховый мир» 848.5 KB
  Бизнес план социально инвестиционной программы Пуховый мир Муниципальное образование Верхнесалдинский район Возрождение старинного рукодельного ремесла в Свердловской области Проект Пуховый мир Социально инвестиционная программа Создания Уральского пухово шерстяного народно художественного промысла Автор и исполнитель: Мустакимов Вячеслав Алексеевич Общая стоимость проекта: 563007 USD Требуются инвестиции: 200000 USD Срок реализации: 5 лет Россия...
30956. Философия. Внутренний мир человека 48.14 KB
  Место философии во внутреннем мире человека. Происхождение философии. Для раскрытия специфики философии важно обратиться к истокам философского мышления а также к мифологическому и религиозному миропониманию как предпосылке. Таким образом можно с полной уверенностью сказать что истоками философии являются мифология и религия.
30957. Финансы и финансовые ресурсы 816.15 KB
  Первые два признака денежный характер и распределительный характер лишь ограничивают круг финансовых отношений а свойственная финансам фондовая форма существования обязательный безэквивалентный характер движения стоимости в одностороннем порядке подчеркивают специфические особенности финансов как особой экономической категории. отмечает что финансам присущи денежная форма стоимости; распределительный характер; формирование денежных доходов и накоплений принимающих форму финансовых ресурсов. Таким образом выясняя сущность и специфику...
30958. Охрана труда и техника безопасности при осмотре животных 46.5 KB
  При диагностических и лечебнопрофилактических мероприятиях взятии крови внутривенных вливаниях вакцинациях и других манипуляциях животное фиксируют в стоячем положении удерживая его за голову руками с помощью веревки или инструментов. Голову фиксируют руками за рога или одной рукой за рог другой за носовую перегородку. В таких случаях голову животного фиксируют веревкой которую закрепляют на рогах у комолых вокруг шеи. Быков фиксируют за носовое кольцо рукой или специальным водилом.
30959. Гражданское право. Шпора 154.13 KB
  Предмет гражданского права. Деление права на отдельные отрасли осуществляется с помощью двух критериев: предмета и метода правового регулирования. Имущественные отношения составляют ядро предмета гражданского права. Это отношения складывающиеся по поводу имущества при этом имуществу дается широкая трактовка: к нему относятся не только вещи но и права требования.
30960. ГЕРМАНСКИЙ ФАШИЗМ 2.25 MB
  События периода фашистского господства в Германии как и опыт прошедших с того времени лет позволили накопить большой материал для обоснованного и полного ответа на вопрос о действительной роли фашизма в системе политических социальных и экономических отношений современного капиталистического общества и соответственно о классовом содержании политики НСДАП. Главные источники финансирования фашистской партии Политические противники националсоциалистов в том числе и из буржуазного лагеря с самого начала отмечали что НСДАП справлялась с...
30961. Генетическая изменчивость 27.7 KB
  Мутации это внезапные скачкообразные стойкие изменения в структуре генотипа. На основных ее положениях строица современная генетика: мутации дискретные изменения наследственности в природе спонтанны мутации передаются по наследству встречаются достаточно редко и могут быть различных типов. Различают спонтанные и индуцированные мутации Спонтанные...