Задача Turbo Pascal

[vladislav95]

Задача Turbo Pascal

Здравствуйте! Нужна помощь с написанием программы в TurboPascal. Условие задачи: Для заданных значений x и n вычислить приближенное значение функции y=lnx, используя первые n членов из разложения в ряд Тейлора:
.
Заранее благодарен!

 

[vladislav95]

Очень нуждаюсь в помощи, ибо Паскаль проходил давно и не основательно.)

 

[Vladimir_S]

Очень нуждаюсь в помощи, ибо Паскаль проходил давно и не основательно.)

Да у нас 100000000 таких задач рассмотрено! Ну ладно, сейчас нарисую - делов-то на несколько минут!

 

[Vladimir_S]

Готово, получите:

Var
 n,k:Integer;
 S,a,x:Real;

Begin
 Write('x (>0) = ');
 Readln(x);
 Write('n = ');
 Readln(n);
 a:=(x-1);
 S:=a;
 for k:=2 to n do
  begin
   a:=-a*(x-1)*(k-1)/k;
   S:=S+a;
  end;
 Writeln('Result: ',S:0:5);
 Writeln('Accurate value: ',Ln(x):0:5);
 Readln
End.

 

[vladislav95]

Готово, получите:

Var
 n,k:Integer;
 S,a,x:Real;

Begin
 Write('x (>0) = ');
 Readln(x);
 Write('n = ');
 Readln(n);
 a:=(x-1);
 S:=a;
 for k:=2 to n do
  begin
   a:=-a*(x-1)*(k-1)/k;
   S:=S+a;
  end;
 Writeln('Result: ',S:0:5);
 Writeln('Accurate value: ',Ln(x):0:5);
 Readln
End.

Огромное Вам спасибо!