Аналитическое выражение члена ряда, QBASIC Опции

[Ozzя]

Составить программу вычисления суммы и элемента числового ряда для известного числа членов ряда N.
Y=(-2+1/80)+(4-2/40)+(-8+3/20)+(16-4/10)+...
Для заданного члена ряда указать также аналитическое выражение.

Что-то непонятна вот эта часть - аналитическое выражение

Есть какие-то мысли по этому поводу?

Код

CLS
x = 160
INPUT " Введите n: "; n
sum = 0
FOR i = 1 TO n
  x = x / 2
  a = (-1) ^ i * 2 ^ i + ((-1) ^ (i + 1) * ((i + 1) - 1)) / x
  sum = sum + a
NEXT i
PRINT "Сумма "; n; " членов ряда = "; sum
PRINT n; "-й член ряда = "; a

Надеюсь, это имелось ввиду?

Код

CLS
x = 160
INPUT " Введите n: "; n
sum = 0
FOR i = 1 TO n
  x = x / 2
  a1 = (-1) ^ i * 2 ^ i
  s1$ = STR$(a1)
  a2 = ((-1) ^ (i + 1) * ((i + 1) - 1))
  a = a1 + a2 / x
  s2$ = STR$(a2)
  sum = sum + a
NEXT i
PRINT "Сумма "; n; " членов ряда = "; sum
PRINT n; "-й член ряда = "; a
PRINT "Аналитическое выражение для "; n; "-го члена ряда равно:"
PRINT s1$ + "+(" + s2$ + "/" + STR$(x) + ")"

Сообщение отредактировано: Ozzя - 24.04.2006 16:15