Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2016, 11:44   #1
HuntMary
Новичок
Джуниор
 
Регистрация: 14.12.2016
Сообщений: 1
Восклицание Разложение функции в ряд Паскаль

Для х изменяющегося от a до b с шагом (b-a)/k, где (k=10), вычислить функцию f(x), используя ее разложение в степенной ряд в двух случаях:
а) для заданного n;
б) для заданной точности e (e=0.0001).
Для сравнения найти точное значение функции.

y=Xarctgx - lnкорень(1+x^2)
диапазон изменения 0,1<=x<=0,8
n=10
sum =
HuntMary вне форума Ответить с цитированием
Старый 18.12.2016, 11:37   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
function f(x:real):real;
begin
   Result:=x*arctan(x)-ln(Sqrt(1+x*x));
end;

function f1(x:real):real;
const e=0.0001;
var n:integer;
    z:-1..1;
    xn,s1:real;
begin
   Result:=0;
   n:=0;
   z:=-1;
   xn:=1;
   Repeat
      n:=n+2;
      z:=-z;
      xn:=xn*x*x;
      s1:=z*xn/n/(n-1);
      Result:=Result+s1;
   Until Abs(s1)<e;
end;

const k=10;
      a=0;
      b=1;
      dx=(b-a)/k;
var x,y:real;
begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      y:=f1(x);
      Write(x:5:2,'  ',y:5:5,'  ');
      y:=f(x);
      Writeln(y:5:5);
   Until x>=b;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разложение функции в ряд (на Delphi) JakeKnoxx Помощь студентам 2 11.03.2014 17:30
Разложение функции в ряд Тейлора (с++) wormix Помощь студентам 1 29.12.2012 14:55
Разложение функции в ряд Тейлора (с++) eleonora_zv Помощь студентам 4 29.12.2012 10:19
Разложение функции в ряд Тейлора в СИ Fobos45 Помощь студентам 5 12.04.2012 18:26
Разложение функции в ряд Dmitry333 Помощь студентам 10 23.01.2012 16:49