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

@Dmitriy Kugach · Регистрация: 28.11.2010

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

Дали лабу,никак не могу понять как сделать программу,помогите.
"Используя рекурсивную функцию найдите n-й член арифметической прогрессии,с заданными первым членом A и разностью прогрессии d"

@yanyk1n · 02.01.2011, 23:03

Pascal

uses crt;
var a, d, n : longint;
 
function element(a, d, n : longint) : longint;
begin
  if n = 1 then element := a else
  element := element(a + d, d, n - 1);
end;
 
begin
  clrscr;
  write('A -> ');
  readln(a);
  write('D -> ');
  readln(d);
  write('N -> ');
  readln(n);
  writeln('Answer = ', element(a, d, n));
  readln;
end.

@use · 04.01.2011, 10:22

yanyk1n, ты несколько неверно интерпретируешь рекурсию. Ответ ты получаешь правильный, но ты изменил начальный член последовательности, что делать, конечно же, не следовало. Правильная рекурсивная функция для этого случая будет выглядеть так:

Pascal

function element(a, d, n : longint) : longint;
begin
  if n = 1 then element := a
  else element := element(a, d, n - 1) + d
end;

@Dmitriy Kugach 0 / 0 / 0 Регистрация: 28.11.2010 Сообщений: 14
		1
	Используя рекурсивную функцию найдите n-й член арифметической прогрессии 02.01.2011, 22:53. Показов 1472. Ответов 2 Метки нет (Все метки) Дали лабу,никак не могу понять как сделать программу,помогите. "Используя рекурсивную функцию найдите n-й член арифметической прогрессии,с заданными первым членом A и разностью прогрессии d" 0

	04.01.2011, 10:22

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

Решение