{* Задача239 *}

REM basic

' Рассчитать сумму при заданном х. Вычисления прекратить, когда очередное
' слагаемое станет меньше e = 10-5.


CLS
e = 10 ^ -5
INPUT "Введите х ", x


Do
     i = i + 1
         
          
          p = 1
          For k = 1 To i
                p = p * k
          Next k
         d = x ^ i / p   
         s1 = s1 + d     
Loop Until d < e
       PRINT "s1 ="; s1


i = 0
Do
     i = i + 1
              
          p = 1
          For k = 1 To 2 * i
                p = p * k
          Next k
         d = (-1) ^ i * x ^ (2 * i) / p         
         s2 = s2 + d    
Loop Until ABS(d) < e          
       
        PRINT "s2 ="; s2

End