[N@stya]

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

Для решения задачи составить:
1) функцию пользователя;
2) рекурсивную функцию;
3) рекурсивную процедуру
Объединить их в одной программе и сравнить результаты работы.
Простую функцию я составила:

Код:

Function f1(n:integer;b1,q:real):real;
var i:integer;bn:real;
  begin
   bn:=b1;
for i:=1 to n-1  do
   bn:=bn*q;
  f1:=bn;
  end;

Помогите пожалуйста с рекурсивными процедурой и функцией

[lmikle]

Рекурсивня - это значит вызывающая сама себя. Если это функция, то она возвращает результат, если процедура, то она может вернуть результат только в виде var-параметра.

Код:

function f1_rec(n : integer; b1, q : double) : double;
begin
  if n <= 1 then result := b1 else result := q * f1_rec(n-1,b1,q);
end; 

ЗЫ. С процедурой сам справишься

[N@stya]

Огромное спасибо! С процедурой я разобралась