Паскаль

[Анастасия18]

Добрый день! Помогите пожалуйста разобраться в чем ошибка.. Вот задача: Необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся от xn до xk (xn, xk - вводятся с клавиатуры) с шагом h=(xk-xn)/10.
Program lab1;
Uses crt;
Var xn, xk, h, yx, sx:real;
Z:integer;
Function fact(n:integer):longint;
begin
fact:=n*fact(n-1);
end;
Function Sum(a:real):real;
Var a, S:real;
n:integer;
f:=longint;
Begin
for n:=0 to Z do
begin
f:=fact(2*n);
S:=S+(exp(ln(a)*2*n))/f;
end;
Sum:=S;
End;
BEGIN
clrscr;
write ('Введите начальное значение x=');
readln (xn);
write ('Введите конечное значение x=');
readln (xk);
write ('Введите Z=');
readln (Z);
h:=(xk-xn)/10.0;
while xn<=xk do
begin
yx:=(exp(xn)+exp(-xn))/2;
sx:=Sum(xn);
writeln ('при x='xn:2:1, 'Y(x)=',yx:2:10, 'S(x)=',sx:2:10);
xn:=xn+h;
end;
readln;
END.
Он выдает ошибку Error 202: Stack overflow error

[Д_М]

Бесконечная рекурсия при вычислении факториала.

Надо написать что-то вроде

if(n<=1) fact := 1;
else fact := n * fact(n-1);

Изв, на паскале не пишу, может чего с синтаксисом напутал, но идея, надеюсь, ясна.

[Анастасия18]

Исправила, но он теперь выдает ошибку Error 205: Floating point overflow.

[Вадим Мошев]

Сообщение от Анастасия18

Исправила, но он теперь выдает ошибку Error 205: Floating point overflow.

Возможно, он выдаёт такую ошибку из-за того, что действительная переменная (с плавающей точкой) становится слишком большой для своего диапазона (типа) (например, тип Real).

P.S. Пожалуйста, в следующий раз оформляйте ваш код с использованием кнопочки , делайте отступы между строк (отступы должны быть логически оправданы).
Нам неудобно читать, а у вас меньше шансов, что вам (быстро) помогут.