Вычислить сумму ряда - Pascal

[Жиза]

Вычислить x-x^3/3!+x^5/5!-x^7/7!+⋯+(-1)^(N+1)*x^(2N+1)/(2N+1)!

[Serge_Bliznykov]

в данном случае удобно использовать реккурентную формулу:
каждый последующий член последовательности равен произведению предыдущего на -1*x^2 и отношения к (k-1)*k
примерно так:

k:=1;
sum := x;
q:=x;
while abs(q)>eps do begin
   Inc(k,2);
   q := (-1)*q*sqr(x)/(k*(k-1));
   sum := sum + q
end;

[digitalis]

sqr(x) за цикл вынести бы надо. На 286-м или Пентиум 1 жутко ускорило бы

[Serge_Bliznykov]

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

sqr(x) за цикл вынести бы надо

да. согласен.