Ошибка в Delphi (деление на ноль)

[AnnNoob]

Помогите, пожалуйста, разобраться!
Вылазит вот такая ошибка в выделеной строчке.
При том, что нуля в знаменателе просто быть не может.

function TForm2.igams(a: real;x: integer): extended;
var g,sum: real;
    i: integer;
    f: array [0..4095] of integer;
const e:real=2.72;
begin
  f[0]:=1;
  for i:=1 to x-1 do
  f[i]:=f[i-1]*i;
  sum:=0;
  for i:=0 to x-1 do
  sum:=sum+exp(i*ln(a))/f[i];
  g:=1 - exp(-a*ln(e))*sum;
  igams:=1-g;
end;

[s-andriano]

А чего непонятного то?
В выделенной строчке единственная операция деления, значит, именно f[i] и равен нулю.
И вместо того, чтобы утверждать "не может" - взять, да и посмотреть.
Со своей стороны могу сказать, что чего там не может быть, так это того, что Вы предполагаете там иметь:
1. Нигде не проверяется, что x меньше 4095, следовательно, возможен выход за пределы массива, порча памяти и совершенно непредсказуемое поведение.
2. Факториал от 4096 - слишком много, чтобы получить это число хотя бы в каком-то из стандартных типов.

Так что Ваша программа, несомненно, содержит логические ошибки. А какие именно - сказать невозможно, не зная условия задачи.

[Аватар]

Для Integer 18! уже слишком много и где-то для 34! в массиве f ноль будет после всех переполнений