0 / 0 / 1
Регистрация: 25.05.2016
Сообщений: 17
1

Вычислить сумму бесконечного ряда с точностью е

28.05.2016, 19:32. Показов 1419. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program test;
var u, s :real;
z, n :integer;
fac :longint;
i :byte;
const e=1e-3; x=0.25;
begin
fac:=1;
s:=0;
n:=0;
u:=(exp(ln(ln(3))*n)/fac)*exp(ln(x)*n);
while abs(u)>e do
begin
for i:=2 to n do
fac:=fac*i;
s:=s+u;
n:=n+1;
u:=u+(exp(ln(ln(3))*n)/fac)*exp(ln(x)*n);
end;
writeln('s=', s:17:2);
end.
Выдает экситкод 215.

Где ошибка? Что делать?
Миниатюры
Вычислить сумму бесконечного ряда с точностью е  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.05.2016, 19:32
Ответы с готовыми решениями:

Вычислить сумму бесконечного ряда с точностью е
Написать программу для обчисления суммы ряда с точностью е. program test; var u, s :real; z, n...

Вычислить сумму членов бесконечного ряда с заданной точностью
Помогите пожалуйста решить задачу. Уже черт знает сколько мучаюсь. Очень надеюсь на вашу помощь.

Вычислить значение суммы бесконечного ряда с точностью
Вычислить значение суммы бесконечного ряда с точностью до члена ряда, по модулю меньшего...

Вычислить значение суммы бесконечного ряда с заданной точностью
Вычислить значение суммы бесконечного ряда с заданной точностью ε=10-4...

3
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
28.05.2016, 20:18 2
Лучший ответ Сообщение было отмечено Engenier как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program test;
const e=1e-3; x=0.25;
var u, s :real;
    n :integer;
begin
n:=0;
u:=1;
s:=u;
while abs(u)>e do
 begin
  n:=n+1;
  u:=u*ln(3)*x/n;
  s:=s+u;
 end;
write('s=', s:0:3);
end.
1
0 / 0 / 1
Регистрация: 25.05.2016
Сообщений: 17
29.05.2016, 00:40  [ТС] 3
А куда делись степени?
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
29.05.2016, 09:22 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
n:=0;
u:=1;//значение нулевого члена ряда
s:=u;
while abs(u)>e do
 begin
  n:=n+1;//увеличим номер
  u:=u*ln(3)*x/n;//домножим на ln(3)*x поделим на n получим ln^n(3)*x^n/n!
  s:=s+u;
 end;
0
29.05.2016, 09:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2016, 09:22
Помогаю со студенческими работами здесь

Циклы: вычислить значение суммы бесконечного ряда с заданной точностью
Доброй ночи, народ) помогите с кодом пожалуйсста: 3. Вычислить значение суммы бесконечного ряда с...

Вычислить сумму бесконечного ряда с точностью е
Знаю что похожих тем полно но не нашел решения на мою формулу, и вообще как это решается. Формула:...

Вычислить сумму членов бесконечного ряда с заданной точностью
Вычислить сумму членов бесконечного ряда с заданной точностью: eps = 0,5*10^-4 при x = 0,10. ...

Вычислить сумму бесконечного ряда c точностью ε=0.0001
Помогите, не получается сделать.. Вычислить сумму бесконечного ряда c точностью ε=0.0001....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru