Цитата
Составить программу вычисления суммы и элемента числового ряда для известного числа членов ряда N.
Y=(-2+1/80)+(4-2/40)+(-8+3/20)+(16-4/10)+...
Для заданного члена ряда указать также аналитическое выражение.
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
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) + ")"
Нажмите для просмотра прикрепленного файла
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) + ")"
