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

Question

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

Comments

блок схемой вроде

---

в задачнике упоминается фраза про паскаль,а в методичке есть пример решением блоксхемой

---

как вам удобнее, в задачнике написано надо итак и так,но я не буду двумя способами

---

подскажите пожал, по какому принципу я выставляю балы за свои вопросы? есть ли правила?

---

ок

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