(Delphi) Вычисление Sin(x)

[O'neeL]

Необходимо вычислить значение синуса с помощью первых семи членов ряда Тейлора.
Все работает, но результат выдает какой то бредовый.

function Fact(n:integer):integer;
begin
    if n < 0
      then result := 0
      else if ((n = 1) or (n = 0))
              then result := 1
              else result := n * fact(n - 1);
end;

function MySinEl(x: real; count: integer):real;
begin
  result := (Power((-1),2*count+1) / Fact(2*count+1)) * Power(x,2*count+1);
end;

function MySin(x: real; k: integer):real;
var i: integer;
begin
  for i:= 0 to k-1 do
      result := result + MySinEl(x,i);
end;

Вот как функция MySin вызывается

    x:=StrToFloat(InputX.Text);
    OutputSin.Text:=FloatToStr(MySin(x,7));

Что поправить?

[whatever]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function Fact(n:integer):integer;
begin
    if n < 0
      then result := 0
      else if ((n = 1) or (n = 0))
              then result := 1
              else result := n * fact(n - 1);
end;

function MySinEl(x: real; count: integer):real;
begin
  result := (Power((-1),2*count+1) / Fact(2*count+1)) * Power(x,2*count+1);
end;

function MySin(x: real; k: integer):real;
var i: integer;
begin
  result:=0;
  for i:= 0 to k-1 do
      result := result - MySinEl(x,i);//вот тут поставил минус
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x:real;
begin
  x:=strtofloat(edit1.Text);
  edit2.Text:=floattostr(mysin(x,7));
  edit3.Text:=floattostr(sin(x));
end;
initialization
decimalseparator:='.';

end.

P.S. чисто наугад.

[O'neeL]

только вот если ввести 1
то выдает -1,17520119400003, а стандартная функция -0,841470984807897
Если брать значения больше, то получается совсем бредятина

[s-andriano]

А 7 членов ряда Тейлора не гарантируют хоть какой-нибудь аппроксимации вдали от 0.
Хотите увеличить точность - берите больше членов.