Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся....

[EVIL]

Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд
S(x) для x изменяющихся от a до b с заданным количеством шагов M и
точностью e. Близость значений S(x) и Y(x) во всем диапазоне значений x
указывает на правильность вычисления S(x) и Y(x).

Интервал дан от 0.1 до 1
Шаг таблицы 0.001
Погрешность 0.0001
S(x) от 0 до бесконечности ((cos n Pi/4)/n!)*x (x в степени n)
Y(x) равен e(в степени x*cos Pi/4)*cos(x*sin Pi/4)

НАписал я программу, но есть одно НО! Значения в таблице что она выдаёт должны быть почти одинаковыми, а у меня отличаются и причём нормально так отличаются.
Вот код программы:
unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.clear
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,x,w,s,eps:extended;
k:integer;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.Text);
h:=strtofloat(edit3.text);
eps:=strtofloat(edit4.text);
x:=a;
repeat
s:=1; w:=1; k:=0;
repeat
inc(k);
w:=w*(cos(k*Pi/4)*x)/k;
s:=s+w;
until abs(w)<eps;
memo1.Lines.Add(floattostrf(x,fffix ed,5,2)
+' '+floattostrf(s,fffixed,9,6)+' '
+floattostrf(exp(x*cos(Pi/4))*cos(x*sin(Pi/4)),fffixed,9,6)+
' '+inttostr(k));
x:=x+h;
until x>b+0.0000000001;
end;

end.

[KORT]

Посмотри в этом архиве, там добавишь только погрешность, и изменишь функцию. Остальное должно подойти.
ЗЫ Классный аватор

[EVIL]

Спасибо!
Насчёт аватара согласен )))

[Zz1n]

Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от Xn до Xk с заданным количеством шагов n (h=(Xk-Xn)/M ). Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на пра-вильность вычисления S(x) и Y(x).

Xn=0,1
Xk=1
S(x)=(X в степени (2n+1))/(2n+1)! n от нуля до бесконечности
Y(x)=('e' в степени 'x' - 'e' в степени '-x')/2
n=100

мудохался целые сутки над этой задачей так ничего и не получилось. может кто-нибудь поможет с кодом?

в приложение точное задание. вариант 6. не догоняю. помогите плз