Нахождение суммы бесконечно убывающего ряда.

[Саня666]

Написать программу суммирования ряда, приведенного в таблице, при одном и том
же значении аргумента и 2-х значениях точности, отличающихся друг от друга более чем
на порядок. Сравнить полученные результаты с точным значением и сделать вывод о схождении ряда.
Вычисления заканчивать при достижении заданной степени точности (т.е. когда очередной член ряда становится по модулю меньше введенного значения точности ).

[digitalis]

Ну и кто мешает это сделать? А, понял: не можешь решить, на каком из многочисленных знакомых языков программирования нужно это сделать, и требуется совет форумлянцев?

[Саня666]

На Pascal надо сделать. =)

[ViktorR]

Это просто.
Скачай книжку: Т.А. Павловская, Программирование на ЯВУ Паскаль.
Есть в списке литературы раздела "Паскаль".
https://programmersforum.ru/showthre...?t=8324&page=4
Там есть похожий пример.
Почитай и адаптируй.

[puporev]

function f(x,e:real):real;
var s,t:real;
    n:integer;
begin
n:=1;
t:=x;
s:=t;
while abs(t)/n>e do
 begin
  inc(n);
  t:=-t*x;
  s:=s+t/n;
 end;
f:=s;
end;
var x:real;
begin
repeat
write('Введите |x|<0.3 x=');
readln(x);
until abs(x)<0.3;
writeln('При точности e=0.0001');
writeln('Сумма ряда=',f(x,0.0001):0:6);
writeln('При точности e=0.000001');
writeln('Сумма ряда=',f(x,0.0001):0:6);
write('Точное значение=',ln(1+x):0:6);
end.