Справедливость равенства

[Noxil]

Помогите плз с задачкой:
Численно убедиться в справедливости равенства, для чего для заданного значения аргумента х вычислить левую его часть и разложение, стоящее в правой части, с заданной погрешностью . Оценить число итераций, необходимых для достижения заданной точности.

[Sazary]

uses crt;

var
x,eps,sum : real;
numi : longint;
function stp(j : integer) : integer;
 begin
 if j mod 2 <> 0 then stp:=1
 else stp:=-1;
 end;

begin
clrscr;
write('Enter x: ');
readln(x);
write('Enter eps: ');
readln(eps);

numi:=0;
sum :=0;

repeat
 numi := numi + 1;
 sum:=sum + stp(numi)*sin(numi*x)/numi;
 if keypressed then break; {На случай, если зависнет}
until (abs(2*sum-x)<eps);

writeln('Numbers of iteration: ',numi);
readln;
end.

[Noxil]

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

uses crt;
sum:=sum + stp(numi)*sin(numi*x)/numi;

а зачем в сумму счетчик вставлять?

[Sazary]

Noxil Ну как же. Ведь каждое следующее слагаемое вычисляется по формуле (-1)^(n-1) * sin(n*x)/n
Вот тут-то он и нужен )

[Noxil]

аа, ясно. спасиба

[Jozephine]

ребят,может кто-нибудь помочь с задачкой на си++. условие похожее численно убедиться в справедливости равенства для чего для заданного значения аргумента x вычислить левую его часть и разложение стоящее в правой части с заданной погрешностью е. оценить скорость сходимости,для чего вывести число итераций n слагаемых или сомножителей необходимых для достижения заданной точности arctgx=x-x^3/3+x^5/5-...+(-1)^n *(x^2n+1)/2n+1+...