Паскаль. Подскажите пожалуста как решить эту задачу.

[svobodys]

НЕ используя стандартные функции, вычислить с точностью ε>0

Y=arctgx=x-x(в степени 3)/3+x(в степени 5)/5-…+(-1)(в степени n) x(в степени2n+1)/(2n+1)+…(|x|<1)

[Min]

вроде так......

var dx,x,e,y:real;
    i:integer;
begin
 readln(x,e);
 y:=x;
 dx:=-x*x*x/3;
 y:=y+dx;
 i:=3;
 while dx>e do
  begin
   dx:=-dx*i*x*x/(i+2);
   y:=y+dx;
  end;
 writeln(y);
 readln;
end.

[svobodys]

а можешь пояснить, что ты подрузомиваешь под этими переменными?

[Min]

e - это точность (лучше ставить около 0.0001)
dx - приращение функции....... элемент ряда....
y - сама функция
x - аргумент

[puporev]

Вообще-то неправильно считает, знаменатель не надо все время умножать. Вот так правильно считает.

var dx,x,e,y,t:real;
    i:integer;
begin
 readln(x,e);
 dx:=x;
 y:=0;
 i:=0;
 t:=1/(2*i+1);
 while abs(dx)>e do
  begin
   y:=y+dx*t;
   inc(i);
   dx:=-dx*x*x;
   t:=1/(2*i+1);
  end;
 writeln(y:0:5);
 readln
end.

[svobodys]

Последняя версия не работает нули выдает только

[puporev]

Вы даже готовой программой пользоваться не умеете. Да если бы она не работала, я бы выложил ее? Что-то где-то пропустили, или написали не так. Введите через пробел 0,5 0,0001 и получите 0,46365.

[Min]

да да...... знаменатель то я домножал..... dx:=-dx*i*x*x/(i+2)
просто abs(e) не взял)))))

[puporev]

Знаменатели то как раз и не надо перемножать, из-за этого и неправильно. У каждой дроби свой, не зависящий от предыдущего знаманатель t:=1/(2*i+1); Числитель домножаем на -x^2, а потом делим на знаменатель.

[svobodys]

Сообщение от puporev

Вообще-то неправильно считает, знаменатель не надо все время умножать. Вот так правильно считает.

var dx,x,e,y,t:real;
    i:integer;
begin
 readln(x,e);
 dx:=x;
 y:=0;
 i:=0;
 t:=1/(2*i+1);
 while abs(dx)>e do
  begin
   y:=y+dx*t;
   inc(i);
   dx:=-dx*x*x;
   t:=1/(2*i+1);
  end;
 writeln(y:0:5);
 readln
end.

Сказали, что код не правильный.
Вот еще раз условие, может вы меня не правИльно поняли...
[ATTACH]НЕ используя стандартные функции.doc[/ATTACH]