Натуральный логарифм

[Granus]

не могу найти ряд для его вычисления. все, что пробовал дают одинаковые и очень неточные результаты помогите

[unicode]

по моему вот так можно:

writeln('Введите число х');
readln(x);
y:=ln(x);
writeln('Логарифм с числа х - ', y);

[Sazary]

unicode, похоже, ТС нужен именно ряд.

Granus, а вот этот вам не подходит?

или вот такой:

[Granus]

я ими и пользовался)
*все мы любим википедию*
но они работают как то не точно
точнее совсем не точно

[Sazary]

Ну вот, например. 7 знаков после запятой совпадают.

uses crt;

function my_ln(x : extended) : extended;
const eps = 0.00000001;
var tek,rez,b : extended;
i : longint;
begin
rez := 0;
b := x-1;
i := 1;
tek := b;
while abs(tek)>=eps do
 begin
 rez := rez + tek;
 inc(i);
 b := -b*(x-1);
 tek := b/i;
 end;
my_ln := rez;
end;

begin
clrscr;
writeln('___ln(0.5) = ',ln(0.5):0:10);
writeln('my_ln(0.5) = ',my_ln(0.5):0:10);

readln;
end.

___ln(0.5) = -0.6931471806
my_ln(0.5) = -0.6931471706

[Granus]

все, спасибо)))
переписал алгоритм, все хорошо)
это у меня руки кривые)

[_Dmitry]

У каждой формулы есть пределы применимости.
Первую можно применять только для (-1 < x <= 1).
Во второй аргумент у логарифма обозначте через z=(1+x)/(1-x), затем отсюда выражаем x и подставляем в данный ряд. Получается формула для вычисления логарифма в пределах (0 < z < +бесконечность).