Delphi : Вычисление сумм

[D][mon]

Странное что-то с cos(k*PI/4)
и Ваще результаты не правильные
{********************************** ******************}
Код вычислений
procedure TForm1.Button4Click(Sender: TObject);
var

x1, x2, x, h, a, s, y : extended;
N, k, c : integer;

begin
x1 := StrToFloat(Edit1.Text);
Memo1.Lines.Add('x1 = ' + Edit1.Text);
x2 := StrToFloat(Edit2.Text);
Memo1.Lines.Add('x2 = ' + Edit2.Text);
N := StrToInt(Edit3.Text);
Memo1.Lines.Add('N = ' + Edit3.Text);
h := StrToFloat(Edit4.Text);
Memo1.Lines.Add('H = ' + Edit4.Text);
x := x1;
Repeat
s := 0;
for k :=0 to N do
begin
s := s + cos(k*PI/4)/fact(k)*power(x,k) ;

end;
Memo1.Lines.Add('npи x = ' + FloatToStrF(x, ffFixed, 6, 2) + #9 +
' S(x) = ' + FloatToStrF(s, ffFixed, 14, 8)+#9 +
' Y(x) = ' + FloatToStrF(exp( x*cos(PI/4)*cos(x*sin(PI/4) )), ffFixed, 14, 8) );
x := x+h;
until x>x2;
Memo1.Lines.Add('Выполнено в:' + TimeToStr(time));
Memo1.Lines.Add('(***************** ********)');
end;
{********************************** ********************}
скриншот : (сюда почемуто не заливаецца)
http://freespace.by/download/c4646ad7bf

[p51x]

скриншот

ошибка... не для России

Странное что-то с cos(k*PI/4)
и Ваще результаты не правильные

Выучить и повторять: РАДИАННАЯ МЕРА УГЛА