Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
W0rtX
1 / 1 / 0
Регистрация: 11.12.2016
Сообщений: 95
1

Сумма ряда

05.05.2017, 20:44. Просмотров 901. Ответов 9
Метки нет (Все метки)

Сумма ряда

Вот есть такое задание, вот только не понятно, что такое X
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2017, 20:44
Ответы с готовыми решениями:

Сумма членов ряда
помогите написать программу даны действительные числа x и eps (x<>0; eps>0)...

Найти номер члена ряда, начиная с которого сумма ряда будет больше заданного А
Всем привет! Мы еще даже не изучали эту тему с "Суммой ряда", а просят найти...

Область сходимости степенного ряда. Сумма степенного ряда.
Проверьте, пожалуйста, этот пример 1. Найти область сходимости ряда...

Сумма ряда
a)Дано целое число N ( > 1). Вывести наименьшее из целых чисел K, для которых...

Сумма ряда
Дано действительное число х. Hе используя стандаpтные функции (за исключением...

9
Hretgir
439 / 79 / 2
Регистрация: 25.01.2012
Сообщений: 3,091
Записей в блоге: 23
05.05.2017, 21:18 2
Величина.
0
W0rtX
1 / 1 / 0
Регистрация: 11.12.2016
Сообщений: 95
10.05.2017, 17:38  [ТС] 3
Hretgir, что это за величина, и где ее взять?

Добавлено через 1 минуту
Hretgir, это же не уравнение, где можно посчитать его, а сумма ряда, только в сумме ряда не должно быть иксов, Там же n - где n это число от i до k, и сумма ряда это суммирование от i до k
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26149 / 17526 / 6950
Регистрация: 22.10.2011
Сообщений: 30,864
Записей в блоге: 6
10.05.2017, 18:02 4
Цитата Сообщение от W0rtX Посмотреть сообщение
только в сумме ряда не должно быть иксов
С чего бы это? Почему в выражении для проверки X есть, а в сумме ряда его не должно быть?

Вот так ряд считается:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses math;
var
  x : double;
  p, s : double;
  m : integer;
begin
  x := 0.23;
  writeln(power(x + 1, 5/8)); // проверочное значение
 
  s := 1; p := 5*x/8; m := 1;
  repeat
    s := s + p;
    p := - p * x * (3 + pred(m) * 8) / succ(m) / 8;
    inc(m);
  until abs(p) < 1E-5;
  writeln(s); // найденная сумма
end.
0
W0rtX
1 / 1 / 0
Регистрация: 11.12.2016
Сообщений: 95
10.05.2017, 19:55  [ТС] 5
volvo, а откуда взялось, что x=0.23?

Добавлено через 18 минут
volvo, хотя вроде бы понял, то есть можно сделать: x:=StrToFloat(Edit1.Text); ?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26149 / 17526 / 6950
Регистрация: 22.10.2011
Сообщений: 30,864
Записей в блоге: 6
10.05.2017, 20:17 6
Цитата Сообщение от W0rtX Посмотреть сообщение
то есть можно сделать: x:=StrToFloat(Edit1.Text); ?
Ну да, как-то так, я взял значение с потолка для теста
0
W0rtX
1 / 1 / 0
Регистрация: 11.12.2016
Сообщений: 95
10.05.2017, 21:16  [ТС] 7
volvo, а вот еще вопрос
У меня там факториал в сумме в знаменателе 2!,3!.....n!
я написал функцию факториала
Pascal
1
2
3
4
5
6
7
function Factorial(n:integer): longint;
begin
  If n<=1 then
   Factorial:=1
  else
   Factorial:=n*Factorial(n-1);
end;
И добавил в процедуру как раз ввод x с клавиатуры
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var
  x:double;
  p,s:double;
  m:integer;
begin
  x:=StrToFloat(Edit1.Text);
  Label1.Caption:=FloatToStr(power(x + 1, 5/8));
  s:=1; p:=5*x/8; m:=1;
  repeat
   s:=s+p;
   p:=-p*x*(3+pred(m)*8)/Factorial(succ(m))/8;
   Inc(m);
  until abs(p)<1E-5;
  Label2.Caption:=FloatToStr(s);
end;
И теперь та точность, которая была заявлена не работает
То есть теперь получается так
Проверочное значение: 3,064393
Найденная сумма: 3,117780

А еще, почему-то если не добавлять факториал, то с вводом с клавиатуры "Х" не работает, и ссылается на эту строку
Pascal
1
p:=-p*x*(3+pred(m)*8)/(succ(m))/8;
External: SIGFPE
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26149 / 17526 / 6950
Регистрация: 22.10.2011
Сообщений: 30,864
Записей в блоге: 6
10.05.2017, 23:55 8
Факториал в знаменателе вычисляется постоянным домножением знаменателя на succ(m), то есть на m+1, так что не надо добавлять того, чего я не добавил. Я не забыл, просто суммы рядов, в которых присутствует факториал, обычно находятся без прямого вычисления этого самого факториала.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
  x : double;
  p, s : double;
  m : integer;
begin
  x := StrToFloat(Edit1.Text);
  Label1.Caption := Format('Проверка: %0.10f', [power(x + 1, 5/8)]);
 
  s := 1; p := 5*x/8; m := 1;
  repeat
    s := s + p;
    p := - p * x * (3 + pred(m) * 8) / succ(m) / 8;
    inc(m);
  until abs(p) < 1E-5;
  Label2.Caption := Format('Сумма: %0.10f', [s]);
end;
вполне достаточно
0
W0rtX
1 / 1 / 0
Регистрация: 11.12.2016
Сообщений: 95
12.05.2017, 20:05  [ТС] 9
volvo, все равно ссылается на ошибку External: SIGFPE
только не понимаю, какая разница, если задавать в программе (что работает), или с клавиатуры (выдает ошибку)

Добавлено через 20 часов 58 минут
volvo, если ввести больше единицы, то выдает ошибку
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26149 / 17526 / 6950
Регистрация: 22.10.2011
Сообщений: 30,864
Записей в блоге: 6
12.05.2017, 20:39 10
Лучший ответ Сообщение было отмечено W0rtX как решение

Решение

Цитата Сообщение от W0rtX Посмотреть сообщение
если ввести больше единицы, то выдает ошибку
Потому что область сходимости приведенного ряда: |x| <= 1, при остальных значениях ряд расходится, и искать его сумму нельзя.
1
12.05.2017, 20:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2017, 20:39

Сумма ряда
Доброе время суток! Помогите подправить код, если он не верен для данной...

Сумма ряда
Пожалуйста помогите решить, Вычислить сумму ряда с точностью =10-4, 10-6:...

Сумма ряда.
Вычислить сумму ряда с заданной степенью точности a(alpha)=0,001


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

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

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