Опубликовано 7 лет назад по предмету Информатика от Vovchikkuz

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

Ответ

Ответ дан sinbad7

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real;begin if n = 1 then arif_mem := a; if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b;end;

function arif_sum(a, b: real; n: integer): real;begin if n = 1 then arif_sum := a; if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n);end;

begin write('введите первый член прогрессии:'); readln(a); write('введите разность прогрессии:'); readln(b); write('введите номер члена прогрессии:'); readln(n); writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2); writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2);end.

Не тот ответ, который вам нужен?

Найди нужный

Самые новые вопросы

Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

Другие предметы - 1 год назад

На какие расы делятся население земли

Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Задай вопрос

Лучшие за месяц

1

Oksana Gordienko
+798, 2 награды
2

Bianca
+743, 4 награды
3

Monna
+702, 2 награды
4

Brawer
+646, 3 награды
5

Ольга М.А.
+10.5K, 4 награды
6

Kovaleva_08
+522, 1 награда
7

Serebro
+495, 3 награды
8

Laguna
+489, 2 награды
9

Katerina_kiev
+441, 3 награды
10

Мусиенко Денис
+402, 2 награды

Интересные статьи: