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

)

 )

)

)


 

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

38532. Оснащение новым оборудованием (Повышение эффективности) автотранспортного предприятия ИП» Руднева 1.3 MB
  4 Глава 1 Теоретические основы организации коммерческой деятельности автотранспортного предприятия ИПРуднева .9 Государственное регулирование коммерческой деятельности предприятия.1 Общая характеристика авторемонтного предприятия ИПРуднева22 2.9 Перспективы развития предприятия .
38533. Влияние разных систем обработки почвы на фитосанитарное состояние звена севооборота «ячмень - овёс» на фоне сидерального пара 251.36 KB
  3 Влияние механической обработки почвы на формирование сорного компонента 13 1.5 Влияние разных систем обработки почвы на засоренность звена севооборота 2.6 Урожайность культур звена севооборота при разных системах обработки почвы 2. Сорные растения в значительной степени влияют на баланс элементов питания физические и биологические свойства почвы водновоздушный тепловой и световой режимы агрофитоценоза то есть на плодородие почвы Экономические пороги 1991; Штермис М.
38534. Создание локальной сети и разработка системы управления удаленными офисами предприятия 238.5 KB
  Создание локальной сети и разработка системы управления удаленными офисами предприятия. Тема проекта Создание локальной сети и разработка системы управления удаленными офисами предприятия Тема утверждена приказом ПРЦ ВШ ф РГУИТП № 21Д от 15. Цель дипломного проекта создание локальной сети и разработка системы управления удаленными офисами предприятия. Более 90 из них объединены в различные информационновычислительные сети начиная от малых локальных сетей в офисах заканчивая глобальной информационной сетью Internet.
38536. Назначение и характеристика парка обслуживания пассажирских вагонов в прямых поездах и поездах своего формирования 1019.5 KB
  Назначение и характеристика парка обслуживания пассажирских вагонов в прямых поездах и поездах своего формирования 3. Технология обслуживания ходовой части вагонов 4. Время ремонта вагонов на ПТО 5. Перечень инструментов приспособлений и оборудования применяемого при обслуживании вагонов 6.
38537. Электрофизические свойства ультра-тонких плёнок кремния на изоляторе, сформированных методом ионной имплантации и водородного переноса 787.5 KB
  «Кремний на изоляторе» (КНИ) — технология изготовления полупроводниковых приборов, основанная на использовании трёхслойной подложки со структурой кремний-диэлектрик-кремний вместо обычно применяемых монокристаллических кремниевых пластин. В качестве диэлектрика обычно выступает диоксид кремния SiO2
38539. Социальная защита детей-сирот и детей, оставшихся без попечения родителей: история вопроса и современное состояние 91.5 KB
  Исторические предпосылки возникновения социальной защиты детей сирот и детей оставшихся без попечения родителей 1. Зачатки социальной защиты детей сирот и детей оставшихся без попечения родителей Во все времена были дети которым выпадала горькая участь расти без родителей. Первые учреждения для детей оставшихся без родителей были приютами для младенцев.
38540. Разработка компактного, надежного современного датчика алкогольных паров 1.06 MB
  Ширина печатного проводника рассчитывается по формуле:1 1 где I протекающий по проводнику ток А; J плотность тока А мм h толщина фольги мм; Для односторонней печатной платы изготовленной химическим способом методом сеткографии для бытовой аппаратуры плотность тока J= 30 ммпо справочнику. Сопротивление...