Технический форум - Задача Turbo Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача Turbo Pascal (http://www.tehnari.ru/f41/t100190/)

vladislav95

19.12.2014 22:14

Задача Turbo Pascal

Вложений: 1

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

vladislav95

19.12.2014 22:23

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

Vladimir_S

19.12.2014 22:37

Цитата:

Сообщение от vladislav95 (Сообщение 1089560)

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

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

Vladimir_S

19.12.2014 22:45

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

Код:

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

19.12.2014 22:47

Цитата:

Сообщение от Vladimir_S (Сообщение 1089563)

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

Код:

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.

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

Часовой пояс GMT +4, время: 10:17.