Вычислить значение выражения

@Jooooohny · Регистрация: 09.09.2014

Author24 — интернет-сервис помощи студентам

Добрый день, форумчане помогите решить, сделать программу по Паскалю.

Вычислить

$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{n=1}^\infty \frac{(-1)^nx^{n+1}}{n+1}$

Для x=[0.2; 0.9] с шагом dx=0.1 с точностью ε=10^-4

@Cyborg Drone · 17.11.2014, 18:50

$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{n=1}^\infty \frac{(-1)^nx^{n+1}}{n+1}=\sum_{n=1}^\infty a_n$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?a_1=-\frac{x^2}{2}\ ;\ \ a_n=\frac{(-1)^nx^{n+1}}{n+1}\ ;$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?a_{n+1}=\frac{(-1)^{n+1}x^{n+2}}{n+2}=\frac{(-1)x(n+1)(-1)^nx^{n+1}}{(n+2)(n+1)}=\left. \frac{-x(n+1)}{n+2}a_n=\right| _{n := n+1} =\frac{-x\cdot n}{n+1}a_n$

Pascal

program Project1;
const e = 1e-4;
      lin = '+-----+----------+';
var x, a, s: real;
    i, n: integer;
begin
  writeln(lin);
  writeln('|  x  |     S    |');
  writeln(lin);
  for i := 2 to 9 do
    begin
      x := i / 10;
      write('| ', x:3:1, ' | ');
      n := 1;
      a := -x * x / 2;
      s := a;
      while abs(a) >= e do
        begin
          inc(n);
          a := -x * n * a / (n+1);
          s := s + a
        end;
      writeln(s:8:5, ' |')
    end;
  writeln(lin);
  readln
end.

@Jooooohny · 19.11.2014, 15:17 **[ТС]**

Спасибо.

@Jooooohny 0 / 0 / 0 Регистрация: 09.09.2014 Сообщений: 9
		1
	Вычислить значение выражения 17.11.2014, 15:45. Показов 1157. Ответов 2 Метки нет (Все метки) Добрый день, форумчане помогите решить, сделать программу по Паскалю. Вычислить $https://www.cyberforum.ru/cgi-bin/latex.cgi?S=\sum_{n=1}^\infty \frac{(-1)^nx^{n+1}}{n+1}$ Для x=[0.2; 0.9] с шагом dx=0.1 с точностью ε=10^-4 0

@Jooooohny 0 / 0 / 0 Регистрация: 09.09.2014 Сообщений: 9
	19.11.2014, 15:17 [ТС]	3
	Спасибо. 0

Вычислить значение выражения

Решение