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

@pugavka18 · Регистрация: 09.03.2016

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

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \operatorname{arctg}x=\sum_{n=0}^\infty (-1)^n\cdot \,\frac{x^{2n+1}}{2n+1}\,,\qquad |x|<1<br />$

@JokeR.BY · 14.06.2016, 22:31

Pascal

const
    EPS = 0.0001;
function ArcTg(const x: Single; const n: LongWord; const si: Double): Double;
var
    Result, temp: Double;
begin
    temp := si / (1 + 2 * n);
    if (Abs(temp) > EPS)
    then
        Result := temp + ArcTg(x, n + 1, -si * Sqr(x))
    else
        Result := 0;
    ArcTg := Result;
end;
var
    x: Single;
begin
    repeat
        Write('x='); ReadLn(x);
    until (Abs(x) < 1);
    WriteLn('Sum(', x:0:4 , ')=', ArcTg(x, 0, x):0:4);
    WriteLn('Arctan(', x:0:4, ')=', ArcTan(x):0:4);
end.

@pugavka18 0 / 0 / 0 Регистрация: 09.03.2016 Сообщений: 45
		1
	Вычислить функцию с заданной точностью 14.06.2016, 20:56. Показов 1421. Ответов 1 Метки нет (Все метки) Вычислить функцию с заданной точностью,используя рекурсивный алгоритм $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \operatorname{arctg}x=\sum_{n=0}^\infty (-1)^n\cdot \,\frac{x^{2n+1}}{2n+1}\,,\qquad \|x\|<1<br />$ 0

Опции темы

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

Решение