Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/29: Рейтинг темы: голосов - 29, средняя оценка - 4.72
0 / 0 / 0
Регистрация: 26.02.2013
Сообщений: 14
1

Написать рекурсивную функцию для нахождения n-го члена прогрессии

27.02.2013, 00:05. Показов 5609. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста решить, а то я что то не понимаю.
9) 1. Даны первый член и разность арифметической прогрессии. Написать рекурсивную функцию для нахождения: а) n-го члена прогрессии; б) суммы n первых членов прогрессии.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2013, 00:05
Ответы с готовыми решениями:

Написать рекурсивную функцию нахождения n-го члена прогрессии, суммы N первых членов прогрессии
Даны первый член и знаменатель геометрической прогрессии. Написать рекурсивную функцию...

Описать рекурсивную функцию для нахождения n-го члена геометрической прогрессии по первому члену прогрессии
Описать рекурсивную функцию для нахождения n-го члена геометриче- ской прогрессии по первому члену...

Составить рекурсивную функцию вычисления n-го члена арифметической прогрессии
Составить рекурсивную функцию вычисления n-го члена арифметической прогрессии 3, 7, … и вывести...

Написать рекурсивную программу вычисления n-ного члена геометрической прогрессии
написать рекурсивную программу вычисления n-ного члена геометрической прогрессии, я никак не пойму...

3
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.02.2013, 10:23 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
function An(a,d,n:integer):integer;
begin
if n=1 then An:=a
else An:=An(a,d,n-1)+d;
end;
function Sn(a,d,n:integer):integer;
begin
if n=1 then Sn:=a
else Sn:=Sn(a+d,d,n-1)+a;
end;
var a1,d,n:integer;
begin
write('A1=');readln(a1);
write('Разность=');readln(d);
write('N=');readln(n);
writeln('N-ый член=',An(a1,d,n));
write('Сумма первых N членов=',Sn(a1,d,n));
end.
1
0 / 0 / 0
Регистрация: 26.02.2013
Сообщений: 14
27.02.2013, 14:50  [ТС] 3
puporev а можете объяснить словами еще ?
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
27.02.2013, 15:32 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
function An(a,d,n:integer):integer;
begin
if n=1 then An:=a //если 1 член, то он равен первому
else An:=An(a,d,n-1)+d;//иначе он равен предыдушему + разность
end;
function Sn(a,d,n:integer):integer;
begin
if n=1 then Sn:=a//если 1 член, то сумма=ему
else Sn:=Sn(a+d,d,n-1)+a;//иначе сумма=предыдущей + очередной член ряда(вычисляется)
end;
Чтобы второе понять посмотри это.
http://inf.1september.ru/view_... =200800502
Не умею рассказывать.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.02.2013, 15:32

Написать рекурсивную функцию для вычисления k-ого члена последовательности Фибоначчи
помогите срочно! горю!

Написать рекурсивную функцию для нахождения суммы для любого n
Написать рекурсивную функцию для нахождения суммы для любого n, вводимого с клавиатуры:...

Написать рекурсивную функцию для нахождения произведения для любого k, вводимого с клавиатуры
Написать рекурсивную функцию для нахождения произведения для любого k, вводимого с клавиатуры:...

Массив. Написать рекурсивную функцию для нахождения индекса минимального элемента в массиве
написать рекурсивную функцию для нахождения индекса минимального элемента в массиве


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

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

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