Написание программы для вычисления суммы ряда

[RARnick71]

Не знаю как написать программу подобного типа ,помогите ,пожалуйста ,буду благодарен , задание во вложение

[Serge_Bliznykov]

Сообщение от RARnick71

ак написать программу подобного типа

нужно ввести значение X (желательно с проверкой, что модуль X больше 1)
потом в цикле организовать вычисление очередного члена последовательности и суммирование. выполнять цикл нужно до тех пор, пока очередной член последовательности по модулю не станет меньше заданной точности (ну, например, меньше 0.000001).
если условия задачи предполагают, можете вычислить исходное выражение логарифма и вывести точное значение (и разницу с полученным от вычисления ряда).
всё.

в чём проблема?

[p51x]

в лени...

[newerow1989]

const e=0.0000001;
var x,s,s1:real;
    n:integer;
begin
   Write('x = '); Readln(x);
   s1:=2/x;
   s:=s1;
   n:=1;
   Repeat
      n:=n+2;
      s1:=s1/x/x/n;
      s:=s+s1;
   Until Abs(s1)<e;
   Writeln(s:5:8);
   s:=Ln((x+1)/(x-1));
   Writeln(s:5:8);
   Readln;
end.