ВЫчисление функции с помощью разложения в ряд.

[katris]

Я, кажется, уже писала... Прошу простить, но мне никак не разобраться.
Поэтому хочу обратиться за помощью вновь.

Текст задания:
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от х нач. до х кон. с шагом с точностью Е. Каждая строка должна содержать значение аргумента, значение функции и кол-во просуммированных элементов.

Вот такая формула:sin.jpg

Нам объясняли, как это сделать. Я всё делала так, как объясняли. Вышло вот так:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var xn,xk,dx,e,x,s,h,k:real;
F:extended;
a:integer;

begin

writeln ('xn='); readln (xn);
writeln ('xk='); readln (xk);
writeln ('dx='); readln (dx);

x:=xn;

while x<=xk do

begin

s:=x;
f:=1;
h:=x;
e:=0.001;
a:=1;
k:=k+1;

while (1/a)>=e do begin f:=f*(k+1)*(k+2);
if (a mod 2 = 0) then h:=h*sqr(x)
else h:=-h*sqr(x);
s:=s+(h/f);
a:=a+1;
end;

writeln ('x=',x:4:2,' f=',s:4:2,' n=',n:4:1);

x:=x+dx;

end;
readln;

end.

Нужно это решить двумя способами: с циклом while и циклом repeat. Я тут привела только первый выриант... так как думаю, если хорошо разобраться с одним, сделать воторой труда не составит.

Но почему-то у меня не получается, чтоб значения были верными - при каких-то значениях получается синус больше единицы, чего ведь быть не может...

Может мне кто-нибудь помочь найти ошибки?.. Или сделать какие-то поправки, дополнения?.. В общем, очень хотелось бы разобраться...

[DANGER999]

помогите пожалуйста решить.

Вычислить значение тригонометрических функций на основе разложения в ряд Маклорена
1) Вычислить с заданной точностью значения тригономентрических функций sin(x),cos(x) при x принадлежащем [x0,x1];
2) Оценить погрешности вычислений
3) Провести сравнение точности вычислений тригонометрических функций с использованием стандартных функций пакетов MathCad или Matlab(при разных значениях х)

заранее огромное спасибо.