Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
RaiaNKnight
96 / 70 / 12
Регистрация: 29.06.2011
Сообщений: 465
Записей в блоге: 1
#1

Числовой ряд

29.06.2011, 12:29. Просмотров 821. Ответов 3
Метки нет (Все метки)

Привет всем. Задача такая: дан общий член числового ряда a[n]:=((3^n)*n!)/(2n)! и некоторое число eps. Нужно сосчитать сумму тех членов ряда, модуль которых больше или равен этому eps.
Я написал решение перебором, однако наш практик говорит о "возможности" выразить n из данной формулы. Я знаю, что последовательность убывающая, но это ничего не дает. Так вот, каким образом еще можно решить эту задачу? Я также проверяю несколько условий(eps>1, то сумма равна 0 и т.п)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2011, 12:29
Ответы с готовыми решениями:

Нужно записать числовой ряд
попробовал записать числовой ряд, но ряд и контрольная формула не совпадают....

числовой ряд и некоторое число E
Даны числовой ряд и некоторое число E. Найти сумму тех членов ряда, модуль...

Нужно записать числовой ряд в delphi
написал вот такой код, пишет floatpoint overflow i:=2; zn:=-1; sm1:=x;...

На числовой прямой покрасили n отрезков. Найти длину окрашенной части числовой прямой
На числовой прямой покрасили n отрезков. Известны координаты левого и правого...

Дан числовой ряд и некоторое число E
Найти сумму тех членов ряда, модуль которых больше или равен заданному E. Общий...

3
wason
17 / 17 / 8
Регистрация: 21.04.2010
Сообщений: 110
29.06.2011, 13:06 #2
по идее получаеся (3/2)^n
0
Mawrat
12824 / 5732 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
29.06.2011, 13:11 #3
Решение без проверки на сходимость.
Delphi
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses
  Math;
 
//Вычисление факториала.
function Fact(const aNum : Cardinal) : Int64;
var
  i : Integer;
begin
  Result := 1;
  for i := 2 to aNum do Result := Result * i;
end;
 
//Вычисление элемента для заданного aN.
function El(const aN : Cardinal) : Extended;
begin
  Result := Power(3, aN) * Fact(aN) / Fact(2 * aN);
end;
 
//Решение задачи.
procedure TForm1.Button1Click(Sender: TObject);
const
  Eps = 1e-6;
var
  i : Cardinal;
  Num, Sum : Extended;
begin
  Sum := 0;
  i := 0;
  Num := El(i);
  while Num >= Eps do begin
    Sum := Sum + Num;
    Inc(i);
    Num := El(i);
  end;
 
  ShowMessage(
    'Сумма всех элементов, не меньших, чем Eps = ' + FloatToStr(Eps)
    + #10 + 'равна: ' + FloatToStr(Sum)
    + #10 + 'Количество таких элементов: ' + IntToStr(i)
  );
end;
1
RaiaNKnight
96 / 70 / 12
Регистрация: 29.06.2011
Сообщений: 465
Записей в блоге: 1
29.06.2011, 13:12  [ТС] #4
Э, а каким образом n через факториалы выразить можно? О_о
Все разобрался. Собственно без исследования на сходимость, только перебором
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2011, 13:12

Числовой тип данных
я в программе использую тип данных одной из переменных - Real. но в один...

Задан числовой массив a[50]...
Помогите решить Задан числовой массив a. Определить, каких элементов больше...

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


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

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

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