Задача Turbo Pascal

vladislav95 · 19.12.2014, 22:14

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

.
Заранее благодарен!

vladislav95 · 19.12.2014, 22:23

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

Vladimir_S · 19.12.2014, 22:37

Цитата:

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

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

Да у нас 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

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

Код:

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.

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

19.12.2014, 22:14	#1 (permalink)
vladislav95 Новичок Регистрация: 19.12.2014 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача Turbo Pascal Здравствуйте! Нужна помощь с написанием программы в TurboPascal. Условие задачи: Для заданных значений x и n вычислить приближенное значение функции y=lnx, используя первые n членов из разложения в ряд Тейлора: . Заранее благодарен!

19.12.2014, 22:45	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Готово, получите: Код: 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.

19.12.2014, 22:14
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	На форуме создавались аналогичные по содержанию темы, ознакомьтесь с ними Turbo Pascal Turbo Pascal Turbo Pascal Turbo Pascal Turbo Pascal Turbo Pascal

19.12.2014, 22:23	#2 (permalink)
vladislav95 Новичок Регистрация: 19.12.2014 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Очень нуждаюсь в помощи, ибо Паскаль проходил давно и не основательно.)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070