Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
LegionuS
0 / 0 / 0
Регистрация: 29.09.2010
Сообщений: 13
#1

Рекурсия: вычислить сумму произведений натуральных чисел

29.09.2010, 13:32. Просмотров 903. Ответов 1
Метки нет (Все метки)

Цель работы: Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику задачи.

Задача: Дано натуральное число п. Вычислить: 1 2 + 2 3 4 + … + n (n + 1) … 2n.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.09.2010, 13:32
Ответы с готовыми решениями:

Рекурсия: сумма произведений соседних натуральных чисел
СРОЧНО!!!! пожалуйста решите! Дано натуральное число n. Вычислить 1*2+2*3+3*4+…...

Дано п вещественных чисел. Вычислить сумму произведений каждого из этих чисел на его номер с конца последовательности
Вот задача помогите: Дано п вещественных чисел. Вычислить сумму произведений...

Дано n вещественных чисел. Вычислить сумму произведений каждого из этих чисел на его номер с конца последовательности
Решите задачу....пожалуйста... Дано n вещественных чисел. Вычислить сумму...

Вычислить сумму произведений всех пар соседних чисел
Здравствуйте,не могу решить две задачи=(Помогите пожалуйста=) 1)Задан...

Вычислить сумму произведений всех пар соседних чисел массива
Задан одномерный числовой массив. Вычислить сумму произведений всех пар...

1
Puporev
Модератор
54349 / 41942 / 28977
Регистрация: 18.05.2008
Сообщений: 98,788
29.09.2010, 19:59 #2
Лучший ответ Сообщение было отмечено LegionuS как решение

Решение

Что-то одной функцией не придумал, поэтому 2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
function Sum(n:integer):extended;
function Fak(n:integer):extended;
begin
if n=1 then Fak:=1 else Fak:=Fak(n-1)*n;
end;
begin
if n=1 then Sum:=2
else Sum:=Sum(n-1)+Fak(2*n)/Fak(n-1);
end;
var a:integer;
begin
clrscr;
write('a=');
readln(a);
write('Summa=',Sum(a):0:0);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.09.2010, 19:59

Вычислить сумму произведений всех пар соседних чисел - массивы
Вычислить сумму произведений всех пар соседних чисел - задача на одномерный...

Вычислить сумму произведений всех троек соседних чисел массива
Дан одномерный числовой массив Т(к).Вычислить сумму произведений всех троек...

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


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

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

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