Глубина рекурсии факториала

@Warehouse · Регистрация: 18.12.2014

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

Приветствую. Подскажите, как изменить программу, чтобы она заработала.
Нужно определить глубину рекурсии, но выдаёт ошибку.

Pascal

function fact(x: byte;var step: byte): real;
begin
  if x = 0 then fact := 1
  else fact := fact(x - 1) * x; 
   step+=1;
 
end;
 
var
  x: integer;
  step:byte;
begin 
 step:=1;
  write('x=');
  read(x);
  
  writeln('Fact=',Fact(x,step)); 
  writeln('Глубина рекурсии ', step);
end.

@volvo · 15.10.2015, 09:19

Pascal

function fact(x: byte; var step: byte): real;
begin
  if x = 0 then fact := 1
  else 
  begin
    step := step + 1;
    fact := fact(x - 1, step) * x;
  end;
end;
 
var
  x: integer;
  step: byte;
 
begin
  step := 0; // или 1, если нужно учитывать еще и этап, когда fact присваивается 1-ца
  write('x=');
  read(x);
  
  writeln('Fact=', Fact(x, step)); 
  writeln('Глубина рекурсии ', step);
end.

Опции темы