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

@haim08 · Регистрация: 10.01.2012

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

Помощь! Вычислить Сумму ряда! Pliz

@Puporev · 10.01.2012, 17:29

Pascal

uses crt;
var x,e,s,t:real;
   n:integer;
begin
clrscr;
repeat
write('|x|>1  x=');
readln(x);
until abs(x)>1;
e:=0.01;
n:=0;
s:=1/x;
t:=1/x;
while abs(t)>e do
 begin
  n:=n+1;
  t:=t*(2*n-1)/(x*x*(2*n+1));
  s:=s+t;
 end;
writeln('При е=0.01 S=',s:0:2,' n=',n);
e:=0.001;
n:=0;
s:=1/x;
t:=1/x;
while abs(t)>e do
 begin
  n:=n+1;
  t:=t*(2*n-1)/(x*x*(2*n+1));
  s:=s+t;
 end;
writeln('При е=0.001 S=',s:0:3,' n=',n);
writeln('Arth=',0.5*ln((x+1)/(x-1)):0:3);
readln
end.

@haim08 · 10.01.2012, 17:37 **[ТС]**

Спасибо большое)

@haim08 0 / 0 / 0 Регистрация: 10.01.2012 Сообщений: 35
		1
	Вычислить Сумму ряда! Pliz 10.01.2012, 16:50. Показов 991. Ответов 2 Метки нет (Все метки) Помощь! Вычислить Сумму ряда! Pliz Миниатюры 0

@haim08 0 / 0 / 0 Регистрация: 10.01.2012 Сообщений: 35
	10.01.2012, 17:37 [ТС]	3
	Спасибо большое) 0

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

Решение