Ошибка деления на ноль

[nolz]

function fact(x:integer):integer;     
var otv,i:integer;                  
begin                                
   otv:=1;                            
   for i:=1 to x do otv:=otv*i;       
   fact:=otv;                         
end;

Как видно из кода функции, 0 здесь не получается.

   for k:=1 to 100 do Pk[k]:=step(y,k)*exp(y*(-1))/fact(k);

И здесь, при исплоьзовании функции fact тоже, однако Delphi выдаёт ошибку в этой строке:"Floating point division by zero".
В чём проблема, и как этого избежать?

[eoln]

100! огромное число и равно примерно 10^158
max integer (Delphi) чуть больше 2*10^9, т.е. 13! уже вычисляется не верно и в силу переполнения типа в некоторый момент может быть равным нулю.
Вместо integer надо использовать другие типы. Для 100! из стандартных остается только вещественные типы real или extended.

function fact(x:integer):extended;
var
  otv:extended;
  i: integer;
begin
   otv:=1;
   for i:=1 to x do otv:=otv*i;
   fact:=otv;
end;

[NiCola999]

у тебя при k=100 ф-я fact(k) вернет 0(большое число для int), отсюда деление на ноль

[nolz]

Заработало, спасибо всем большое.