Сумма ряда с точностью, проверьте плз Опции

[drug]

Вычислить сумму ряда с точностью е=10^(-5) при n изменяющимся от 0 до бесконечности

3^n/((n+1)*x^(n+1))

вот код:

program z1_13;
uses crt;
const e=0.0001;
var
x,s,p:real;
n:integer;
begin
clrscr;
write('vvedite x (x<>0) ');
readln(x);
n:=0;
s:=0;
repeat
if x>0 then p:=exp(n)*ln(3)/((n+1)*exp(n+1)*ln(x))
else p:=exp(n)*ln(3)/((n+1)*exp(n+1)*ln((-1)*x));
inc(n);
s:=s+p;
until s<e;
write ('summa ryada ravna ',s:12:5);
end.

просто крайне малый интервал что я могу вводить икс

и чивота меня напрягает степень через экспоненту

М

Пожалуйста, используй правильные теги. Лопарь

[volvo]

чивота меня напрягает степень через экспоненту

Правильно напрягает. Экспонента здесь не нужна, так же как и вообще вычисление степени. Уже были примеры вычисления рядов, почему каждый раз приходится говорить одно и то же?

const
  e = 0.0001;

var
  X, s, next: real;
  n: integer;

begin
  write('[Abs(X) > 3] X = '); readln(X);
  next := 1 / X;
  s := next;
  n := 0;

  repeat

    next := next * 3 / X;
    inc(n);
    s := s + next / n;

  until abs(next / n) < e;
  writeln('s = ', s:10:5);
end.

Х должен быть в интервале -inf .. -3 или 3 .. +inf

От -3 до 3 - ряд возрастает, ты не сможешь найти сумму с заданной точностью.

[Lapp]

От -3 до 3 - ряд возрастает, ты не сможешь найти сумму с заданной точностью.

Точнее, на этом промежутке ряд расходится, и суммы у него нет совсем. А поскольку ее нет, то нет смысла ее и искать..

Есть еще одно соображение. Оценка по последнему члену верна только для знакопеременного ряда. Этот ряд при x>0 не является знакопеременным, так что оценка его суммы по последнему члену неправомерна. Я не знаю, что имели в виду те, кто задавал задачу. Может, ты приведешь более точное условие?