zadach28.BAS

{* Задача28 *}

REM basic

' Вычислить значение суммы членов бесконечного ряда с заданной точностью ε. На печать вывести значение суммы и число членов ряда, вошедших в сумму.



10 CLS : INPUT "x,eps:", X, E: PRINT "x ="; X; " , eps ="; E
30 A = 1 / X: S = A: N = 1
40 If ABS(A) < E GoTo 60
50 PRINT "n ="; N, "a ="; A, "S ="; S: N = N + 1: A = -A * (2 * N - 1) / (X ^2 * (2 * N + 1)): S = S + A: GoTo 40
60 PRINT "СУММА РЯДА   S ="; S
70 PRINT "ЧИСЛО ЧЛЕНОВ n ="; N - 1
80 End