Не используя стандартные функции, вычислить с точностью EPS>0

[AZelensky]

Вот задание:

Не используя стандартные функции, вычислить с точностью EPS>0
Y=LN(1+X)=X-X*X/2+X*X*X/3-...+(-1)^N*X^N/N+(-1)^N*X^X/N
Где |X|<1
(Где ^N означает число в степени N) Когда |(-1)^N*X^N/N |<EPS программа выполнена

[Stilet]

Не используя стандартные функции

А используя что?

[type_Oleg]

На каком языке-то ?
Если не использовать функцию возведения в степень, вычисляйте последующий член из предыдущего. Точнее, не весь член, а числитель (-1)^N*X^N
Последующий числитель = предыдущий умножить на (-X)

[Аватар]

Дык ряд Тейлора посчитать

[AZelensky]

Нужно на Pascal-е написать. Очень нужно! А то я не понимаю принцип

[type_Oleg]

Ну так операторы while или repeat есть. У них принципы простые.
Всего несколько строк будет все вычисление.

[AZelensky]

Ещё раз повторюсь: вот задание:
Не используя стандартные функции, вычислить с точностью EPS>0
Y=LN(1+X)=X-X*X/2+X*X*X/3-...+(-1)^N*X^N/N+(-1)^N*X^X/N
Где |X|<1
(Где ^N означает число в степени N) Когда |(-1)^N*X^N/N |<EPS программа выполнена.

А вот как я попробовал сделать, правильно?:

USES CRT;
Var
x, xx, s, member: REAL;
n, eps: INTEGER;
Begin
CLRSCR;
writeln('Enter X (X<1)'); READ(x);
while (x>=1) do
   begin
   writeln('Enter X (X<1)'); READ(x);
   end;
writeln('Enter EPS'); READ(eps);
while (eps<=0) do
   begin
   writeln('Enter EPS (EPS>0)'); READ(eps);
   end;
member:=x;
xx:=x;
s:=0;
n:=1;
ReadLN;
while abs(member)>=eps do
   begin
   s:=s+member;
   inc(n);
   xx:=-x*xx;
   member:=xx/N;
   end;
writeln('Result = ', member:1:eps);
ReadLN;
END.

[Stilet]

правильно?

Запусти - что выдает?

[AZelensky]

Сообщение от Stilet

Запусти - что выдает?

[Аватар]

Ну и правильно, с какой точностью задал, то и получил. Задай точность, например, 0.000001. А если задаешь вместо точности количество знаков после точки, судя по выдачи результата, то преобразуй в вид 10^-eps