Определить рекурсивную функцию, которая вычисляет приближенное значение

@Oleg098 · Регистрация: 12.12.2016

Студворк — интернет-сервис помощи студентам

Определить рекурсивную функцию, которая вычисляет приближенное значение 1/e путем суммирования первых членов ряда до тех пор, пока слагаемые превышают ε = 0,0001.

@Catstail · 12.12.2016, 17:35

HomeLisp:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(defun inv-e (eps &optional (k 1) (s 0) (a 1))
  (if (< (abs a) eps) s (inv-e eps (+ k 1) (+ s a) (/ (- a) k)))) 
 
==> INV-E
 
(rat2flo (inv-e 0.0000000001))
 
==> 0.367879441160691
 
(/ 1 _e)
 
==> 0.367879441171442

Добавлено через 2 минуты

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
;; Функция вычисляет рациональное приближение к 1/e:
 
(inv-e 0.0000000001)
 
==> 63633137/172972800
 
;; Если чуть по-другому, то будет считать с плавающей точкой:
 
(defun inv-e (eps &optional (k 1) (s 0) (a 1))
  (if (< (abs a) eps) s (inv-e eps (+ k 1) (+ s a 0.0) (/ (- a) k)))) 
 
==> INV-E
 
(inv-e 0.0000000001)
 
==> 0.367879441160693

@Oleg098 · 13.12.2016, 17:34 **[ТС]**

а возможно ли было бы решить это без (eps &optional )? потому что мы этого еще не прошли
подскажите, пожалуйста
Вы меня спасёте ,если напишите как это сделать

@Catstail · 13.12.2016, 18:23

Сообщение от Oleg098

Вы меня спасёте ,если напишите как это сделать

- очень просто:

Lisp
1
2
3
4
(defun inve (eps k s a)
  (if (< (abs a) eps) s (inve eps (+ k 1) (+ s a 0.0) (/ (- a) k)))) 
 
(defun inv-e (eps) (inve eps 1 0 1))

@Oleg098 · 13.12.2016, 19:00 **[ТС]**

а как объяснить для чего нам eps, у нас на лекции просто давались такие рекурсивные функции как APPEND,REVERSE,REVAPPEND,MEMBER,REMOVE и т.д , то есть основные видимо ,и по мимо них другое не объяснялось

@Хм · 13.12.2016, 19:58

Сообщение от Oleg098

для чего нам eps

eps из математики, а не из программирования.
eps, в данном случае, точность с которой нужно вычислить функцию. Эту точность задаешь сам. Попробуй другие значения на входе.

@Catstail · 13.12.2016, 20:12

Сообщение от Oleg098

а как объяснить для чего нам eps

- читай свое же условие !

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Oleg098 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 12

	Определить рекурсивную функцию, которая вычисляет приближенное значение 12.12.2016, 16:46. Показов 853. Ответов 6 Метки нет (Все метки) Определить рекурсивную функцию, которая вычисляет приближенное значение 1/e путем суммирования первых членов ряда до тех пор, пока слагаемые превышают ε = 0,0001. Миниатюры 0

@Oleg098 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 12
	13.12.2016, 17:34 [ТС]
	а возможно ли было бы решить это без (eps &optional )? потому что мы этого еще не прошли подскажите, пожалуйста Вы меня спасёте ,если напишите как это сделать 0

@Oleg098 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 12
	13.12.2016, 19:00 [ТС]
	а как объяснить для чего нам eps, у нас на лекции просто давались такие рекурсивные функции как APPEND,REVERSE,REVAPPEND,MEMBER,REMOVE и т.д , то есть основные видимо ,и по мимо них другое не объяснялось 0