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

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

11.10.2015, 05:40. Показов 3526. Ответов 9
Метки нет (Все метки)

Доброе утро, форум.
Если кому не сложно, то помогите с программой, вернее найти ошибку в ней
Само задание :
"Составить программу для вычисления суммы членов бесконечного ряда с точностью до члена ряда, меньшего ε=0,001 при заданных значениях Х"
Пример для задания :
Вычисление суммы членов бесконечного ряда с точностью до члена ряда, меньшего ε



Вот сам код, тут есть какая-то ошибка, не объяснили какая, но программа неверно считает.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program lab3;
const pi=3.14;
var p,y,s,x,a:real; z,n,i:integer;
begin
x:=-2;
while x<1 do
begin
s:=(pi*pi)/3; i:=1; z:=1; p:=1; n:=1;
y:=cos(i*x)/p;
y:=sqr(x);
repeat
z:=z+1; n:=n+1; p:=1;
for z:= 1 to n do p:=p*z;
if i mod 2=0 then s:=s-4*a else s:=s+4*a;
i:=i+1;
y:=cos(i*x)/p;
until abs(a)<0.001;
writeln ('s= ', s:3:3);
x:=x+0.5;
halt;
end;
end.
Спасибо всем, кто ответит :3
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2015, 05:40
Ответы с готовыми решениями:

Вычислить сумму членов бесконечного ряда с точностью ε
Даны действительные числа X, E \left( 0&lt;x\leq 1,E&gt;0\right). Вычислить с точностью E:...

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

Вычислить сумму ряда с точностью до члена ряда, меньшего заданной точности
Вычислить сумму членов для следующих рядов с точностью до члена ряда, меньшего Е (заданная...

Найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps
найти сумму ряда S с точностью до члена ряда, по абсолютной величине меньшего eps = 0.0001. в чем...

9
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
11.10.2015, 08:53 2
Лучший ответ Сообщение было отмечено Oxi35 как решение

Решение

Приведенная формула неточная, например что там в знаменателях типа !3, это n!?
Вот программа по этой формуле, она считает неверно, хотя тоже квадрат чего-то.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var e,y,s,x:real;
    i:integer;
begin
e:=0.001;
x:=-2;
while x<=1 do
 begin
  i:=1;
  y:=1;
  s:=cos(x);
  while abs(y*cos(i*x))>e do
   begin
    i:=i+1;
    y:=-y/i;
    s:=s+y*cos(i*x);
   end;
  s:=pi*pi/3-4*s;
  writeln('x=',x:4:1,' s=',s:6:3,' x^2=',x*x:6:3);
  x:=x+0.5;
 end;
end.
В принципе это разложение функции y=x2 в ряд Фурье на интервале [-pi;pi]
Но в знаменателях дробей n2
Вот программа с этим условием, все сходится с заданной точностью, например при e=0.00001 сходимость до 3 знака после запятой.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var e,y,s,x:real;
    i:integer;
begin
e:=0.00001;
x:=-2;
while x<=2 do
 begin
  s:=cos(x);
  i:=1;
  y:=1;
  while abs(y*cos(i*x)/sqr(i))>e do
   begin
    i:=i+1;
    y:=-y;
    s:=s+y*cos(i*x)/sqr(i);
   end;
  s:=pi*pi/3-4*s;
  writeln('x=',x:4:1,' s=',s:6:3,' x^2=',x*x:6:3);
  x:=x+0.5;
 end;
end.
1
0 / 0 / 0
Регистрация: 11.10.2015
Сообщений: 8
11.10.2015, 09:08  [ТС] 3
В знаменателе идет факториал, если вы об этом.
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
11.10.2015, 09:11 4
Так факториал так не пишут, хотя формула все равно неверная.
0
0 / 0 / 0
Регистрация: 11.10.2015
Сообщений: 8
11.10.2015, 09:15  [ТС] 5
Извиняюсь, это моя оплошность, это я не так факториал написалa, но в конечном итоге получается так
Вычисление суммы членов бесконечного ряда с точностью до члена ряда, меньшего ε
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
11.10.2015, 09:26 6
Я написал Вам код по этой формуле(1 программа), но он считает неверно, спросите у преподавателя.
Второй код, когда в знаменателях n2 считает правильно.
Запустите обе программы и сравните.
0
0 / 0 / 0
Регистрация: 11.10.2015
Сообщений: 8
11.10.2015, 09:29  [ТС] 7
Благодарю, во вторник будет урок, спрошу у преподавателя, если не забуду, то сюда напишу, что было не правильно.
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
11.10.2015, 09:38 8
Может функция не y=x^2?
0
0 / 0 / 0
Регистрация: 11.10.2015
Сообщений: 8
14.10.2015, 11:20  [ТС] 9
Функция именно такая
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
14.10.2015, 11:33 10
Еще раз пишу что
Цитата Сообщение от Puporev Посмотреть сообщение
это разложение функции y=x2 в ряд Фурье на интервале [-pi;pi]
https://www.google.ru/url?sa=t... W_c5UCCVkQ
где в знаменателях не факториалы, а n^2.
Попробуйте объяснить это преподавателю. Для обоих случаев коды я Вам написал, первый считает неправильно, второй правильно, больше ничем вашему дурдому помочь не могу.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2015, 11:33
Помогаю со студенческими работами здесь

Вычисление суммы членов бесконечного ряда
Составить блок-схему алгоритма и программу для вычисления суммы членов бесконечного ряда с...

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

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

Вычислить значение суммы членов бесконечного ряда с заданной точностью
Помогите составить программу! 3адание к работе: Составить программу, позволяющую вычислить...


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

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

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