Цитата:
Сообщение от Linka
Vladimir_S, спасибо за ответ.
Но выдает ошибку: Stack overflow error.. (
|
Попробуйте такой вариант функции:
Код:
Function SUM(Xs:REAL):REAL;
VAR
a,S:REAL;
n:INTEGER;
Begin
a:=-SQR(2*Xs)/2;
S:=1+0.5*a;
n:=1;
Repeat
Inc(n);
a:=-a*SQR(2*Xs)/(2*n-1)/(2*n);
S:=S+0.5*a;
Until Abs(a)<1E-7;
SUM:=S;
End;
Надеюсь, поможет.