Вычислить факториал через рекурсию

@Mays31 · Регистрация: 20.04.2016

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

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

Pascal

Function fact(n:integer):longint;
var i,k:integer;
begin
if n=0 then writeln('0!=1') else
if n<0 then writeln('Ошибка!Число должно быть больше 0') else
i:=0;
k:=1;
repeat
k:=k*(i+1);
i:=i+1;
until i=n;
end;
var x,y:integer;
begin
writeln('Введите число:');
Readln(x);
y:=fact(x);
Writeln(y);
readln;
end.

@ZX Spectrum-128 · 26.05.2016, 10:42

Pascal

function fact(n: integer): LongInt;
begin
  if n = 0 then 
    fact := 1
  else
    fact := n * fact(n - 1);
end;
 
var
  x, y: integer;
 
begin
  writeln('Введите число:');
  Readln(x);
  y := fact(x);
  Writeln(y);
  readln;
end.

	26.05.2016, 10:42