Это в корне меняет дело
Код: Выбрать все
{$N+}
Var n : Integer;
x, eps, sum, temp : Real;
function Power(nei, Exponent : Extended ) : Extended;
Begin
Power := Exp(Exponent * Ln(nei));
End;
Begin
Write('x = '); Readln(x);
Write('Eps = '); Readln(eps);
n := 2;
Sum := x - 1;
Temp := 1;
If ABS(x - 1) < 1 Then
Begin
While ABS(Temp) > Eps Do
Begin
If n mod 2 = 1 Then
temp := 1 * Power((x - 1), n)/n
Else temp := -1 * Power((x - 1), n)/n;
Sum := Sum + Temp;
n := n + 1;
End;
Writeln;
Writeln(Sum:3:n)
End
Else Writeln('Error, -1 < x < 1 !');
Readln;
End.