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

)

)


 

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

38629. АВТОМАТИЗИРОВАННОЕ РАБОЧЕЕ МЕСТО СПЕЦИАЛИСТА ДЕКАНАТА 9.33 MB
  Некоторые организации используют для этого шкафы с папками но большинство предпочитают компьютеризированные способы базы данных позволяющие эффективно хранить структурировать и систематизировать большие объемы данных. И уже сегодня без баз данных невозможно представить работу большинства финансовых промышленных торговых и прочих организаций. Не будь баз данных они бы просто захлебнулись в информационной лавине. Базы данных позволяют хранить структурировать информацию и извлекать её оптимальным для пользователя образом.
38630. РОЗРОБЛЕННЯ ПРОЕКТУ СУПРОВОДУ СИСТЕМИ УПРАВЛІННЯ ДОРОЖНІМ ТРАФІКОМ НА БАЗІ ІНТЕЛЕКТУАЛЬНОЇ СИСТЕМИ ВІДЕОСПОСТЕРЕЖЕННЯ 2.75 MB
  Необхідно встановити систему інтелектуального відеоспостереження за найбільш завантаженими транспортом вулицями яка буде здатна самостійно фіксувати деякі порушення правил дорожнього руху таки як перевищення швидкості проїзд на червоне світло проїзд у забороненому напрямку виїзд на зустрічну смугу порушення дорожньої розмітки та інші і оформляти штрафи відповідно базі даних номерів автомобілів і систему штрафів Придністровської Молдавської Республіки а також мати можливість розпізнавання викрадених транспортних засобів. Планується...
38631. «Облачные» ресурсы 37.21 KB
  Одним из следствий процесса глобализации и интеграционных процессов стало появление «облачных» технологий, что позволяет пользователю не быть привязанным к географической точке и активизировать процесс обмена даже весьма большими объемами информации.
38632. МОДЕРНИЗАЦИЯ ТЕПЛОФИКАЦИОННОЙ УСТАНОВКИ ПАРОВОЙ ТУРБИНЫ Т-100-130 УРАЛЬСКОГО ТУРБИННОГО ЗАВОДА 277.5 KB
  Подогрев обратной сетевой воды производится в ПСГ1 и ПСГ2 . В зимнее время для подогрева воды можно использовать также встроенный в конденсатор выделенный пучок. При такой схеме подача циркуляционной воды в конденсатор сокращается и вакуум в нём ухудшается. Целью модернизации ТФУ является повышение термического КПД паровой турбины за счет увеличения температуры обратной сетевой воды на входе в ПСГ1 ПСГ2 что ведет к уменьшению расхода греющего пара в них и к уменьшению расхода топлива на его генерацию.
38633. Підвищення енергоефективності очистки стоків тваринницьких ферм 1.55 MB
  1 Визначення виходу біогазу.4 Визначення виходу біогазу в залежності від циклу бродіння і кількість енергії біогазу даного підприємства .6 Визначення енергії товарного біогазу і коефіцієнту товарності 2.1 Дослідження залежності виходу біогазу від тривалості циклу бродіння.
38634. Проект производственно-отопительной котельной 4.74 MB
  Характеристика исходной воды жесткость общая мгэкв кг___________________________________________ жесткость карбонатная мгэкв кг______________________________________ содержание ионов натрия____________________________________________ РАСЧЕТНО ПОЯСНИТЕТЕЛЬНАЯ ЗАПИСКА Раздел 1. Основной частью её является собственно паровой котел в котором осуществляется превращение воды в насыщенный пар. Подачи и сжигания топлива; очистки химической подготовки и деаэрации воды; теплообменные аппараты различного назначения; насосы исходной сырой воды...
38636. Мероприятия по улучшению финансово-экономического состояния ООО «Мис» 2.82 MB
  Теоретические основы анализа финансовоэкономической деятельности предприятия. Сущность анализа финансового состояния предприятия.2 Информационная база анализа финансового состояния предприятия.3 Методика анализа финансовоэкономической деятельности предприятия.
38637. Транскриптомный анализ генов контроля генеза митохондрий и реактивности иммунной системы при действии адаптогенов 198.5 KB
  В соответствии с вышесказанным, в планируемой работе, с целью поиска подходов к специфической модуляции гена PGC-1α, мы планировали решение серии взаимосвязанных задач методического и методологического плана. В частности, предполагалось освоение методик культивирования клеток человека для постановки in vitro экспериментов