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

Формулировка задачи:

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


textual

Код к задаче: «Рекуррентно-заданная функция - QBasic»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.000 из 5

Источник