{* Задача96 *}

REM basic

' Составить программу вычисления приближенного значения суммы элементов ряда S = 1 - x/1! + x^3/3! - x^5/5! + ... для произвольного значения аргумента "x" (по модулю меньше 1). Суммирование продолжать до тех пор, пока разность между очередным и предыдущим слагаемым не станет меньше заданной величины Z (точности вычислений).


10 INPUT "X ="; X
20 INPUT "E ="; E
30 PREV = 1: CUR = X: S = 1
40 I = 2: ZNAM = 1
50 While ABS(CUR - PREV) >= E
60 If I Mod 2 = 0 Then S = S - CUR Else S = S + CUR
70 PREV = CUR
80 I = I + 1
90 ZNAM = ZNAM + 2
100 CUR = CUR * X ^ 2 / (ZNAM - 1) / ZNAM
110 Wend
120 PRINT "Сумма ="; S
130 End