Нужна помощь ряд Тейлора Pascal

[Newbie77]

Здравствуйте друзья, я тут новенький и сразу уже прошу о помощи, прощу не кидаться тапками Мне надо написать программу на паскале, её условие таково: Вывести на экран в графическом режиме графики двух функций на интервале от Xнач до Xкон с шагом dx. первая функция задана с помощью ряда Тейлора, её вычисление должно выполняться с точностью e. Значение параметра b для второй функции вводится с клавиатуры. Графики должны быть плавными и различаться цветами.
И сама функция:

P.S. Желательно написать с комментариями, чтобы мне было проще разобраться

[min@y™]

Ну и что ты предлагаешь?

прошу о помощи

Что за помощь тебе нужна?

[Newbie77]

Нужна помощь в написании первой функции. Мне никак в голову не приходит как эту функцию написать в коде, буду рад если поможете каким-либо похожим примером. Со второй функцией и графиком я разобрался.

[Stilet]

var sign,i:integer;
...
sign:=1;
y:=0;
for i:=0 to Лемниската do begin
 y:=y+sign*(2*i+1)*exp((2*i+1)*ln(x));
 sign:=sign*-1;
end;

[min@y™]

Нужна помощь в написании первой функции. Мне никак в голову не приходит как эту функцию написать в коде

Ну, примерно так:

function IntPower(const x: Real; const N: Integer): Real;
var
  R: Real;
  i: Integer;
begin
  R:= 1.0;

  if N <> 0
    then for i:= 1 to Abs(N) do
           R:= R * x;
  
  if N >= 0
    then IntPower:= R
    else IntPower:= 1.0 / R;
end;

// вычисление суммы ряда с точностью e.
function y(const x, e: Real): Real;
var
  n: LongWord;
  Member, Sum: Real;
begin
  Sum:= pi / 2;
  n:= 0;
  
  repeat
    Member:= (1 - 2 * ((n + 1) and 1)) / (2 * n + 1) * IntPower(x, 2 * n + 1));
    Sum:= Sum + Member;
    Inc(n);
  until Abs(Member) < e; // тут ошибка была :)

  y:= Sum;
end;

Ахтунг! Код не отлаживал, писал на заборе!

[Аватар]

  n:=1;
  Member:=-1/x;
  Sum:=pi/2+Member;
  repeat
    Member:=-Member*(2*n-1)/(2*n+1)/x/x;
    Sum:=Sum+Member;
    Inc(n);
  until Abs(Member) < e;