Задача
Функция очень длинная, поэтому я дам ее описание и нужно будет вычислить значение этой функции при x = 1. Вид функции похож на эту cos(sin(sin(cos( ... sin(1)...)))). А теперь точное ее описание. Берутся натуральные числа от 1 до 370 и записываются подряд в одно число 123456789101112 ... 370. Это число просматривается слева направо, а сама функция записывается справа налево.
Итак, первая цифра нечетная (нечетной цифре соответствует sin, а четной - cos), то наша функция будет выглядеть так ............cos(sin(cos(sin(x)))). В общем надо ее вычислить при x = 1.
программа сосчитала и получила число 0,8194045
Вопросы.
1. Всё бы хорошо, но это число ничего не значит, пока не будет вычислена погрешность. Как?
2. Вообще для вычисления погрешности применяют производную. Но в данном случае производную устанешь считать. Может кто знает?....
Код:
REM
REM 0.8194045
REM
DECLARE FUNCTION M! (n!)
CLS
DIM SHARED s AS STRING
FOR i = 1 TO 370
s = s + LTRIM$(STR$(i))
NEXT
x = 1
FOR i = 1 TO LEN(s)
IF M(i) MOD 2 THEN
x = SIN(x)
ELSE
x = COS(x)
END IF
NEXT
PRINT "X ="; x
END
FUNCTION M (n)
M = VAL(MID$(s, n, 1))
END FUNCTION