разложение SIN(X) в ряд Тейлора (Pascal)

[k0tone]

Не могу понять что я упустил... Вроде как всё считает и довольно таки правильно, НО при подстановке Х (начиная с 40) результат становится менее точный, а начиная с 49 так и вообще беда.
Собственно вот код: (Pascal)

program sin;
var x,stx,sint,e,fakt,z:extended;
    i:integer;
begin
write('Vvedite x=');
readln(x);
write('Vvedite tochnost e=');
readln(e);
{x:=(pi*x)/180;}
 stx:=x;
 fakt:=1;
 sint:=0;
 i:=0;
 z:=1;
while stx/fakt>=e do begin
                      sint:=sint+z*stx/fakt;
                      i:=i+2;
                      stx:=stx*x*x;
                      fakt:=fakt*(i+1)*i;
                      z:=z*(-1);
                     end;
writeln('kolichestvo elementov v razlozhenii =',i div 2);
writeln('znachenie sin(',x:6:6,')=',sint:6:6);
readln;
end.

[Риндера]

Нашла точно такую же программу, даже имена переменных одинаковые.
Быть может так и должно быть?

[Mad_Cat]

Вроде как всё считает и довольно таки правильно, НО при подстановке Х (начиная с 40) результат становится менее точный, а начиная с 49 так и вообще беда

может вам почитать про сходимость ряда?

[Sasha_Smirnov]

Сообщение от Риндера

Быть может так и должно быть?

Конечно! У нас же с вами не компьютер бесконечности!