Рекурсия в Pascal

[JohnyJ]

Разработать программу по алгоритму с использованием рекурсивной функции и без использования рекурсивной функции.


Программа с использованием:

program Rekursia (input, output);
var n: integer;
f: real;
function Rekurs(n1:real): real;
var i,n2:integer;
   begin
     n2:=trunc(n1);
      for i:=1 to n2 do
      if (n2 = 1) then
      Rekurs := 3
      else
      Rekurs:= Rekurs((2*i + 1)/ exp(ln(i)*3));
      Rekurs:= f;
   end;
 
 
 
    begin
       writeln ('Enter n');
       readln (n);
       f:= Rekurs (n);
       writeln (f)
    end.

Ошибка "StackOverflowException: Программа завершена из-за переполнения программного стека"

Условие:

[BDA]

1) Для оформления кода используйте кнопочку # (Решетка), расположенную над полем ввода текста.
2) Определитесь, за что у вас отвечает параметр функции Rekurs.
3) Зачем вам нужен цикл, если нужно организовать рекурсию?
Например, печать всех чисел от n до 1:

var
  n: integer;
 
procedure rec(n: integer);
begin
  if n < 1 then
    exit;
  write(n, ' ');
  rec(n - 1);
end;
 
begin
  readln(n);
  rec(n);
end.

[temaps]

function Rekurs(n:integer): real;
var
r:real;
begin
if (n = 1) then
r := 3
else
r:= Rekurs(n-1)*(2*n + 1)/(n*sqr(n));
Rekurs:=r;
end;

2BDA
Это наверняка списанная у кого-то программа. Спрашивать бесполезно, если человек хочет действительно разобраться, он сам напишет вопросы.

[JohnyJ]

Извините, реально не вставил вопрос в тему.

Программа моя, просто не знаю из-за чего вылетает эта ошибка, поскольку условия окончания рекурсии вроде как задал цыклом (не знаю можно ли так, но в условии задачи нужно найти произведение для всех i от 1 до n, n задаем с клавиатуры)

[BDA]

temaps, такое сложно списать
JohnyJ, в принципе, решение привел выше temaps.
Если рассматривать вашу программу. Во-первых, отбросим строчку Rekurs:= f;, которая при вызове Rekurs с любым параметром будет просто возвращать значение глобальной переменной f. Теперь разберемся с циклом. Предположим, что он проработал, тогда переменная Rekurs будет содержать значение только с последней итерации цикла, а значения с других итераций просто будут потеряны. Но и это еще не конец. Для всех значений i будет вызвана функция Rekurs с параметром, равным (2*i + 1)/ exp(ln(i)*3), так как проверка в коде (n2 = 1), а не (i = 1). То есть, при i = 1 будет вызвана Recurs(3), в которой также произойдет вызов Recurs(3), и так далее. Таким образом программа займет весь стек.