Ряды (не совсем правильно работает)

[pesik.aravir]

Я приближенно считаю sin(8x) при разложении в ряд Тейлора. Начиная примерно от x=5 приближенное значение совсем не совпадает с стандартным. Как исправить?
Вот мой код:

Program lab5;
var x,res,sum,u0,u1,e: real;
k: integer;
begin
writeln('vvedite x'); readln(x);
x:=x*8;
res:=sin(x);
e:=0.0000005;
sum:=x;
u0:=x;
k:=1;
while ABS(u0)>e do
begin
u1:=-u0*x*x/(2*k*(2*k+1));
sum:=sum + u1;
u0:=u1;
k:=k+1;
end;
writeln('to4noe zna4enie=',res);
writeln('priblizhennoe zna4enie=',sum);
readln;
end.

[Oleg Osipov]

используйте extended вместо real
скорее всего просто переполнение

[Sweta]

Напишите формулу по которой считаете. Мне кажется, что не учитываете знакопеременую (-1).

[pesik.aravir]

u1:=-u0*x*x/(2*k*(2*k+1));
Вот формула вычисления следующего члена ряда через предыдущий. Там есть -1.
Поставила extended - не помогло.
неправильно считает начиная с x=6.