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

)

 )

)

)


 

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

66044. Организации системы ООН, Экономическая и социальная комиссия ООН, Южный общий рынок (МЕРКОСУР), Центральноамериканский банк экономической интеграции, Центральноамериканский общий рынок 102 KB
  В июле 2011 года число стран входящих в ООН достигло 193. В 1965 году Индонезия временно вышла из состава ООН в связи со спором с соседней Малайзией однако в следующем году восстановила свое членство. Вступая в ООН страна принимает цели и правила изложенные в Уставе.
66045. Парижский и Лондонский клубы кредиторов 38 KB
  Наличие непосредственной угрозы прекращения платежей по погашению задолженности. Чтобы условия погашения кредита могли быть пересмотрены, должнику следует доказать, что без этого он не в состоянии выполнить свои обязательства по выплате внешнего долга.
66046. Формирование пенсий. Проблемы пенсионной реформы 30.18 KB
  До 2002 года выплаты пенсий происходили по четко отлаженной схеме: те кто на пенсии получали деньги за счет налогов которые платились предприятиями за работающих граждан. Трудовые пенсии делятся на три типа: трудовая пенсия по старости трудовая пенсия по инвалидности трудовая...
66048. Приоритеты программы антикризисных мер 579.77 KB
  Глобальный экономический кризис приводит во всех странах мира к падению производства росту безработицы снижению доходов населения. Практически во всех странах будут значительно снижаться доходы населения.
66049. Оффшорные зоны 38.44 KB
  Слово офшор впервые было применено в конце 50х годов прошлого века одной из газет США для обозначения конкретной финансовой компании переместившей свою деятельность на территорию с более благоприятной чем в США налоговой системой. Сегодня понятие офшор используется для обозначения офшорного бизнеса...
66050. Целевые бюджетные фонды 13.91 KB
  Понятие целевые бюджетные фонды появилось в 1995 г. когда подобный статус был закреплен за некоторыми ранее внебюджетными фондами создаваемыми в качестве целевого источника финансирования отдельных государственных расходов и отдельными...