Задача в делфи. Очень нужна ваша помощь!

Question

ln(1-x) = - x/1 - (x^2)/2 -( x^3)/3 - (x^4)/4 - .(R = 1) 
Написать программу с помощью while...do

Яна Федорович · Accepted Answer

{$apptype console} 
 
const 
 e = 0.000001; 
var 
 x, xi, l: real; 
 n: integer; 
begin 
 write('x? '); 
 readln(x); 
 xi := 1; 
 while abs(xi) > e do 
 begin 
 inc(n); 
 xi := xi * x; 
 l := l - xi / n; 
 end; 
 write('ln(1 - x): ', l:0:5); 
end.