Вычислить сумму ряда

@maestreek · Регистрация: 06.04.2015

Author24 — интернет-сервис помощи студентам

Написать в ТР

@Puporev · 10.12.2015, 15:46

Pascal

uses crt;
var x,e,t,s:real;
    n,i:integer;
begin
clrscr;
repeat
write('Введите |x|>1  x=');
readln(x);
until abs(x)>1;
e:=0.0001;
n:=0;
t:=1/x;
s:=t;
while abs(t)/(2*n+1)>e do
 begin
  n:=n+1;
  t:=t/(x*x);
  s:=s+t/(2*n+1);
 end;
s:=2*s;
writeln('Сумма=',s:0:4);
write('Аналитически Ln((x+1)/(x-1))=',ln((x+1)/(x-1)):0:4);
readln
end.

@maestreek 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 27
		1
	Вычислить сумму ряда 10.12.2015, 15:25. Показов 925. Ответов 1 Метки нет (Все метки) Написать в ТР Миниатюры 0

	10.12.2015, 15:46

Вычислить сумму ряда

Решение