zadach169.BAS

{* Задача169 *}

REM basic

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



CLS
INPUT "Введите x"; x
INPUT "Введите точность"; e
A=1
S=0
P=1 
Q=x 
Z=-1
i=1
While abs(A)>e
P=P*2*i*(2*i+1)
Q=Q*x^2 
A=Z*(2*i*Q)/P
S=S+A
Z=-Z
i=i+1
Wend
y=(x-tan(x))*cos(x)
PRINT "S="; S
PRINT "y="; y
End