Найти сумму ряда SIN(1 + Arcsin(1 / 1) +

echs · Регистрация: 23.10.2013

Author24 — интернет-сервис помощи студентам

Слагаемые ряда задаются по условию
1. Если номер слагаемого четный, то слагаемое имеет вид
SIN(i) * Arcsin(1 / i)
2. Если номер слагаемого нечетный и делится на 3, то оно имеет вид
Arcsin(1 / i)
3. Все остальные слагаемые имеют вид
SIN(i + Arcsin(1 / i))
4. Всего 777 слагаемых
5. программа вычислила и сумма = 0.4006045

Вопрос
1. Есть иное решение?

QBasic/QuickBASIC

REM
REM SIN(1 + Arcsin(1 / 1)) +
REM
REM  0.4006045
REM
 
DECLARE FUNCTION Arcsin! (x!)
 
CLS
CONST pi = 3.141593
 
FOR i = 1 TO 777
   IF i MOD 2 = 0 THEN
      S = S + SIN(i) * Arcsin(1 / i)
   ELSEIF i MOD 3 = 0 THEN
      S = S + Arcsin(1 / i)
   ELSE
      S = S + SIN(i + Arcsin(1 / i))
   END IF
NEXT
PRINT S
END
 
FUNCTION Arcsin (x)
   IF ABS(x) <> 1 THEN
      Arcsin = ATN(x / SQR(1 - x ^ 2))
   ELSE
      Arcsin = pi / 2 * SGN(x)
   END IF
END FUNCTION

	30.09.2016, 15:34