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

@Demon_Turok · Регистрация: 26.02.2013

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста решить, а то я что то не понимаю.
9) 1. Даны первый член и разность арифметической прогрессии. Написать рекурсивную функцию для нахождения: а) n-го члена прогрессии; б) суммы n первых членов прогрессии.

@Puporev · 27.02.2013, 10:23

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.

@Demon_Turok · 27.02.2013, 14:50 **[ТС]**

puporev а можете объяснить словами еще ?

@Puporev · 27.02.2013, 15:32

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
Не умею рассказывать.

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@Demon_Turok 0 / 0 / 0 Регистрация: 26.02.2013 Сообщений: 14

	Написать рекурсивную функцию для нахождения n-го члена прогрессии 27.02.2013, 00:05. Показов 6808. Ответов 3 Метки нет (Все метки) Помогите пожалуйста решить, а то я что то не понимаю. 9) 1. Даны первый член и разность арифметической прогрессии. Написать рекурсивную функцию для нахождения: а) n-го члена прогрессии; б) суммы n первых членов прогрессии. 0

@Demon_Turok 0 / 0 / 0 Регистрация: 26.02.2013 Сообщений: 14
	27.02.2013, 14:50 [ТС]
	puporev а можете объяснить словами еще ? 0

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

Решение

Решение