Ошибка деления на 0 (delphi)

[Novikov_Dmitriy]

Всем доброго вечера!
Никак не могу разобраться почему вылетает ошибка.
Программа следующая:Вычисление функции разложением в ряд тейлора
Для cos(x) написал алгоритм

Stepen:=x*x; 
  factor:=2;
  a:=1;
  k:=2;
  drob:=-1;
  repeat
  begin
    a1:=a; 
    a:=a+drob* (Stepen/ factor); 
    k:=k+2; 
    Stepen:=Stepen*x*x;
    factor:=factor*((k)-1)*k; 
    drob:=drob*(-1);
   end;
   until (Abs(a-a1))<e; 
  ERFun.Text:=FloatToStr(a);   
ESFun.Text:=FloatToStr(Cos(x));

все работает, но только если x<4, при x=4 выдает ошибку деления на 0.
Деление в алгоритме только одно, в знаменателе переменная factor, которая изначальна равна 2, а дальше по циклу только увеличивается, однако на 34 итерации, она становится равна 0.
Если у кого-нибудь есть мысли на этот счет буду очень благодарен.

[phomm]

А Вы выводите значение factor куда-нибудь и увидите. Я предполагаю, что factor:=factor*((k)-1)*k; быстро растёт и уходит за пределы того типа, что Вы используете, наверное , в какой-то момент это значение используемого типа переменной трактуется как 0.
Я бы посоветовал пересмотреть алгоритм и вообще предоставить условия задачи, дабы оценить алгоритм со стороны.
В общем же случае, можно просто вставить проверку на 0 и пропускать часть операций при 0.

[Novikov_Dmitriy]

Да, ошибка была в типе переменной. Сам это понял почитав форум