Найти сумму ряда с точностью ε=10-4, общий член которого равен a(n)=e^n+100^(-n)^2

[Rixoz]

Помогите с написанием
Найти сумму ряда с точностью ε=10-4, общий член которого равен a(n)=e^n+100^(-n)^2

[digitalis]

Так как же её найдёшь, если ряд - не сходящийся. Видимо, неудачно переведена в формулу постановка задачи. Её бы - в исходном виде, хоть рисунком.

[Rixoz]

digitalis, Вот задача на фото

[Rixoz]

digitalis,

[digitalis]

Блин, ну * же, а не + ! Совсем другой коленкор.
Решай, разрешаю. Когда очередное слагаемое станет меньше ёпсилон, можешь остановиться.
На КОБОЛе я бы тебе написал или на PL-I Перевести сумеешь ?

var sum, tmp, a, a2: Double ;
begin
  tmp := 1.0 ;
  sum := 0 ;
  a := 1.0 ;
  while tmp>1E-4 do
    begin
       a2 := a*a ;
       tmp := Exp(a)/Power(100.0,a2) ;
       sum := sum + tmp ;
       Memo1.Lines.Add(Format('%2.0f %12.8f %12.8f',[a,tmp,sum])) ;
       a := a + 1.0
    end ;

end;

1 0,02718282 0,02718282
2 0,00000007 0,02718289

Всего лишь 2 итерации понадобились... Чем преподы думают? Куда милиция полиция смотрит ?

[Rixoz]

digitalis, Могут возникнуть проблемы с переводом. Честно не силен в программировании. Если не сложно, то не могли бы Вы помочь?

[digitalis]

Лет 40 уже не писа'л на Си, и нет его у меня на компе. Попробую по памяти.

#include <stdio.h>
#include <math.h>
void main(void)
{
 double  sum, tmp, a, a2 ;
  tmp = 1.0 ;
  sum = 0 ;
  a = 1.0 ;
  while (tmp>1E-4)
    {
       a2 = a*a ;
       tmp = Exp(a)/Pow(100.0,a2) ;
       sum = sum + tmp ;
       printf ("%2.0f %12.8f %12.8f\n",a,tmp,sum) ;
       a = a + 1.0 ;
    }
}

Как-то так.

[Rixoz]

digitalis, Большее спасибо

[digitalis]

Заработало ?

[Rixoz]

digitalis, Да, память Вас не подвела)