Question

 Составить алгоритм вычисления на ЭВМ значения
функции:

 

6b880b3a21c75d7362a44cf11a654a73.rtf

Answer 1

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 членах суммы.