Последовательность. Ошибка

[Алькер]

Вычислить сумму последовательности, из элементов аk вычисляемых по формуле, с точностью е = 0.001. Выяснить сколько нужно слагаемых для достижения заданной точности. Значение k=1,2,…аk = sin(k!)/8kх.

program sum;
 const
 e = 0.001;
 var
 x, a, summa: real;
 k: integer;
 function Factorial(n: word): real;
 begin
 if n = 0 then
 Factorial := 1
 else
 Factorial := n * Factorial(n - 1);
 end;
 begin
 writeln('Введите x:');
 readln(x);
 summa := 0;
 k := 1;
 a := Factorial(k);
 while (abs(a) > e) do
 begin
 summa := summa + a;
 k := k + 1;
 a := (Factorial(k))/8*k*x;
 end;
 writeln('Сумма=', summa:5:2);
 writeln('Количество слагаемых=', k - 1);
 end.

Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека.

[ZX Spectrum-128]

Формулу неверно описали

 a :=sin (Factorial(k))/(8*k*x); // sin пропущен был

[Алькер]

Да да. Я уже заметила. Но ответ очень большой выдает. Иногда даже ответом инфинитив. Это нормально?

[ZX Spectrum-128]

Перед циклом почему а равно просто факториалу?

[Алькер]

program DvaMassiva;
var y, g : array [1..10] of real;
 k, n : integer;
begin
n := 0;
for k := 1 to 10 do
begin
y[k]:=ln(k) - 3;
if y[k] < 0 then
begin
n := n + 1;
g[n] := y[k];
end;
writeln('y(' , k, ')= ' , y[k]:7:2);
end;
if n = 0 then
writeln('В массиве отрицательных элементов нет')
else
for k := 1 to n do
writeln('g[' , k , ']= ' , g[k]:7:2);
end.

просто так решено у препода..по анологии так сказать.

[Алькер]

Вообщем проблема в скобках была! (8*х*K)

[ZX Spectrum-128]

То есть, всев порядке?