20979

Рекурсивная обработка числовой информации

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

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

DEFUN F1_1 M N COND = M N M M T M M F1_1 M 1 N DEFUN F1 M N COND OR = TYPE M INT = TYPE N INT WRONG_ARGUMENT_TYPE = N M F1_1 M N T F1_1 N M Определить наибольший общий делитель двух заданных чисел. Используем формулу DEFUN F2 A B A B F3 A B Определить наименьшее общее кратное двух заданных чисел. DEFUN F3 A B COND = B 0 A = A 0 B = A B F3 A B B T F3 A B A Вычислить квадратный корень из заданного числа....

Русский

2013-08-02

18.16 KB

1 чел.

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

Рекурсивная обработка

числовой информации.

  1.  Подсчитать сумму квадратов целых чисел в интервале от M до N включительно.

(DEFUN F1_1 (M N)

(COND ((= M N) (* M M))

      (T (+ (* M M) (F1_1 (+ M 1) N)))

)

)

(DEFUN F1 (M N)

(COND ((OR (/= (TYPE M) INT) (/= (TYPE N) INT)) WRONG_ARGUMENT_TYPE!)

((>= N M) (F1_1 M N))

(T (F1_1 N M))

)

  1.  Определить наибольший общий делитель двух заданных чисел.

Используем формулу

(DEFUN F2 (A B)

(/ (* A B) (F3 A B))

)

  1.  Определить наименьшее общее кратное двух заданных чисел.

(DEFUN F3 (A B)

(COND ((= B 0) A)

      ((= A 0) B)

    ((>= A B) (F3 (- A B) B))

      (T (F3 A (- B A)))

)

)

  1.  Вычислить квадратный корень из заданного числа.

(DEFUN F4_1 (L R N T)

(

(SETQ T (* (/ (+ L R) 2) (/ (+ L R) 2)))

(COND ((< (ABS (- T N)) 0.00001) (/ (+ L R) 2))

       ((< T N) (F4_1 (/ (+ L R) 2) R N))

      (T (F4_1 L (/ (+ L R) 2) N))

)

))

(DEFUN F4 (N)

(COND ((< N 0) WRONG_NUMBER_ARGUMENT!)

         (T (F4_1 0 N N))

)

)

  1.  Первые два члена ряда Фибоначчи равны 1 и 2. Каждый следующий член ряда равен сумме двух предыдущих.  Определить функцию, вычисляющую N-ый член ряда Фибоначчи.

(DEFUN F5 (N)

(COND ((= N 1) 1)

             ((= N 2) 2)

              (T (+ (F5 (- N 2)) (F5 (- N 1)))

)

)


 

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

13675. Никакая нация не может достичь процветания, пока не осознает, что пахать поле – такое же достойное занятие, как писать поэму 13.67 KB
  Никакая нация не может достичь процветания пока не осознает что пахать поле такое же достойное занятие как писать поэму В. Букер Социология Я полностью разделяю мнение автора так как в нашем веке информационных технологий большое внимание уделяется умственному
13676. Общество – свод камней, который обрушился бы, если бы один не поддержал другого 14.8 KB
  Общество свод камней который обрушился бы если бы один не поддержал другого СенекаФраза Сенеки для меня является ключом к ответу на вопрос что же такое общество. Существует много определений понятия общества. Рассмотрим одно из них. Общество это динамическая сист...
13677. Примеры эссе по курсу обществознания. Общество – свод камней, который обрушился бы, если бы один не поддерживал другого 18.33 KB
  Общество свод камней который обрушился бы если бы один не поддерживал другого Сенека. Эссе № 1Я не согласна с данной точкой зрения. Вопервых общество понятие многозначное. Общества бывают разные. Я сама столкнулась в жизни с одной ситуацией. В городе есть два обще
13678. Подлинное национальное самосознание может быть лишь творческим, оно обращено вперед, а не назад 14.46 KB
  Подлинное национальное самосознание может быть лишь творческим оно обращено вперед а не назад.Н. БердяевПод национальным самосознанием понимается отражение сознаниянации в индивидуальном сознании ее членов выражающих усвоениепоследними представлений о месте и р
13679. Положительное и отрицательное влияние маргинальности на общество 16.55 KB
  Положительное и отрицательное влияние маргинальности на общество. Прежде всего дадим определение понятия маргинальность на котором будет основываться последующее рассуждение на предложенную тему. Классическое и наиболее часто используемое определение данного я...
13680. Семья - один из шедевров природы 14.29 KB
  Семья один из шедевров природы. Дж. Сантаяна Попытаемся ответить на вопрос почему Дж. Сантаяна считает семью одним из шедевров природы. Для начала укажем определение семьи это объединение людей основанное на браке кровном родстве или усыновлении и связанное меж...
13681. Семья является первичным лоном человеческой культуры 14.87 KB
  Семья является первичным лоном человеческой культурыИ. Ильин.Данное высказывание посвящено весьма актуальной социологической проблеме. Автор поднимает проблему семьи как самой ценной ячейке общества.Русский философ Иван Ильин придавал большое значение семье как в
13682. Создает человека природа, но развивает и образует его общество. В.Т. Белинский 16.16 KB
  Создает человека природа но развивает и образует его общество. В.Т. Белинский Человек это высшая ступень развития живых организмов на земле субъект общественноисторической деятельности и культуры но важнейшей его характеристикой является биосоциальная сущн
13683. Счастье. Все счастливые семьи похожи друг на друга, каждая несчастливая семья несчастна по-своему 14.69 KB
  Все счастливые семьи похожи друг на друга каждая несчастливая семья несчастна по-своему Л.Толстой. Важнейшим соц. институтом и основной ячейкой общества является семья общность людей основанная на единой общесемейной деятельности супружеских узах и кровном родстве....