Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 19.12.2014, 22:14   #1 (permalink)
vladislav95
Новичок
 
Регистрация: 19.12.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задача Turbo Pascal

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

Старый 19.12.2014, 22:14
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 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
По умолчанию

Очень нуждаюсь в помощи, ибо Паскаль проходил давно и не основательно.)
vladislav95 вне форума   Ответить с цитированием
Старый 19.12.2014, 22:37   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от vladislav95 Посмотреть сообщение
Очень нуждаюсь в помощи, ибо Паскаль проходил давно и не основательно.)
Да у нас 100000000 таких задач рассмотрено! Ну ладно, сейчас нарисую - делов-то на несколько минут!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 19.12.2014, 22:45   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,347
Сказал(а) спасибо: 288
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Готово, получите:
Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 19.12.2014, 22:47   #5 (permalink)
vladislav95
Новичок
 
Регистрация: 19.12.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.