Функция вычисления суммы ряда по формуле

[Shoshona]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure CalkFact(Zn:integer; var Rez:integer); 
var j: Integer; 
begin
Rez:=1; 
for j := 1 to Zn do Rez:=Rez*j; 
end; 

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,h:real; 
N:integer; 
i:integer; 
sum:real; 
ZnFact:integer; 
stroka:string;
begin 
Memo1.Clear; 
N:=StrToInt(Edit1.Text); 
x1:=StrToFloat(Edit2.Text); 
x2:=StrToFloat(Edit3.Text); 
h:=StrToFloat(Edit4.Text); 
repeat 
sum:=0; 
for i:=1 to n do
begin
CalkFact(i,ZnFact);
sum:=sum+cos(2*Pi*x1)/(exp(ln(2)*i)+sin(ZnFact));
end;
stroka:= 'f('+FloatToStr(x1)+') = '+ FloatToStrF(sum,ffFixed,7,3);
Memo1.Lines.Add(stroka);
x1:=x1+h; 
until x1>x2; 
end;


end.

[type_Oleg]

Для справки: уже при n=13 , 13! = 6227020800
А максимальное Integer = 2147483647
Поэтому при n>12 будет фигня всякая.
Так что делайте факториал например Double или Real
И вообще, зачем процедура, лучше функция , и лучше с рекурсией, например

function fFact(Zn:Integer):Double;
begin
 if Zn=0 then Result:=1 else Result:=Zn*fFact(Zn-1);
end;

А для степени есть функция Power

А еще лучше - вообще обойтись без степеней и факториалов, используя для вычислений следующих слагаемых предыдущие.

[Shoshona]

Спасибо учту!
Сейчас попробую!

[Shoshona]

У меня выбивает ошибку Floating point division by zero - это означает, что я делю где-то на ноль?

[Stilet]

Именно так. Там где есть операции деления поставь условия проверки на ноль.

[Аватар]

В знаменателе членов ряда ноль вообще не может быть. Откуда оно взялось?

[Shoshona]

Спасибо. Попробую!

[Serge_Bliznykov]

Сообщение от Аватар

В знаменателе членов ряда ноль вообще не может быть. Откуда оно взялось?

Shoshona, обратите внимание на пост Аватара!
Деления на ноль в данной формуле быть не может.
Это говорит об ошибке в вашем коде!