Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 29.06.2015
Сообщений: 15
1

Вычислить сумму и найти число слагаемых, которые вошли в эту сумму

02.07.2015, 18:24. Показов 1462. Ответов 2
Метки нет (Все метки)

Вычислить сумму и найти число слагаемых, которые вошли в эту сумму. Процессы вычисление требуется остановить, когда слагаемое по модулю окажется меньше E(это слагаемое при вычислении суммы не учитывается)

∑((-1)^n) * ((n+1)x^n)/(3^n)
(n=0)
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.07.2015, 18:24
Ответы с готовыми решениями:

Вычислить сумму и найти число слагаемых, которые вошли в сумму
Вычислить сумму и найти число слагаемых, которые вошли в сумму. Процесс вычислений требуется...

Вычислить сумму и найти число слагаемых, которые вошли в сумму
ычислить сумму и найти число слагаемых, которые вошли в сумму.Процесс вычисления требуется...

Вычислить сумму и найти число слагаемых, которые вошли в сумму
Вычислить сумму и найти число слагаемых,которые вошли в сумму \sum_{n=0}^{\infty}\frac{x^n}{n!}...

Вычислить сумму и найти число слагаемых, которые вошли в сумму
Вычислить сумму и найти число слагаемых, которые вошли в сумму. Процесс вычислений требуется...

2
96 / 84 / 49
Регистрация: 17.09.2014
Сообщений: 670
02.07.2015, 18:59 2
MrKoIIIaK, паскаля под рукой не было, писал в делфи
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function step(a:real;x:integer):real;
  var t: real;i:longint;
  begin
    t:=a;
    for i:=1 to x-1 do
      t:=t*a;
    step:=t;
  end;
 
var x,eps,s:real; k,n:integer;
begin
  writeln('enter x');
  readln(x);
  writeln('enter eps');
  readln(eps);
  s:=x; // when n=0
  k:=1;
  n:=1;
  while abs(s)>=eps do
  begin
    s:=s+(n+1)*step(-1,n)*step(x,n)/step(3,n);
    k:=k+1;
  end;
  writeln ('sum=',s);
  writeln('k=',k)   ;
  readln
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5773 / 3473 / 2454
Регистрация: 22.11.2013
Сообщений: 9,778
Записей в блоге: 1
02.07.2015, 21:36 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  s, e, x, eps: Real;
  n: Longint;
begin
  Write('Введите eps и x: '); ReadLn(eps,x);
  if abs(x)>=3 then begin
    WriteLn('Ряд не сходится.'); Exit;
  end;
  n:=0; s:=0; x:=x/3; e:=1; { (-1)^0 * (0+1) * x^0 / 3^0 }
  while abs((n+1)*e)>=eps do begin
    s:=s+(n+1)*e;
    e:=-e*x; Inc(n); Write(n,#13);
  end;
  WriteLn('s=',s,', n=',n,', e=',(n+1)*e);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.07.2015, 21:36

Вычислить сумму и найти число слагаемых, которые вошли в сумму
Вычислить сумму и найти число слагаемых, которые вошли в сумму.Процесс вычислений требуется...

Вычислить сумму и найти число слагаемых, которые вошли в сумму
Вычислить сумму и найти число слагаемых, которые вошли в сумму. Процесс вычислений требуется...

Вычислить сумму и найти число слагаемых, которые вошли в сумму
Вычислить сумму и найти число слагаемых, которые вошли в сумму. Процесс вычислений требуется...

Вычислить сумму и найти число слагаемых, которые вошли в сумму
\sum_{n=0}^{\infty}\frac{(-1)^{n+1}x^{2n+1}}{(2n+1)(2n+3)} Вычислить сумму и найти число...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.