Вычисление функции с помощью разложения в степенной ряд - Pascal

Формулировка задачи:

Составить программу для вычисления значения функции y=ln(1-x) с помощью разложения функции в степенной ряд: Ln(1-x) =-x/1-(x)^2/2-(x)^3/3-(x)^4/4...-(x)^n/n+... Помогите пжл.


textual

Код к задаче: «Вычисление функции с помощью разложения в степенной ряд - Pascal»

uses crt;
var x,e,t,s:real;
    n:integer;
begin
clrscr;
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('e [10^-6..10^-4] e=');
readln(e);
until(e>=0.000001)and(e<=0.0001);
n:=1;
t:=x;
s:=-t;
while abs(t)/n>e do
 begin
  n:=n+1;
  t:=t*x;
  s:=s-t/n;
 end;
writeln('S=',s:0:6);
write('ln(1-x)=',ln(1-x):0:6);
readln
end.

Блок-схема:

Блок-схема к задаче: Вычисление функции с помощью разложения в степенной ряд - Pascal
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.600 из 5

Источник