Составить алгоритм вычисления на ЭВМ значения функции:
Составить алгоритм вычисления на ЭВМ значения
функции:
Гость
Ответ(ы) на вопрос:
Гостьconst
eps = 0.5e-5;
x = 0.3;
var
y1, y2, s, x2, px, n, k, sgn: real;
begin
x2 := sqr(x);
y1 := x;
n := 3;
px := x * x2;
y2 := y1 + px / n;
k := 2;
sgn := -1;
while abs(y2 - y1) > eps do
begin
px := px * x2;
n := n + 2;
k := k + 1;
y1 := y2;
y2 := y1 + sgn * (px / n);
sgn := -sgn
end;
writeln('tg(x)=', y2, ' при ', k, ' членах суммы.')
end.
Тестовое решение:
tg(x)=0.308543055857143 при 5 членах суммы.
Не нашли ответ?
Похожие вопросы