Вычисление суммы ряда с использованием функции

@Veteran14 · Регистрация: 28.04.2016

Нужно решить задачу через функцию.

@Puporev · 28.04.2016, 16:50

Pascal

function summa(x,e:real):real;
var t,s:real;
    n:integer;
begin
n:=0;
s:=ln(2*x);
t:=-1;
while abs(t)/2>e do
 begin
  inc(n);
  t:=-t*(2*n-1)/2/n/x/x;
  s:=s+t/2/n;
 end;
summa:=s;
end;
var x,e:real;
begin
repeat
write('x>1 x=');
readln(x);
until x>1;
repeat
write('0<e<1 e=');
readln(e);
until (e>0)and(e<1);
write('Summa=',summa(x,e):0:5);
end.

@Veteran14 0 / 0 / 0 Регистрация: 28.04.2016 Сообщений: 2
		1
	Вычисление суммы ряда с использованием функции 28.04.2016, 14:47. Показов 995. Ответов 1 Метки нет (Все метки) Нужно решить задачу через функцию. Миниатюры 0

Опции темы

Вычисление суммы ряда с использованием функции

Решение