Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Витек))
1 / 1 / 0
Регистрация: 13.09.2012
Сообщений: 19
1

Найти сумму ряда

21.03.2013, 10:15. Просмотров 637. Ответов 9
Метки нет (Все метки)

написать программу, которая по заданному числу А вычисляет сумму S: S=(A-1)/(2*A2)+(A2-2)/(3*A3)+(A3-3)/(4-A4)+…+(A29-29)/(30-A30) (A(цифра) степень) пожалуйста в Delphi
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2013, 10:15
Ответы с готовыми решениями:

Найти сумму ряда,Функциональный ряд S вычисляется с точностью \varepsilon , т.е. суммируются все члены ряда,
Найти сумму ряда \sum_{k=1 }^{\propto...

Найти сумму ряда
вычислить cos1+cos1,1+cos1,2+...+cos2

Найти сумму ряда (n^n)
Дано целое число N(>0). Найти сумму 1^1+2^2+...+N^N Ввод не в консоль....

Найти сумму ряда
Кто знает как решить, отзовитесь! Дан массив a, состоящий из n элементов....

Найти сумму ряда
Дано натуральное N. Вычислить...

9
HyperZen
488 / 242 / 55
Регистрация: 16.06.2011
Сообщений: 838
21.03.2013, 11:04 2
Простейший цикл, 3 переменные...
0
barbudo59
Я не экстрасенс
380 / 337 / 34
Регистрация: 22.01.2013
Сообщений: 1,126
21.03.2013, 14:18 3
[quote=Витек));4286165](A2-2)/(3*A3)+(A3-3)/(4-A4)+[/quote]
не-е, непростой случай...
0
Витек))
1 / 1 / 0
Регистрация: 13.09.2012
Сообщений: 19
21.03.2013, 14:22  [ТС] 4
я знаю!а вот как сделать я не знаю, а вот это шнягу всю печатать это долго, и не практично
0
barbudo59
Я не экстрасенс
380 / 337 / 34
Регистрация: 22.01.2013
Сообщений: 1,126
21.03.2013, 14:30 5
так всё-таки: * или - ???
0
Витек))
1 / 1 / 0
Регистрация: 13.09.2012
Сообщений: 19
21.03.2013, 14:32  [ТС] 6
помогите!!!пожалуйста
0
barbudo59
Я не экстрасенс
380 / 337 / 34
Регистрация: 22.01.2013
Сообщений: 1,126
21.03.2013, 14:39 7
Ещё раз для тех, кто в танке: так всё-таки: * или - в формуле суммы?
0
Витек))
1 / 1 / 0
Регистрация: 13.09.2012
Сообщений: 19
21.03.2013, 14:48  [ТС] 8
я не в танке я просто не догнал сразу!!!))*
0
barbudo59
Я не экстрасенс
380 / 337 / 34
Регистрация: 22.01.2013
Сообщений: 1,126
21.03.2013, 15:05 9
Для вычисления степени в Delphi используют конструкцию
Result := Exp(Y*Ln(X));
или подключить Math в uses, и можно использовать Power (внутри которой тот же метод).
В данном же случае оправданно отказаться от предлагаемого (и пойти своим путем )

Код
s:=0;
b:=a;
for i:=1 to 29 do
  begin
     b:=b*a;                //a в степени i+1
     s:=s+(a-i)/(i+1)/b;
  end;
Окончательное "оформление" за Вами.
1
GetMeHelp
16 / 16 / 3
Регистрация: 01.03.2013
Сообщений: 130
21.03.2013, 17:56 10
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
{$APPTYPE CONSOLE}
 
uses SysUtils, Math;
 
const Count = 30;
 
Var A, n, m, i: integer;
    S: extended;
 
begin
 
write('A = ');
readln(A);
 
S:= 0; n:= 1; m:= 2;
 
for i:= 1 to Count do
  begin
  S:= S + (Power(A,n)-n)/(Power(A,m)*m);
  Inc(n); Inc(m);
  end;
 
write('S = ', S);
readln;
 
end.
0
21.03.2013, 17:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2013, 17:56

Найти сумму ряда
Дано число K. Вычислить сумму S = (K-1/2) + (2K-1/3) + (3K-1/4) + ... +...

Найти сумму ряда
Найти сумму ряда: S=1 + 1/22 + 1/32 + 1/42 + 1/52 +...+ 1/n2 с заданной...

Найти сумму ряда
Здравствуйте! Помогите решить задачу: Вычислить сумму Z = 1 + 2 + 3 + ... ....


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

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

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