Вычислить и вывести на экран в виде таблицы значения функции arth(x), заданной с помощью ряда Тейлора

@Ispalin · Регистрация: 21.01.2015

Вычислить и вывести на экран в виде таблицы значения функции, заданной с по-
мощью ряда Тейлора, на интервале от x-нач до x-кон с шагом dx с точностью ε. Та-
блицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать
значение аргумента, значение функции и количество просуммированных членов
ряда.
С комментариями пожалуйста!

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\text{Arth}x=\sum_{n=0}^\infty \,\frac{1}{{(2n+1)x}^{2n+1}}=\frac{1}{x}+\frac{1}{{3x}^3}+\frac{1}{{5x}^5}+...,\ \ \ |x|\,>\,1$

@JuriiMW · 22.01.2015, 07:44

Pascal

function Sum(X, eps : Real; var N : Integer) : Real;
var
  S, Sl : Real;
begin
  N := 0;
  if Abs(X) <= 1 then
    begin Sum := 0; Exit; end;
    
  Sl := 1/X;  S := Sl;
  repeat
    Inc(N);
    Sl := Sl / X / X;
    S := S + Sl / (N*2 - 1);
  until Abs(Sl/ (N*2 - 1)) < eps;
  Sum := S;
end;
 
var
  eps, X, Y, X0, X1, dX : Real;
  N : Integer;
begin
  Write(' Начальное значение X = '); ReadLn(X0);
  Write('  Конечное значение X = '); ReadLn(X1);
  Write('       Размер шага dX = '); ReadLn(dX);
  Write('Значение точности eps = '); ReadLn(eps);
  WriteLn;
  
  WriteLn('  X        |  Arth(X)  |    N');
  WriteLn('--------------------------------');
  X := X0;
  repeat
    Y := Sum(X, eps, N);
    if N = 0 then
      WriteLn(X:10:4, ' |    n/a    | ', N:4)
    else
      WriteLn(X:10:4, ' |', Y:10:4, ' | ', N:4);
    X := X + dX;
  until X > X1;
end.

@BrainStew · 29.05.2016, 10:33

можете помочь с этим же заданием, только устроить его с циклом While?

@JuriiMW · 30.05.2016, 05:44

Всего то:

Pascal

1	while X <= X1 do

@Ispalin 1 / 1 / 0 Регистрация: 21.01.2015 Сообщений: 8
		1
	Вычислить и вывести на экран в виде таблицы значения функции arth(x), заданной с помощью ряда Тейлора 21.01.2015, 20:58. Показов 1790. Ответов 3 Метки нет (Все метки) Вычислить и вывести на экран в виде таблицы значения функции, заданной с по- мощью ряда Тейлора, на интервале от x-нач до x-кон с шагом dx с точностью ε. Та- блицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда. С комментариями пожалуйста! $https://www.cyberforum.ru/cgi-bin/latex.cgi?\text{Arth}x=\sum_{n=0}^\infty \,\frac{1}{{(2n+1)x}^{2n+1}}=\frac{1}{x}+\frac{1}{{3x}^3}+\frac{1}{{5x}^5}+...,\ \ \ \|x\|\,>\,1$ __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@BrainStew 0 / 0 / 0 Регистрация: 29.05.2016 Сообщений: 1
	29.05.2016, 10:33	3
	можете помочь с этим же заданием, только устроить его с циклом While? 0

Опции темы

Вычислить и вывести на экран в виде таблицы значения функции arth(x), заданной с помощью ряда Тейлора

Решение