Программа подсчета суммы ряда

[Lilen]

найти сумму ряда: 1-x^2/2! + x^4/4 - ... + (-1)^n * (x^2*n)/(2n!)
конечным результатом должно быть выражение cosx, т.е. какое-то значение косинуса. Написала программу, не работает, уже вся измучилась, не знаю что делать, выдает 207 ошибку после запуска. Помогите, пожалуйста, исправить программу...

Program summarada;
uses crt;
var n,i,x:integer;
a,s,R:real;

function fact(x:integer):longint;
var z:longint;
i:integer;
begin
z:=1;
for i:=1 to n do
z:=z*i;
fact:=z;
end;

Function Pow (A,B:Real):Real;
{ vozvedenie v stepen }
Var T:Real;
Begin
T := Abs(A);
If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
Else Pow := Exp(B*Ln(T));
End;
begin
ClrScr;
writeln('vvedite kolichestvo clagaembIh n = ');
readln(n);
writeln('vvedite x = ');
readln(x);
S:=0;
for i:=1 to n do
begin
a:=(Pow (x, 2*n)) / (2*fact(x));
S:=S+(exp(ln(-1)*i))*a;
end;
R:=1+S;
writeln('SUMMA = ', R);
readkey;
End.

[MadHamster]

Вы пытаетесь взять логарифм от -1...

[ViktorR]

Который раз наблюдаю принципиальную ошибку в решении подобных задач - попытка решить в лоб.
Предлагаю поступить так:
1. Зайти в раздел: Полезная литература. Паскаль. Сразу перейдите на последнюю страницу.
2. Скачайте книжку: Т.А. Павловская, Программирование на ЯВУ. Паскаль. (и поскорее, пока никто другой не скачал )
3. Открываете на стр. 54 и читаете как решить подобную задачу)
4. Используем приведенный код и дорабатываем до своего.
5. Получаем удовольствие.

В общем случае: Это ряд Тейлора. Каждый последующий член может быть получен из предыдущего путем умножения на некоторый коэффициент:
a(n+1) = K*a(n) - тут в скобках индексы.

В вашем случае общий вид члена ряда:
a(n) = ((-1)^n)*(x^2n)/(2*n)!.

Коэфициент:
K= a(n+1)/a(n) = -1/((2*n+1)*(2*n+2)).

И т.д. ....