Рекуррентно-заданная функция

echs · Регистрация: 23.10.2013

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

Задана следующая функция f(n) = SIN(f(n - 1)) + 1
при начальном условии f(1) = 1. Надо распечатать
20 её значений.
...
примечание
при n = 15 значения функции начинают повторяться и
быть равными 1.934563

QBasic/QuickBASIC

REM
REM  f(n) = SIN(f(n - 1)) + 1
REM
REM     f(1) = 1 ; 1.934563
REM
 
DECLARE FUNCTION f! (n!)
 
CLS
 
FOR i = 1 TO 20
   PRINT f(i)
NEXT
END
 
FUNCTION f (n)
   IF n = 1 THEN
      f = 1
   ELSE
      f = SIN(f(n - 1)) + 1
   END IF
END FUNCTION

@vlisp · 31.12.2016, 23:38

Это прям какой-то типичный треш...

@Quiet Snow · 31.12.2016, 23:53

какой-то типичный треш...

Гугл увы не смотрит, треш это или нет, ему главное - индексация, в итоге главенствует принцип
чем больше треша - тем мол лучше.

@m-ch · 01.01.2017, 09:42

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

Это прям какой-то типичный треш...

К тому же программа реализована не эффективно, количество вызовов функции f() равно n*(n+1)/2
Смысл подобных задач - последовательно вычислять значение функции f(n) используя значения f(n-1)

без рекурсии:

QBasic/QuickBASIC

DIM i AS LONG, f AS DOUBLE, n AS LONG
n = 20
f = 1
PRINT 1, f
FOR i = 2 TO n
    f = SIN(f) + 1
    PRINT i, f
NEXT i

echs · 01.01.2017, 10:40 **[ТС]**

m-ch
Спасибо! Вы всегда находите иное решение.
И те, кто придет в эту тему будут рады именно
вашему новогоднему коду.

Рекуррентно-заданная функция

Решение

Решение

Решение

@vlisp 621 / 941 / 150 Регистрация: 10.08.2015 Сообщений: 5,018
	31.12.2016, 23:38	2
	Сообщение было отмечено echs как решение Решение Это прям какой-то типичный треш... 0

@Quiet Snow 5001 / 1673 / 409 Регистрация: 25.04.2010 Сообщений: 4,624 Записей в блоге: 2
	31.12.2016, 23:53	3
	Сообщение было отмечено echs как решение Решение какой-то типичный треш... Гугл увы не смотрит, треш это или нет, ему главное - индексация, в итоге главенствует принцип чем больше треша - тем мол лучше. 1

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	01.01.2017, 10:40 [ТС]	5
	m-ch Спасибо! Вы всегда находите иное решение. И те, кто придет в эту тему будут рады именно вашему новогоднему коду. 0