[Kpyc]

Не хочет его считать, методом проб и ошибок выяснил, что вываливается он на n=34 с ошибкой деления на 0.
Полный листинг:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

unit Unit2;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls, Math;   type   TfrmMain = class(TForm)     edtX: TLabeledEdit;     lblResult: TLabel;     btnCalc: TButton;     function Summ(x: Extended): Extended;     function Fact(n: integer): integer;     procedure btnCalcClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   frmMain: TfrmMain;   x: extended;   implementation   {$R *.dfm}   procedure TfrmMain.btnCalcClick(Sender: TObject); begin   try     x := strtofloat(edtX.Text);     lblResult.Caption := 'erf(x) = ' + floattostr(summ(x));   except     lblResult.Caption := 'Ошибка!';   end; end;   function TfrmMain.Fact(n: integer): Integer; begin   if n > 1 then     Result := n * Fact(n - 1)   else     Result := 1; end;   function TfrmMain.Summ(x: Extended): Extended; var   n: Integer; begin   Result := 0;   for n := 0 to 33 do       Result := Result + power( -1, n) * power(x, 2*n + 1)/(fact(n) * (2*n + 1));   Result := Result * 2 / sqrt(pi); end;   end.

Как лечить?