Вычислить систему уравнений

[Obe1]

Нужна помощь) free pascal
z={ln(1-x), если x<=0
z={ln(1+x), если x>0
Для вычисления ln(1-x) воспользоваться равенством ln(1-x)=(сумма от n=1 до 50)=x^n/n

[Stilet]

Для вычисления ln(1-x) воспользоваться равенством ln(1-x)=(сумма от n=1 до 50)=x^n/n

function Myln(x:double);var n:integer; 
begin for n:=1 to 50 do Result:=Result+exp(n*ln(x))/n; end;

z={ln(1-x), если x<=0
z={ln(1+x), если x>0

if x<=0 then z:=Myln(x) else z:=ln(1+x);

[Obe1]

А можно полный код? Пожалуйста))

[Climber-18]

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

А можно полный код? Пожалуйста))

Пиши в скайп, обсудим. Skype: r.kotliarevskiy