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

)

)


 

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

71030. Развитие кадрового потенциала ОАО «ЖТК» 477.5 KB
  Изучить современные научные подходы к проблеме подготовки, переподготовки и повышения квалификации кадров; проанализировать состояние работы по подготовке, переподготовки и повышению квалификации руководителей и специалистов Красноярского филиала ОАО «ЖТК»; выявить проблемы организации процесса подготовки, переподготовки и повышения квалификации руководителей и специалистов Красноярского филиала ОАО «ЖТК»...
71031. Изучение основных принципов работы маршрутизаторов в сетях ЭВМ на основе протокола OSPF 209 KB
  Изучение основных принципов работы маршрутизаторов в сетях ЭВМ на основе протокола OSPF. В результате выполнения лабораторной работы студент получает знания по принципам построения и алгоритмам функционирования маршрутизаторов в сетях ЭВМ и навыки по выбору кратчайших путей в сети на основе протокола OSPF.
71032. Разработка универсальной модульной системы, предназначенной для организации промышленной шины 3.78 MB
  Недостатком промышленной сети является то, что при обрыве кабеля теряется возможность получать данные и управлять не одним, а несколькими устройствами (в зависимости от места обрыва и топологии сети остается возможность автономного функционирования сегмента сети и схемы управления).
71033. Информационно–справочная система архива проектно–сметной документации для Ставропольнефтегаз 16.24 MB
  Непосредственной целью данного дипломного проекта является проектирование и разработка информационно – справочной системы ведения архива проектно – сметной документации, которая будет вести учет проектно – сметной документации.
71035. ВЫБОР РАЦИОНАЛЬНОЙ ДЛИНЫ ПАКЕТА СЕТИ ЭВМ 131.5 KB
  Изучить влияние длины пакета на характеристики сети ЭВМ. Изучить методику расчёта рациональной длины пакета сети ЭВМ. Определить рациональную длину пакета сети ЭВМ. Исследовать зависимость эффективной скорости передачи данных от длины пакета для основного цифрового канала связи и канала связи тональной...
71036. ФУНКЦИОНИРОВАНИЕ МАРШРУТИЗАТОРОВ НА ОСНОВЕ ПРОТОКОЛА СЕТЕВОГО УРОВНЯ OSPF СТЕКА ПРОТОКОЛОВ TCP/IP 197.5 KB
  Изучение основных принципов работы маршрутизаторов в сетях ЭВМ на основе протокола OSPF. В результате выполнения лабораторной работы студент получает знания по принципам построения и алгоритмам функционирования маршрутизаторов в сетях ЭВМ и навыки по выбору кратчайших путей в сети на основе протокола OSPF.
71037. Повірка вольтметра, амперметра і лічильника електричної енергії 258 KB
  В електронних лічильниках напруга і струм перетворюються у імпульси які перемножуються інтегруються в часі так що їх кількість пропорційна спожитій електроенергії. Дійсна стала лічильника Номінальна стала лічильника це кількість електроенергії у ватсекундах яка відповідає вказаному на лічильнику передаточному числу...