Вычислить функцию с заданной точностью

@Raichell · Регистрация: 29.04.2018

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

Составить два варианта программы с использованием рекурсивного и
итерационного алгоритмов.
Вычислить функцию с заданной точностью:

@Puporev · 29.04.2018, 15:29

Pascal

const e=0.00001; //точность
function Summa(x,sn,st:real;n:integer):real;
//параметры:  х, начальный член ряда(-1/х),
//начальный текущий член ряда((-1)^n/(x^(2*n+1))), счетчик итераций(от 1)}
var t:real; // изменяющийся текущий член ряда
begin
Summa:=sn;
t:=-st/x/x;
if abs(t)/(2*n+1)<e then  exit;
Summa:=Summa(x,sn+t/(2*n+1),t,n+1);
end;
var x,t,s:real;
    n:integer;
begin
repeat
write('|x|>1 x=');
readln(x);
until abs(x)>1;
writeln ('Сумма рекурсией=',pi/2+Summa(x,-1/x,-1/x,1):0:5);
n:=0;
t:=-1/x;
s:=pi/2+t;
while abs(t)/(2*n+1)>e do
 begin
  n:=n+1;
  t:=-t/x/x;
  s:=s+t/(2*n+1);
 end;
writeln('Сумма итеративно=',s:0:5);
write('arctg(x)=',arctan(x):0:5);
end.

@Raichell 0 / 0 / 0 Регистрация: 29.04.2018 Сообщений: 7
		1
	Вычислить функцию с заданной точностью 29.04.2018, 13:27. Показов 1194. Ответов 1 Метки нет (Все метки) Составить два варианта программы с использованием рекурсивного и итерационного алгоритмов. Вычислить функцию с заданной точностью: 0

Опции темы

Вычислить функцию с заданной точностью

Решение